设计一个计算1+1／2+2/3+3/4+……+99/100的算法,并画出程序框图 急

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  '结束