软件测试论坛 › [QuickTest Professional] › qtp怎么实现每次启动qtp后产生的随机数不同

wsryyffs 发表于 2013-9-4 08:13:56

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

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

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

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

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

wsryyffs 发表于 2013-9-4 09:12:40

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

'===================================
'作用：生成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

黑羽祭 发表于 2013-9-4 09:55:34

回复 1# wsryyffs


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

查看完整版本: qtp怎么实现每次启动qtp后产生的随机数不同