为什么说不循环呢？

Question

好的，所以我被赋予了一个猜谜游戏的任务。我已经完成并做好了准备，唯一的问题是当我尝试运行它时说：

Dim MAX, MIN
MAX = 99
MIN = 0
Randomize

Number = (Int((MAX-MIN+1)*Rnd+MIN))

Do Until Answer = Number
Answer = InputBox("Guess A Number Between:" & vbNewLine & "0 And 100", "Guessing Game:")
If Answer = "" Then
    Quit = MsgBox("Do You Wish To Quit?",vbYesNo,"Quit:")
    If Quit = vbYes Then
        WScript.Quit 0
    End If
Else If Answer = Number Then
    MsgBox("Congrats You Got It!")
Else
    MsgBox("Nope, Try Again...")
End If
Loop

Answer 1

得到了;简单的oops：

Else If Answer = Number Then

应该是：

ElseIf Answer = Number Then

分隔Else If正在创建一个新的If块，将所有内容都丢掉。

Answer 2

如果在主循环内有另一个未正确关闭的循环或IF块，通常会发生这种情况。