用VB编写一个Sub子程序,计算并输出 x=1+1/2+2/3+3/4+4/5······99/100

问题描述:

用VB编写一个Sub子程序,计算并输出 x=1+1/2+2/3+3/4+4/5······99/100

Sub JiSuan
Dim x,y,i
x=1
For i=2 To 100
y=i-1/i
x=x+y
'''按需要怎么输出..
Next
End Sub
选我啊