excel_vba_编程教程(完整版)-第8部分

按键盘上方向键 ← 或 → 可快速上下翻页，按键盘上的 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