设计一个程序框图求S=1+1/2+1/3+1/4+……+1/n之值,并写出程序

gaogao19840205 1年前已收到1个回答举报

共回答了19个问题采纳率：94.7% 举报

n = Val(InputBox("请输入n=","输入"))
S = 0 :i = 1
Do
S = S + 1 / i
If Not (i < n) Then Exit Do
i = i + 1
Loop
MsgBox S,vbInformation,"输出"

1年前

可能相似的问题

设计一个计算2+4+6+…+100的程序框图和程序．

1年前
设计一个计算1+2+3+…+100的值的程序框图，并写出程序．

1年前1个回答
设计一个计算1+2+3+…+100的值的程序框图，并写出程序．

1年前1个回答
设计一个找出10个数最小数的程序框图

1年前1个回答
设计一个程序框图,输出1~100内所有的奇数

1年前1个回答
设计一个程序,计算1^2+4^2+7^2+……+100^2的值,并画出程序框图

1年前1个回答
设计一个算法,求1^+2^+……+99^+100^　画出程序框图.

1年前2个回答
设计一个求S=12+22+…+992+1002的值程序框图并用For语句写出程序．

1年前1个回答
设计一个求S=12+22+…+992+1002的值程序框图并用For语句写出程序．

1年前1个回答
设计一个求S=12+22+…+992+1002的值程序框图并用For语句写出程序．

1年前2个回答
设计一个求S=12+22+…+992+1002的值程序框图并用For语句写出程序．

1年前3个回答
怎样设计求,1+2+3+…+100的和的一个程序框图

1年前1个回答
设计一个计算1＋3＋5＋……99的算法,画出程序框图并编写程序.搜一道数字题

1年前1个回答
算法程序框图问题某班共有58人,设计一个统计某次数学成绩良好（大于85小于90）和优秀（大于等于90）的人数的程序框图.

1年前2个回答
设计一个算法，计算2+4+6+…+100的值，并画出程序框图。

1年前1个回答
设计一个算法，求1+2+4+…249的值，并画出程序框图．

1年前1个回答
设计一个算法，求1+2+4+…249的值，并画出程序框图．

1年前1个回答
设计一个计算1+122+132+…+1n2的值的算法，要求只画出程序框图并写出程序．

1年前1个回答
对正整数100,设计一个程序框图求S=1+1/2+1/3..+1/100的值,并写出程序

1年前1个回答

你能帮帮他们吗

精彩回答