qtp怎么实现每次启动qtp后产生的随机数不同

wsryyffs

用了randomnumber，发现每次重启qtp后，随机数又重新按照原来规则生成。
msgbox randomnumber(800,1000)

第一次启动qtp:
第一次执行：800
第二次执行：847
第三次执行：930

第二次启动qtp:
第一次执行：800
第二次执行：847
第三次执行：930

我想要的效果是第二次启动qtp后的结果和第一次启动qtp的结果不同，如何能实现？

wsryyffs

已经从网上找到解决的办法：

'===================================
'作用：生成fromNum～toNum之间的随机数
'参数：fromNum~toNum=随机数范围
'返回值：随机数
'===================================
Function getRandNum(fromNum,toNum)
       If (fromNum<0) or (toNum<0) Then
              MsgBox "只接受大于零的输入"
              getRandNum = -1
       ElseIf fromNum>toNum then
              MsgBox "起始值必须小于结束值"
              getRandNum = -1
       Else
              Randomize  
              Dim myRnd
              myRnd =  Int(((toNum - fromNum + 1) * Rnd) + fromNum)
              getRandNum = myRnd
       End If
End Function

Dim x
x = getRandNum(800,1000)
msgbox x

黑羽祭

回复 1# wsryyffs


    http://www.cydtest.com/?p=218