仅制作一个数字而不是多次在0到2之间的数字

Question

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

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 Milliseconds
        Keys.SendKeys("{NUMLOCK}") 'Pushes The Number Lock
    Case 1 'If Number = 1Then The Following happens
        WScript.Sleep 500 'Stops The Script For 500 Milliseconds
        Keys.SendKeys("{CAPSLOCK}") 'Pushes The Caps Lock
    Case 2 'If Number = 2 Then The Following happens
        WScript.Sleep 500 'Stops The Script For 500 Milliseconds
        Keys.SendKeys("{SCROLLLOCK}") 'Pushes The Scroll Lock
End Select
X = X + 1 'Increment
Loop

Answer 1

发表评论作为答案......

好吧,对于初学者,你可能想把你的方程式放在循环中,这样它就会在每次循环后重新生成随机数.