求助VB程序：编写一个SUB程序，用来计算并输出S=1+1/2+1/3+…+1/100的值

Question

拜托高手帮帮忙，不胜感激！
拜托，请给出具体的过程，打包发给我吧。拜托啦。

Answer 1

Dim s, i
Sub qh()
s = 0
For i = 1 To 100 Step 1
s = s + 1 / i
Next
Print s
End Sub

Private Sub Command1_Click()
Call qh
End Sub

Answer 2

s=0
for i=1 to 100 step 1
s=s+1/i
next

Answer 3

Private Sub Command1_Click()
Dim i, s, n As Double

s = 0

For i = 1 To 100
n = 1 / i
s = s + n
Next
End Sub