Excel_VBA_编程教程(完整版)(最新完整版)(16)

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 老语法保留下来的，如下 Sub 过程的参数有两种传递方式：按值传递(ByVal)和按地址传递(ByRef)。如下例： Sub password (ByVal x as integer, ByRef y as integer) If y=100 then y=x+y else y=x-y x=x+100 End sub Sub call_password () Dim x1 as integer Dim y1 as integer x1=12 y1=100 Call password (x1,y1) ‘调用过程方式：1. Call 过程名(参数1, 参数 2 ) ; 2. 过 程名 参数 1, 参数 2