vb do loop 语句

Answer 1

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
希望可以帮到你，满意请采纳，有问题请追问^_^

Answer 2

dim
a,
b,
s,
i
as
integer
'定义变量
a
=
val(text1.text)
'把text1由字符串转成数值后赋值给变量a
b
=
val(text2.text)
'同上
s
=
0
's的值归零
i
=
a
'把a的值赋值给变量i
do
while
i
<=
b
'当i<=b的时候做循环
s
=
s
+
i
'把i的值累加到s上
i
=
i
+
1
'i增加1
loop
'循环结尾
msgbox
"计算结果为:"
&
s
'用对话框输出计算结果s
end
sub
'结束