excel_vba_编程教程(完整版)- 第9节

啦　　
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