用VB计算 S=1+2+3+……100,代码如下,是否有错?
来源:百度知道 编辑:UC知道 时间:2024/06/01 02:41:08
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编程计算:1!+2!+3!+4!+…+n!
用VB循环语句计算1^1+2^2+3^3+……10^10
C.编程计算S= 2^1+2^2+2^3+***+2^30其中 算法由子函数实现.
在VB计算中,S=1+12+22+32+…n2老师又要求按计算后显示运算式,比如输入n=3,就显示1+12+22+32=67,输入n=4,
vb中计算1!+2!+……+10!的代码
VB计算print x+1;x+2;x+3
编程计算:S=1!+2!+3!+4!+5!
编写程序,计算和式: S=-1!+2!-3!+4! - …… + 10! 。 要求用循环语句实现。
VB脚本中循环语句编程,编写网页文件:计算1!+2!+3!+…+n!之和。