第九节 循环语句

1）For Next语句 以指定次数来重复执行一组语句

For counter = start To end [Step step]              ' step 缺省值为1

[statements]

[Exit For]

[statements]

Next [counter]

如1：

For Words = 10 To 1 Step -1             ' 建立 10 次循环

    For Chars = 0 To 9                  ' 建立 10 次循环

        MyString = MyString & Chars     ' 将数字添加到字符串中

    Next Chars                          ' Increment counter

    MyString = MyString & " "           ' 添加一个空格

Next Words

 

2）For Each…Next语句  主要功能是对一个数组或集合对象进行，让所有元素重复执行一次语句

For Each element In group

Statements

[Exit for]

Statements

Next [element]

如1：

For Each rang2 In range1

With range2.interior

.colorindex=6

.pattern=xlSolid

End with

Next

这上面一例中用到了 With…End With 语句，目的是省去对象多次调用，加快速度；语法为：

With object

[statements]

End With

 

3）Do…loop语句 在条件为true时，重复执行区块命令

Do {while |until} condition' while 为当型循环，until为直到型循环，顾名思义，不多说啦

Statements

Exit do

Statements

Loop

或者使用下面语法

Do                          ' 先do 再判断，即不论如何先干一次再说

Statements

Exit do

Statements

Loop {while |until} condition