(VB)若是A/B 則B=0時[20點]

Question

如果我的小計算機
A/B B=0的時候 不會談出一個

執行階段錯誤"11"
除以零

的錯誤按確定就會跳掉
我希望可以做出一個提示的Msgbox
內容:輸入方式錯誤
標題:錯誤
按下確定後 程式不會彈掉的程式碼
誰可以交我呢

那麼假使
我的程式碼
Private Sub Command1_Click()
Dim a, b, c As Single
a = Val(Text1.Text)
b = Val(Text2.Text)
c = a / b
Text3.Text = Text1.Text & "/" & Text2.Text & "=" & c
End Sub
那我應該如何應用你的那方法?
才有辦法解決那問題?

哦 我會用了 謝謝你

Answer 1

如果，你變數B的值在要除之前是未知的，那:
1. 在除之前先用If來判斷:
　If B = 0 Then
　　 ...

2. 用On Error Resume Next來攔截錯誤:
　 ...
　On Error Resume Next
　C = A / B ’若此時B = 0
　If Err.Number = 0 　’正常時應該是等於 0
　　MSgbox ”B等於零！”
　....

Answer 2

if ( B＝＝0 )

MsgBox（”錯誤！”）

else

計算 A／B