怎样用vb求和

来源：百度知道编辑：UC知道时间：2024/05/25 13:12:37

计算S=1+ 1/2+1/ 3+…+1/n,求出n=100时S值,还有就是窗体上要有什么控件吗？谢谢～

双击窗体
输入

Private Sub Form_Load()
Dim a, b As Single
For a = 1 To 100 Step 1
b = b + 1 / a
Next
MsgBox (b)
End Sub

在vb加入以下代码，运行程序，接着点一下窗口，就算出来啦。
Private Sub Form_Click()
Dim s
s = 0
For i = 1 To 100
s = s + 1 / i
Next i
MsgBox S
End Sub