Question

VB中的do while loop语句

本人菜鸟，希望高手细细的讲一讲下面的代码是什么意思

Private Sub Command1_Click()
Dim a, b, s, i As Integer
a = Val(Text1.Text)
b = Val(Text2.Text)
s = 0
i = a
Do While i <= b
s = s + i
i = i + 1
Loop
MsgBox "计算结果为:" & s
End Sub

请高手讲一讲每个步骤是什么意思

Answer 1

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

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

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

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

Answer 3

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

Answer 4

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

Answer 5

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