设计一个算法,求1+3/2+4/3+5/4+……+n+1/n的值,并画出相应的程序框图和写出相应的程序

设计一个算法,求1+3/2+4/3+5/4+……+n+1/n的值,并画出相应的程序框图和写出相应的程序

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

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息