VB编程题 用For...next循环结构编写S=1+1/(1*2)+1/(2*3)+1/(3*4)+...+1/(99*100)

Dim s As Double
s = 0
For i = 1 To 100
If i > 1 Then
s = s + 1 / ((i - 1) * i)
Else
s = s + 1
End If
Next
MsgBox s本回答被提问者采纳