51Testing软件测试论坛

标题: qtp怎么实现每次启动qtp后产生的随机数不同 [打印本页]

作者: wsryyffs 时间: 2013-9-4 08:13
标题: qtp怎么实现每次启动qtp后产生的随机数不同
用了randomnumber，发现每次重启qtp后，随机数又重新按照原来规则生成。
msgbox randomnumber(800,1000)

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

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

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

作者: wsryyffs 时间: 2013-9-4 09:12
已经从网上找到解决的办法：

'===================================
'作用：生成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
回复 1# wsryyffs

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

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)