linwenyan 2008-6-18 19:06
为什么每次生成的随机数都是一样的？
脚本：
PageSizeSel_Count = Browser("Browser").Page("新建订单(选择顾客)").WebList("pageSizeSel").GetTOProperty("items count")
Print "PageSizeSel_Count :"&" "&PageSizeSel_Count&chr(13)&chr(10)
PageSizeSel_Index=Int (rnd * PageSizeSel_Count )
Print "PageSizeSel_Index:"&" "&PageSizeSel_Index&chr(13)&chr(10)
（注：PageSizeSel_Count =4）
请教：为什么PageSizeSel_Index每次生成的随机数都是2？
lantianwei 2008-6-18 22:31
应该是没有randomise
linwenyan 2008-6-18 22:59
randomise
PageSizeSel_Count = Browser("Browser").Page("新建订单(选择顾客)").WebList("pageSizeSel").GetTOProperty("items count")
PageSizeSel_Index=Int (rnd * PageSizeSel_Count )
是这样吗？
Randall 2008-6-18 23:12
对的 Randomize 是随机种子，初始化随机数产生器时用
linwenyan 2008-6-18 23:36
原来是这样，谢谢！:)
antony_pan 2008-6-19 11:50
你可以把初始化随机数产生器设置为系统的时间，这样就不可能相同了
linwenyan 2008-6-19 13:11
randomise后面不跟参数就是把初始化随机数产生器设置为系统的时间吧，
谢谢！
linwenyan 2008-6-19 13:36
在一个脚本当中只要randomise初始化一次，还是每次使用rnd函数的时候都要用randomise初始化?
luckxiaot 2008-6-19 13:50
Function Get_Ran(i)
Randomize
Get_Ran=RandomNumber (0,i)
End Function
PageSizeSel_Count = Browser("Browser").Page("新建订单(选择顾客)").WebList("pageSizeSel").GetTOProperty("items count")
Print "PageSizeSel_Count :"&" "&PageSizeSel_Count&chr(13)&chr(10)
Ran_Number=Get_Ran(PageSizeSel_Count-1)
PageSizeSel_Count = Browser("Browser").Page("新建订单(选择顾客)").WebList("pageSizeSel").Select "#"&Ran_Number
估计这样就可以了！！！！
linwenyan 2008-6-19 15:19
谢谢!