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

来源:学生作业帮助网 编辑:作业帮 时间:2024/07/30 19:12:03
设计一个算法,求1+3/2+4/3+5/4+……+n+1/n的值,并画出相应的程序框图和写出相应的程序
xSkAWHC†6?=#LMfM-=Pb+E0AI#$7' Ћ0y{_v>[gϯROOBEҠ*P7߉%1 A6>ʛe|EwO:>ߣ9R" e*TAG;c 17 UIڥ^&W.-c>vWuCWY|tcX1 ll*eRʨAXcȪf2M]b A:r2ʘ(c~ )hTKm4dVґ`B6Fl!rC-b\әݳk`8noӠ` ,Wl)K$~oVQĘ 6&6׼D|IdpŸ]| dr)SQdB`CY {>SHP$逻^8ƫ]=T,;/[AEt]^!BׇȎnm23^w2z6?f.

设计一个算法,求1+3/2+4/3+5/4+……+n+1/n的值,并画出相应的程序框图和写出相应的程序
设计一个算法,求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  '结束

vb程序可以吗