小编Jon*_*o98的帖子

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

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

好的,所以我打算制作一个简洁的程序,使你的数字锁定,大写锁定和滚动锁定键闪烁.我的问题是当我运行它时,它只生成一个数字,而不是多个不同的数字,任何关于问题可能是什么的想法？

Set Keys = WScript.CreateObject("WScript.Shell") 'So The Script Can Press keys
Dim MAX, MIN 'Declaration
MAX = 2 'Sets MAX Equal To 2
MIN = 0 'Sets MIN Equal To 0
Randomize 'So The Numbers Are Different All The Time

Number = (Int((MAX-MIN+1)*Rnd+MIN)) 'Assigns The Random number To A Variable
Do Until X = 10 'Does The Loop 10 Times
Select Case Number
    Case 0 'If Number = 0 Then The Following happens
        WScript.Sleep 500 'Stops The Script For 500 …