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

来源：学生作业帮助网编辑：作业帮时间：2024/04/28 18:57:36

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程序可以吗

设计一个算法求1^2+2^2+3^2+4^2+5^2+.+99^2+100^2的值设计一个计算1*3*5*7……*99的算法并画框图设计算法求1/(1*2)+1/(2*3)+1/(3*4)……+1/(99*100)的值及框图~ 已知一个三角形的三边长为2 3 4 ,设计一个算法,求面积. 设计求1+2+3+···+1000的值得一个算法,并画出相应的算法流程图设计一个算法~求出1/1*2*3*4*5*...100 求1*2*3*4*5*6*7试设计不同算法.并画出流程图设计求1+2+3+4+5+6+.+99的算法,并画出流程图, 设计一个算法求：1/2+（1/2+2/3）+（1/2+2/33/4）+...（1/2+2/33/4...+99/100）的算法设计一个算法求1+1/3+1/5+1/2007:试用相应程序表示设计一个算法求1*2+2*2+3*2+...99*2+100*2的值,... 设计一个算法求1+2+2^2+2^3+……+2^n 设计一个算法,求1²+2²+3²+.+100² 设计一个算法求s=1的平方 +2的平方 +3+ 100的平方设计一个算法,计算1+3+5+7+…+99 1.写出求1至1000的正数中的3倍数的算法.2.设计算法求底面边长为4,侧棱长为5的正四棱锥的侧面积和体积.3.写出求方程ax^2+bx+c=0的解的算法.4.写出求有限整数序列中最大值的一个算法. 有关算法的设计一个算法,解方程,2分之x+2-1=3分之x-5 设计一个算法求1+2+.+99+100的值, 设计算法求1/1*2+1/2*3+1/3*4+...+1/99*100