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

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
Run Code Online (Sandbox Code Playgroud)
And*_*ber 10
得到它了; 简单的oops:
Else If Answer = Number Then
Run Code Online (Sandbox Code Playgroud)
应该:
ElseIf Answer = Number Then
Run Code Online (Sandbox Code Playgroud)
分离Else If正在创造一个新的If块,抛弃一切.
| 归档时间: |
|
| 查看次数: |
3535 次 |
| 最近记录: |