vbdowhile循环语句_vb循环语句有几种语句

1、含义不同：

vbdowhile循环语句_vb循环语句有几种语句

Do While Len(a)表示只要a的长度为真（非0），就一直循环。

Do Until Len(a)表示一直循环，直到a的长度为真（非0），停止循环。

2、语法不同：

Do Until语句是只要当某个条件为假的时候重复一块代码。这是它的语法：

Do Until 条件

语句1

语句2

语句N

Loop

Do?While循环语法：

Do

语句1

语句2

语句N

Loop While 条件

扩展资料：

VB循环次数：

要程序至少执行一次，那么就将条件放置于Loop语句一行。，无论条件的值是什么。

如：【Do...Loop Until 条件】模式，表示无论条件如何，先执行循环一次，如果不符合循环条件，则立即停止，如果还符合循环条件，则继续执行。这样，程序循环过程至少执行了一次。

Do循环语句的几种形式:

1.、Do While i>1 '条件为True时执行

... ... '要执行的语句

Loop

2、Do Until i>1 '条件为False时执行

... ... '要执行的语句

Loop

3、Do

... ... '要执行的语句

Loop While i>1 '条件为True时执行

4、Do

... ... '要执行的语句

Loop Until i>1 '条件为False时执行

5、While...Wend 语句

While i>1 '条件为True时执行

... ... '要执行的语句

Wend

参考资料来源：

参考资料来源：

DO 循环语句是用于不知道循环次数。和FOR循环相反（它是知道循环次数）。

do

while

i<10

i=i+1

s=s+i

loop

print

s

s=0

i=0

do

i=i+1

s=s+i

while i<11

msgbox s

do while i<10

i=i+1

s=s+i

loop

print s

s=0

do while (s<10)

'or do until (s=10)

s=s+1

p=p+s

loop

'or do..loop while (s<10)

'or do..loop until (s=10)

msgbox p

一、循环方式不同

1、Do While：是直到型循环。

2、Do...Until：Do...Until循环条件是i＞=3。

二、用法不同

1、Do While：是 do-while 的循环语句保证会执行一次（表达式的真值在每次循环结束后检查）。

2、Do...Until：循环开始时先判定是否达到结束循环的条件i＞=3，符合就退出循环，否则继续执行。

三、特点不同

1、Do While：do while 难点不大，主要是避免进入死循环，条件表达比较开放，只要符合逻辑，条件表达真假，并注意全局半局变量。

2、Do...Until：执行Do和Loop之间的指令，直到循环条件为真时退出循环。

参考资料来源：

1、先判断表达式是否成立，不成立就执行里面的代码，成立就转到 loop 退出循环

do until 表达式 ' 循环值到表达式成立为止

语句

loop

2、先执行里面的语句，然后判断loop 后面表达式是否成立，不成立则回到 do 继续循环，否则往下退出循环

do

语句

loop until 表达式

下面两个跟上面差不多的，只是 until 是直到条件满足就退出，而 while 是当条件满足的时候执行。

3、

do while

loop

4、 do

loop while

循环啊，循环执行Do和Until之间的代码。看看书吧。

VB中的do while loop语句

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所有的数加起来.

输入两个整数

求从第一个整数到第二个整数累加和