请问下面这个语句，关于if...goto怎么个用法啊？

Question

Option ExplicitPrivate Sub Form_Load()Dim a As DoubleDim y As DoubleDim z As Doublea = Val(InputBox("Please input numberic data a"))If a >= 0 Then GoTo myexity = a * a + 100z = Sqr(a + y)Exit Submyexit:y = -a + 11z = Sin(a / y)End Sub请高手帮我解释解释这个vb小程序特别是后面if..goto的语句请详细点 谢谢

Answer 1

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

Answer 2

goto是程序跳转。
上面代码的意思是当a>=0的时候程序就跳转到执行myexit处定义的代码。
myexit: //跳转的标识
y = -a + 11 //执行的代码
z = Sin(a / y) //执行的代码
End Sub
只有在a<0的时候才顺序执行
y = a * a + 100
z = Sqr(a + y)
而不走myexit:处的代码