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