按键盘上方向键 ← 或 → 可快速上下翻页，按键盘上的 Enter 键可回到本书目录页，按键盘上方向键 ↑ 可回到本页顶部！
————未阅读完？加入书签已便下次继续阅读！
＇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
lorindex=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
3
… 页面 13…
VBA 语言基础 橄榄树整理
Statements
Loop
或者使用下面语法
Do ' 先do 再判断，即不论如何先干一次再说
Statements
Exit do
Statements
Loop ｛while ｜until｝ condition
第十节 其他类语句和错误语句处理
一．其他循环语句
结构化程序使用以上判断和循环语句已经足够，建议不要轻易使用下面的语句，虽然 VBA 还支
持。
1） Goto line 该语句为跳转到 line 语句行
2） On expression gosub destinatioinlist 或者 on expression goto destinationlist 语
句为根据 exprssion 表达式值来跳转到所要的行号或行标记
3） Gosub line…line…Return 语句， Return 返回到 Gosub line 行，如下例：
Sub gosubtry（）
Dim num
Num=inputbox（“输入一个数字，此值将会被判断循环”）
If num》0 then Gosub Routine1 ：Debug。print num：Exit sub
Routine1：
Num=num/5
Return
End sub
4） while…wend语句，只要条件为 TRUE，循环就执行，这是以前 VB 老语法保留下来的，如下
例：
while condition ‘while I