Fatal编程技术网
  • vbscript/
  • Vbscript 为什么它说循环而不做？

Vbscript 为什么它说循环而不做？

vbscript

Vbscript 为什么它说循环而不做？,vbscript,Vbscript,好的，我被指派做一个猜谜游戏。我已经准备好了，唯一的问题是当我试着运行它时，它说： 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 Answe

好的，我被指派做一个猜谜游戏。我已经准备好了，唯一的问题是当我试着运行它时，它说：

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

明白了；简单的oops：

Else If Answer = Number Then
应该是：

ElseIf Answer = Number Then
分离
Else If
就是创建一个新的
If
块，把所有的东西都扔掉。

如果你有另一个循环，或者如果主循环中的块没有正确关闭，通常会发生这种情况。

我认为应该是
执行
然后
循环直到答案=数字
@Blorgbeard-Hmm。。。这两者都不能，所以循环可以是1+或0+运行？它不工作，它显示了相同的错误窗口。