【QTP】随机数

上一篇 / 下一篇 2012-11-13 13:52:18 / 个人分类：QTP

查看( 2288 ) / 评论( 3 ) / 评分( 0 / 0 )

先看一段代码，下面是生成20个0-9之间的随机整数

Randomize '这句不写，每次运行得到的随机数都是一样的
Dim i
For i = 1 to 50
print int(Rnd*10)
Next

这就是简单的随机数用法。

假设需要x到y之间的随机整数，

则代码为Int(((y - x + 1) * Rnd) +x)

也可以写成函数：

Dim x
x = getRandNum(2,20)
msgbox x

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

补充：

感谢songfun的提点：

如果需要A到B的随机数，在QTP中可直接使用，上面的脚本，也可以当脚本的学习之用：

RandomNumber(a,b)

【QTP】随机数

相关阅读: