VBA 中 do while loop 用法

Posted

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了VBA 中 do while loop 用法相关的知识,希望对你有一定的参考价值。

VBA 中Do while Loop用法如下:
VBA中如果不知道重复多少次,使用 Do...Loop 语句。

Do...Loop 语句重复执行某段代码直到条件是 true 或条件变成 true。
重复执行代码直到条件是 true
使用 While 关键字来检查 Do... Loop 语句的条件。

Do While i>10
'some code
Loop

如果 i 等于 9,上述循环内的代码将终止执行。

Do
'some code
Loop While i>10

这个循环内的代码将被执行至少一次,即使 i 小于 10。
重复执行代码直到条件变成 true
使用 Until 关键字来检查 Do...Loop 语句的条件。

Do Until i=10
'some code
Loop

如果 i 等于 10,上述循环内的代码将终止执行。

Do
'some code
Loop Until i=10

这个循环内的代码将被执行至少一次,即使 i 等于 10。
退出 Do...Loop
可以通过 Exit Do 关键词退出 Do...Loop 语句。

Do Until i=10
i=i-1
If i<10 Then Exit Do
Loop

这个循环内的代码,只要 i 不为 10 且 i 大于 10 时都将被执行。

扩展资料:

While 关键字用于检查 Do...Loop 语句中的条件。有两种方式检查条件:在进入循环之前检查条件(如下面的 ChkFirstWhile 示例);或者在循环至少运行完一次之后检查条件(如下面的 ChkLastWhile 示例)。

在 ChkFirstWhile 过程中,如果 myNum 的初始值被设置为 9 而不是 20,则永远不会执行循环体中的语句。在 ChkLastWhile 过程中,循环体中的语句只会执行一次,因为条件在检查时已经为 False。

Sub ChkFirstWhile()

Dim counter,myNum,counter = 0,myNum = 20

Do While myNum > 10,myNum = myNum - 1,counter = counter + 1

Loop

MsgBox 循环重复了 & counter & 次。

End Sub,Sub ChkLastWhile()

Dim counter,myNum

counter = 0,myNum = 9

Do  myNum = myNum - 1

counter = counter + 1

Loop While myNum > 10

MsgBox 循环重复了 & counter & 次。

End Sub

重复执行语句直到条件变为 True

参考资料:循环语句_百度百科

参考技术A

VBA 中Do while Loop用法如下:

1、VBA中如果不知道重复多少次,使用 Do...Loop 语句。

2、Do...Loop 语句重复执行某段代码直到条件是 true 或条件变成 true。重复执行代码直到条件是 true使用 While 关键字来检查 Do... Loop 语句的条件。

(1)Do While i>10'some codeLoop

如果 i 等于 9,上述循环内的代码将终止执行。

(2)Do'some codeLoop While i>10

这个循环内的代码将被执行至少一次,即使 i 小于 10。重复执行代码直到条件变成 true使用 Until 关键字来检查 Do...Loop 语句的条件。

(3)Do Until i=10'some codeLoop

如果 i 等于 10,上述循环内的代码将终止执行。

(4)Do'some codeLoop Until i=10

这个循环内的代码将被执行至少一次,即使 i 等于 10。退出 Do...Loop可以通过 Exit Do 关键词退出 Do...Loop 语句。

(5)Do Until i=10i=i-1If i<10 Then Exit DoLoop

这个循环内的代码,只要 i 不为 10 且 i 大于 10 时都将被执行。                                                    

扩展资料

While 关键字用于检查 Do...Loop 语句中的条件。

有两种方式检查条件:

1、在进入循环之前检查条件(如下面的 ChkFirstWhile 示例);或者在循环至少运行完一次之后检查条件(如下面的 ChkLastWhile 示例)。

2、在 ChkFirstWhile 过程中,如果 myNum 的初始值被设置为 9 而不是 20,则永远不会执行循环体中的语句。

3、在 ChkLastWhile 过程中,循环体中的语句只会执行一次,因为条件在检查时已经为 False。

Sub ChkFirstWhile()

Dim counter,myNum,counter = 0,myNum = 20

Do While myNum > 10,myNum = myNum - 1,counter = counter + 1

Loop

MsgBox 循环重复了 & counter & 次。

End Sub,Sub ChkLastWhile()

Dim counter,myNum

counter = 0,myNum = 9

Do  myNum = myNum - 1

counter = counter + 1

Loop While myNum > 10

MsgBox 循环重复了 & counter & 次。

End Sub

重复执行语句直到条件变为 True

参考资料:循环语句—百度百科

参考技术B

VBA 中Do while Loop用法如下:
VBA中如果不知道重复多少次,使用 Do...Loop 语句。
Do...Loop 语句重复执行某段代码直到条件是 true 或条件变成 true。
重复执行代码直到条件是 true
使用 While 关键字来检查 Do... Loop 语句的条件。

Do While i>10
  'some code
Loop

如果 i 等于 9,上述循环内的代码将终止执行。

Do
  'some code
Loop While i>10

这个循环内的代码将被执行至少一次,即使 i 小于 10。
重复执行代码直到条件变成 true
使用 Until 关键字来检查 Do...Loop 语句的条件。

Do Until i=10
  'some code
Loop

如果 i 等于 10,上述循环内的代码将终止执行。

Do
  'some code
Loop Until i=10

这个循环内的代码将被执行至少一次,即使 i 等于 10。
退出 Do...Loop
可以通过 Exit Do 关键词退出 Do...Loop 语句。

Do Until i=10
  i=i-1
  If i<10 Then Exit Do
Loop

这个循环内的代码,只要 i 不为 10 且 i 大于 10 时都将被执行。

参考技术C do while 条件
循环体
loop
参考技术D 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

以上是关于VBA 中 do while loop 用法的主要内容,如果未能解决你的问题,请参考以下文章

vba如何把while loop得到的结果放入一个array里?

VB中 while .....wend 与 DO while.....loop区别

Python里的while loop

java 初级while loop的错误

C++中do while()的用法

sql server中do while循环怎么写