VBA师按

在我的VBA计算器中，我用0除了问题。 我怎样才能得到它显示一个MsgBox "U can't divise by 0"当我尝试除以0 ？ 有我的“=”和“/”代码：

 'equals button Private Sub Wynik_Click() 'równa się var2 = TextBox1.Value xWynik = Application.Evaluate(var1 & var2) TextBox1.Value = xWynik End Sub 'division Private Sub Dziel_click() If var2 = "0" Then MsgBox ("Nie można dzielić przez 0") Else var1 = TextBox1.Value + "/" TextBox1.Value = "" End If End Sub 

Answer 1

像这样的一个很好的检查：

 Public Sub DivByZero() If var2 = 0 Then MsgBox ("You cannot divide by 0") Else Var1 = textbox1.value / var2 End If End Sub 

你也可以用一个错误捕获器来做，但是这可能会使这个小例子复杂化：

 Public Sub DivByZero() On Error GoTo DivByZero_Error Var1 = textbox1.value / var2 On Error GoTo 0 Exit Sub DivByZero_Error: MsgBox "Division by 0 or another error!" End Sub 

免责声明：如果您承诺，您将永远不会为运输或医疗行业编写此类代码，请使用以下代码：

 If var2 = "0" or len(trim(var2)) = 0 Then