vbscript - 使用多个 else if 语句

Question

我试图用 VBScript 制作一个计算器来测试我的技能，但遇到了错误。我的程序使用多个 else if 语句来测试用户输入的内容。

下面是我的代码:

Dim head
Dim msg1, msgErr, msgAns
Dim input1, num1, num2
Dim ans

head = "Calculator"

msg1 = msgBox("Ruan's Vbscript calculator",0,head)
input1 = inputBox("How do you want to calculate? You can type (+ - * /)",head)

num1 = inputBox("Enter your first number",head)
num2 = inputBox("Enter your second number",head)

if (input1 = vbcancel) then
    wscript.quit()
else if (input1 = "+") then
    ans = num1 + num2
else if (input1 = "-") then
    ans = num1 - num2
else if (input1 = "*") then
    ans = num1 * num2
else if (input1 = "/") then
    ans = num1 / num2
else
    msgErr = msgBox("Make sure you type '+' or '-' or '*' or '/' with no extra letter or spaces","Error")
end if

msgAns = msgBox "Your answere is: " + head

当我运行程序时，错误显示:“预期语句结束”。我在这里没有看到问题，因为在所有这些 else if 语句之后有 end if。

Answer 1

删除else和if之间的空格，并使其成为elseif。像这样:

if (input1 = vbcancel) then
    wscript.quit()
elseif (input1 = "+") then
    ans = num1 + num2
elseif (input1 = "-") then
    ans = num1 - num2
elseif (input1 = "*") then
    ans = num1 * num2
elseif (input1 = "/") then
    ans = num1 / num2
else
    msgErr = msgBox("Make sure you type '+' or '-' or '*' or '/' with no extra letter or spaces","Error")
end if

通过 else 和 if 之间的额外空格，您可以开始一个嵌套在 else 分支中的新 if 语句而不是继续第一个 if 语句。嵌套的 if 语句需要自己的 end if，这就是您收到错误的原因。