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的語句請詳細點 謝謝
2 回答
繁華開滿天機
TA貢獻1816條經驗 獲得超4個贊
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
catspeake
TA貢獻1111條經驗 獲得超0個贊
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:處的代碼
添加回答
舉報
0/150
提交
取消