在vbscript中被零除

Question

我正在尝试运行一个脚本，其中除以零会导致错误。运行脚本后，发现系统接受了x除以0的输入框，并导致运行时错误，该错误指向行：

    calculator = x / x1

Answer 1

可能您打算使用此代码来保护您免受“被0除”的错误：

ElseIf num2 = x Then
msgbox "Error, cannot divide any number to 0"

但是该代码永远不会执行，因为您之前有代码If IsNumeric(num2) Then Exit do，该代码在用户输入0时退出Do循环。

此外，您只需要对“ DIVIDE”操作执行该代码。

也就是说，在调用calculator之前，您的代码应包含以下内容：

If num2 = 0 And (LCase(operation) = "divide") Then
    msgbox "Division by zero!"
    WScript.Quit
End If