Question

VB编程 编写一个过程，用来计算S＝1+1/2+1/3+…+1/200

编写一个过程，用来计算S＝1+1/2+1/3+…+1/200。
提示：
Sub Sum(I as integer)
计算从1累加到1/I的累加和的语句
输出语句
End Sub

Answer 1

Sub Sum(I as integer)
s=0
for i=1 to 200
s=s+1/i
next
print "s=",s
End Sub

Answer 2

Sub Sum(I as integer)
计算从1累加到1/I的累加和的语句
输出语句
End Sub

Answer 3

Dim s as float
s=0
for i<201
then
s=s+1/i
next i

Answer 4

真是浪费资源，搞编程没什么前途