对正整数100,设计一个程序框图求S=1+1/2+1/3..+1/100的值,并写出程序

Rem 语言：Visual Basic 6.0
Sub Main()  '开始
  S = 0 :i = 1
  Do
    S = S + 1 / i
    If Not (i < 100) Then Exit Do
    i = i + 1
  Loop
  MsgBox S,vbInformation,"输出"
End Sub  '结束
运行结果：

再问： S为什么是0呢 不是1吗
再答： i的初值是1啊，所以S的初值就是0了；如果S的初值是1，则i的初值就要改为2了。都行。但按编程习惯，还是前者略好。