8楼的正确
Dim x, y, z As Integer
Dim a, b, c As Double
Dim temp, sum As Double
sum = 0
For x = 0 To 101
temp = 1
If x = 0 Then
temp = 1
b = 1
Else
For y = 1 To x
temp = temp * y
Next
b = x / temp
End If
sum = sum + b
Next
Me.c.Text = sum
vb.net作的!!!!!!!!