求:VB goto語句用法
求:VB goto語句用法?
慕田峪4524236
2019-02-28 10:15:09
TA貢獻1871條經(jīng)驗 獲得超13個贊
行號和行標簽(應(yīng)該就是你說的標號)其實是一樣的。都是需要事先定義的。
Sub a()
If Date Mod 2 = 0 Then
GoTo 30 '跳到行號為30的代碼行
Else
GoTo LineInput1 '跳到行標簽為 LineInput1 的代碼行
End If
10: MsgBox "10"
20: MsgBox "20"
30: MsgBox "30"
40: MsgBox "40"
50: MsgBox "50"
60: MsgBox "60"
GoTo LastLine '跳到行標簽為 LastLine 的代碼行
LineInput1:
InputBox "aaa"
LastLine:
End Sub
TA貢獻1828條經(jīng)驗 獲得超6個贊
舉報