Question

高一信息题 ：编写程序计算s=1/1+1/2+1/3+……1/100的和。输出结果 流程图： VB程序代码：

Answer 1

如图

Answer 2

vb程序代码：
Private Sub Form_Click()
For n = 1 To 100
s = s + 1 / n
Next n
Print s
End Sub
望采纳！！！

Answer 3

for i=1 to 100
s=s+1 / i
next
print s