【QTP】随机数

先看一段代码，下面是生成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)
print 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