以下是引用心中有剑在2007-8-29 8:58:24的发言：
没有错啊!谁说有错的
Private Sub Command1_Click()
Dim i As Integer
Dim Sum
For i = 1 To 99
Sum = Sum + 1 / (i * (i + 1))
Next
Label1.Caption = Sum
End Sub
我的答案就 .99啊
作弊哦，你用Single看看……
快上课了……
