奥菱集团李建龙结婚没:用VB计算 S=1+2+3+……100,代码如下,是否有错?
来源:百度文库 编辑:中科新闻网 时间:2024/05/02 20:13:58
Dim s As Integer, i As Integer
s = 0
i = 1
Do
s = s + i
i = i + 1
Loop While i = 100
Print "s="; s
我显示的结果总是 s=1
s = 0
i = 1
Do
s = s + i
i = i + 1
Loop While i = 100
Print "s="; s
我显示的结果总是 s=1
Loop While i = 100 是指当i等于100的时候就推出循环了,实际上只循环到99,也就是仅仅计算1+2+3+…+98+99的值,如果要加到100,那么循环条件要改为Loop While i = 101
不好意思,刚刚去试了一下,上面的程序确实是输出s=1 ,实际上DO Loop While语句是指当判断条件为真时才会进入下一轮的循环,所以将程序修改一下:
Dim s As Integer, i As Integer
s = 0
i = 1
Do
s = s + i
i = i + 1
Loop While i <= 100
Print "s="; s
输出结果为s=5050
将 while i=100 改成 until i=101
Private Sub Form_Click()
Dim s As Integer, i As Integer
s = 0
i = 1
Do
s = s + i
i = i + 1
Loop Until i = 101
Print "s="; s
End Sub
运行结果:
s= 5050
Dim i As Integer
Dim s As Integer
For i = 1 To 100 Step 1
s = s + i
Next i
结果为5050
DO LOOP WHILE改为:DO WHILE LOOP
好象是这样吧 你试试
Do While i <= 100
s = s + i
i = i + 1
Loop
Loop While i = 101
用VB计算 S=1+2+3+……100,代码如下,是否有错?
VB:求S=1!+2!+3!+……+20!的编程代码
用VB编写程序:计算1+2+3+........+100中所有偶数且为3的倍数的和~~~?
编程计算:S=1!+2!+3!+4!+5!
用高斯数学的方法求S=1+3+5+7+…+(2n-1)的计算公式
怎么用VB做 计算1*2*3*4.....*N的值,其中N=20
计算s=1!+2!+3!+.....+7!? 用VC编写谢谢?
自然数从1开始,逐个相加,一直加到n。它们之间的和记作S,即S=1 2 3 4 5 …… n。写出计算S的公式。
用汇编语言编写S=1+2+3...+7+8,结果存入S
如何用VB计算e=1/1!+1/2!+1/3!+1/4!+…+1/n!