VB试题：编写函数fun，函数的功能是：求I 到a之间的偶数之积

Function fun(a As Double) As Double

a = Int(a)

If a > 1 Then fun = 2

For i = 4 To Int(a / 2) 2 Step 2

fun = fun i

Next

End Function

Function c(a, b As Integer) As Integer

Dim i, j As Integer

j = 0

For i = a To b

j = j + i

Next i

c = j

End Function

Private Sub Form_Load()

Caption = c(1, 100)

End Sub

private sub fun(m as integer) as single

dim i as integer

for i=1 to m

fun=fun+1/(2i)

next

end sub

楼主

把

VB

和

c

混了

看看这个

Function

fun(ByVal

n

As

Integer)

As

Single

Dim

i,

t

As

Integer

Dim

s

As

Single

t

=

1

For

i

=

1

To

n

t

=

t

i

s

=

s

+

1

/

t

Next

i

fun

=

s

End

Function

注意，调用

是

n不能太大了，否则

就得

改

dim

t

as

long