Dim Number, MyString Number = 1 '设置变量初始值。 If Number = 1 Then GoTo Line1 Else GoTo Line2 '判断 Number 的值以决定要完成那一个程序区段 Line1: MyString = "Number等于1" GoTo LastLine ' 完成后跳转到最后一行。 Line2:MyStrin...
Number = 1 ' 设置变量初值 ' 因为Number的值等于1，所以以下的示例会跳转到Sub1,Line2 ' 下一句跳转到Sub1，在 On...GoSub退出后，程序会回到此处来继续完成 On Number GoSub Sub1, Sub2 '因为Number + 1的值是2，所以跳转到第二个Line2，完成Line2标记区段 On Number + 1 GoTo Line1, Line...
本示例使用 GoTo 语句在一个过程内的不同程序段间作流程控制,不同程序段用不同的“程序标签”来区隔。 Sub GotoStatementDemo() Dim Number, MyString Number =1' 设置变量初始值。 ' 判断 Number 的值以决定要完成那一个程序区段(以“程序标签”来表式)。 If Number =1ThenGoTo Line1ElseGoTo Line2 Lin...
Sub OnGosubGotoDemo() Dim Number, MyString Number = 2 ' 设置变量初值。 ' Branch to Sub2. On Number GoSub Sub1, Sub2 ' 在 On...GoSub 退出後,程序会回到此处来继续完成。 On Number GoTo Line1, Line2 ' 完成 Line2 标记之区段。 '在 On...GoTo 退出之后,程序不会回到此处来。
此範例會使用GoTo 語句來分支至程式內的線條標籤。 VB複製 SubGotoStatementDemo()DimNumber, MyString Number =1' Initialize variable.' Evaluate Number and branch to appropriate label.IfNumber =1ThenGoToLine1ElseGoToLine2 Line1: MyString ="Number equals 1"GoToLastLine' Go to LastLine.Line2:' The...
Number = 1 ' 设置变量初始值。' 判断 Number 的值以决定要完成那一个程序区段（以“程序标签”来表式）。If Number = 1 Then GoTo Line1 Else GoTo Line2 Line1:MyString = "Number equals 1"GoTo LastLine ' 完成最后一行。Line2:' 下列的语句根本不会被完成。MyString = "Number equals...
此示例使用GoTo语句转到过程内的行标签。 VB复制 SubGotoStatementDemo()DimNumber, MyString Number =1' Initialize variable.' Evaluate Number and branch to appropriate label.IfNumber =1ThenGoToLine1ElseGoToLine2 Line1: MyString ="Number equals 1"GoToLastLine' Go to LastLine.Line2:' The following...
On Number GoSub Sub1, Sub2 '因为Number + 1的值是2,所以跳转到第二个Line2,完成Line2标记区段 On Number + 1 GoTo Line1, Line2 '在On...GoTo退出之后,程序不会回到此处 Exit Sub Sub1: MyString = "In Sub1" Return Sub2: MyString = "In Sub2" ...
此示例使用On...GoSub和On...GoTo语句分别分支到子例程和行标签。 VB SubOnGosubGotoDemo()DimNumber, MyString Number =2' Initialize variable.' Branch to Sub2.OnNumber GoSub Sub1, Sub2' Execution resumes here after' On...GoSub.OnNumberGoToLine1, Line2' Branch to Line2.' Execution d...
③ Resume line（NEXT）④ On Error GoTo 0 一一般的VBA错误处理语句 为了说明上面的几个语句，我们简单的写几行代码，如下：Sub mynz_37()On Error GoTo ErrHandler k = 1 / 0 ExitProcedure:On Error Resume Next k = 1 / 0 + 1 MsgBox k Exit Sub ErrHandler:MsgBox "错误代码: " & Err....