VB中的do while loop语句

Do Loop 语句的语法具有以下几个部分：

在Do…Loop 中可以在任何位置放置任意个数的 Exit Do 语句，随时跳出Do...Loop 循环。Exit Do 通常用于条件判断之后，例如If Then，在这种情况下，Exit Do 语句将控制权转移到紧接在 Loop 命令之后的语句。

如果 Exit Do 使用在嵌套的Do…Loop 语句中，则 Exit Do 会将控制权转移到 Exit Do 所在位置的外层循环。

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 '结束

Private Sub Command1_Click()
Dim a, b, s, i As Integer
a = Val(Text1.Text) '得到文本框1的文本并转换成数值
b = Val(Text2.Text) '得到文本框2的文本并转换成数值
s = 0 's的值归零
i = a
Do While i <= b '当i小于等于b时
s = s + i '累加
i = i + 1
Loop
MsgBox "计算结果为:" & s
End Sub

'就是说从输入两个数字，从数字1一直累加到数字2

do
...loop分2种
1.do
while
<条件>
...
loop
2.do
...
loop
until<条件>
第一种是先判断条件,如符合再执行,直到条件不符合退出循环,有可能成为死循环,也有可能一次也不执行
第二种是先执行,再判断条件,若条件不符合,就不再执行第二次,所以这种循环最少要执行一次

a = Val(Text1.Text)
b = Val(Text2.Text)
在文本框里填入两个数字
求和
A到B所有的数加起来.