用VB do loop 语句设计一个求S=1+2+3+100的程序并计算结果

Private Sub Command1_Click()

  Dim s As Integer, i As Integer

  s = 0

  i = 1

  Do

    s = s + i

    i = i + 1

  Loop While i <= 100

  Print "S=1+2+3+...+100="; s  

End Sub

1、
do
while
循环条件
。。。
loop
意思是当后面的循环条件为true时
执行循环体里的代码,否则跳出循环，执行loop后面的代码；
2、
do
。。。
loop
while
循环条件
先执行循环体里的代码，然后判断循环条件，如果为true则继续执行循环体里的代码，否则跳出循环，执行loop后面的代码；
3、
do
until
循环条件
。。。
loop
意思是当后面的循环条件为false时
执行循环体里的代码,否则跳出循环，执行loop后面的代码，请注意与第1个的区别；
4、
do
。。。
loop
until
循环条件
先执行循环体里的代码，然后判断循环条件，如果为false则继续执行循环体里的代码，否则跳出循环，执行loop后面的代码，请注意与第2个的区别。
具体事例请看百度百科do...loop
http://baike.baidu.com/view/1232732.htm
希望可以帮到你，满意请采纳，有问题请追问^_^

Private
Sub
Command1_Click()
 
Dim
s
As
Integer,
i
As
Integer
 
s
=
0
 
i
=
1
 
Do
 
 
s
=
s
+
i
 
 
i
=
i
+
1
 
Loop
While
i
<=
100
 
Print
"S=1+2+3+...+100=";
s
 
End
Sub

Do
Loop Until
语句是一个条件循环
只有当until（只有） 后的条件成立时Do后面的循环才结束
一楼是正确的
i从1 到100 都不符合条件
所以一直执行语句
a = a + i
i = i + 1
当i>100 时条件成立
循环结束
再将a=5050打印出来