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

来源:学生作业帮助网 编辑:六六作业网 时间:2024/11/22 21:41:26
设计一个算法,求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的值,并画出相应的程序框图和写出相应的程序
设计一个算法,求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程序可以吗