2013-08-18 13 views
6

我想知道如何,(在VBScript中)生成一个随机数字不会在相同的不同计算机,然后使用该数字,也许使用一些If语句,以便激活10个可能的选项之一,例如。VBScript - 如何生成一个随机数,然后一个If语句来使用这个数字来选择一个选项

If (A random number between 1 - 10, eg. 2) then (Continue on part of script then wscript.quit) 
Else if (A different number, eg. 7) then (continue on to different part of script then wscript.quit) 

所以我将有10个不同的选项脚本随机选择。

这可能吗?如果是这样,那么有人能够编译一个这样的例子,所以我可以把我自己的脚本,并使用它? 感谢任何答案!

回答

9

您需要randomizernd
int(rnd * n) + 1评估为1到n之间的整数。
你可以使用select case...这里为好,试试这个:

dim r 
randomize 
r = int(rnd*10) + 1 
select case r 
    case 2 
     '... 

    case 7 
     '... 

end select 
+0

非常感谢你,这个工作完美:) – CerealKiller

4

,如果你愿意从兰特最小到最大:

Dim max,min,rand 
max=54 
min=23 
Randomize 
rand = Int((max-min+1)*Rnd+min) 
WScript.Echo rand 
-2
Dim i 

For i=1 to 5 

Randomize 

a=Rnd 
b=a+1 

msgbox b 

Next 
+1

不需要在循环的每次迭代中调用Randomize(),您都可能会使该过程变得更加随机。 – Lankymart

相关问题