设计一个计算1+1／2+2/3+3/4+……+99/100的算法,并画出程序框图 急设计一个计算1+1／2+2/3+3/4+……+99/100的算法,并画出程序框图
问题描述：
设计一个计算1+1／2+2/3+3/4+……+99/100的算法,并画出程序框图 急
设计一个计算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 '结束