唯美语句网1.求：VB goto语句用法
行号和行标签（应该就是你说的标号）其实是一样的。都是需要事先定义的。
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
2.请问VB中怎么使用Goto语句Goto行号
设定一个标号，然后直接goto 标号
比如
Sub GotoStatementDemo()
Dim Number, MyString
Number = 1 ' 设置变量初始值。
' 判断 Number 的值以决定要完成那一个程序区段（以“程序标签”来表式）。
If Number = 1 Then GoTo Line1 Else GoTo Line2
Line1:
MyString = "Number equals 1"
GoTo LastLine ' 完成最后一行。
Line2:
' 下列的语句根本不会被完成。
MyString = "Number equals 2"
LastLine:
Debug.Print MyString ' 将“"Number equals 1"”显示在“立即”窗口。
End Sub
3.if
a = Val(InputBox("Please input numberic data a")） 输入一个数，其实InputBox得到的是字符串，然后再用val转换成数字
If a >= 0 Then GoTo myexit 如果a大于等于0的话，程序跳转到myexit标识
y = a * a + 100 如果到这里的话，a是小于0的，做a的平方加100
z = Sqr(a + y) 这里是开平方运算
Exit Sub
myexit： 上面的如果成立的话，跳转到这里
y = -a + 11 到这里就是a大于等于0的情况了
z = Sin(a / y) sin就不用解释了吧，取sin的值
End Sub
4.关于 VB中的goto的用法
A:private sub command1_click()
B:dim n as integer,s as string
C:n=1
D:if n>1 then goto 11 else goto 12
E:11:
F:s="n大于1"
G:goto 13
H:12:
I:s="n小于等于零"
J:13:
K:msgbox s
L:end subgoto跳转的意思，代码编号A-L.方便为您解释：
A：控制台程序，执行click事件（当某个按钮被按下时执行Command_Click（)事件）
B：定义n为整型，s为字符串型
C：初始化n=1
D：判断：n>1时，跳转到11，；否则跳转到12
EF：定义跳转到11时，s="n大于1"字符串，再跳转到13,msgbox输出s的内容为n大于1
HI：定义跳转到12时，s="n小于等于零"字符串，然后执行13,msgbox输出s的内容为n小于等于零
转载请注明出处唯美语句网 » vbifgoto语句