QTP的随机数问题

nanice

牛叉~！刚开始我也以为QTP自带的这个函数不可靠，还自己写了一大堆代码进行优化，看来我的担心就是多余的。。。

nanice

我现在一般都用这个：
'获得随机数函数
Public Function Get_RandNum(fromNum,toNum)
If (fromNum<0) Or (toNum<0) Then
  MsgBox "只接受大于零的输入"
ElseIf fromNum>toNum then
  MsgBox "起始值必须小于结束值"
Else
  Dim RunTime
  Dim MyValue
  Randomize(Timer)  
  MyValue =(int(rnd*(toNum - fromNum + 1)))+fromNum
         Get_RandNum=MyValue
   End If
End Function
'''''For m=0 to 9    这个函数是QTP自带的随机数字的产生
'''''i=RandomNumber(0,9)
'''''print  i
'''''Next