在QTP中要取隨機(jī)數(shù)，比如取0到100的數(shù)，可以用兩種方法

1. 

Randomize（表示不取重復(fù)的，可以不要）

 cran=RandomNumber (0,100)
2.QTP幫助中的Rnd方法：

Int((upperbound - lowerbound + 1) * Rnd + lowerbound)

cran=int((100-0+1)*rnd+0)

 

在Web頁(yè)面錄制中，經(jīng)常要用到取WebList中的第X項(xiàng)的值，這就必須得用隨機(jī)取值了，下面是一個(gè)例子：

下面是http://www.上兩個(gè)WebList任取值的腳本，注釋了的是一種方法，這種方法比較死：WebList的總項(xiàng)items count是先算出來(lái)的；第二種方法比較全接近全自動(dòng)：WebList中的items count是通過(guò)GetRoProperty這個(gè)函數(shù)得到的。所以第二種方法代碼比第一種方法精練很多。如果有朋友有興趣試試的話，只要把網(wǎng)站上的站內(nèi)搜索錄制一遍或者把所需要的對(duì)象中到對(duì)像庫(kù)中，然后直接把腳本拷進(jìn)去運(yùn)行就OK了，記?。哼@里是兩種方法；

'Dim Get_Ran,ran1,ran2,ran3,ran4,ran6
'Randomize
'Get_Ran=RandomNumber (0,14)
'Browser("廈門市物業(yè)管理協(xié)會(huì)").Page("廈門市物業(yè)管理協(xié)會(huì)").WebList("catalog").Select "#"&Get_Ran
'msgbox Get_Ran
'If (Get_Ran=0 or Get_Ran=5 or Get_Ran=9 or Get_Rnd=10 or Get_Ran=11 or Get_Rnd=12 or Get_Ran=13 or Get_an=14) Then
'   ran1= 1
'  Browser("廈門市物業(yè)管理協(xié)會(huì)").Page("廈門市物業(yè)管理協(xié)會(huì)").WebList("sort").Select "#"&ran1
'elseif (Get_Ran=3 or Get_Ran=6 or Get_Ran=8) then
'     Randomize
'  ran2=RandomNumber (0,1)
'  Browser("廈門市物業(yè)管理協(xié)會(huì)").Page("廈門市物業(yè)管理協(xié)會(huì)").WebList("sort").Select "#"&ran2
'elseif (Get_Ran=7) then
'  Randomize
'  ran3=RandomNumber(0,2)
'     Browser("廈門市物業(yè)管理協(xié)會(huì)").Page("廈門市物業(yè)管理協(xié)會(huì)").WebList("sort").Select "#"&ran3
'elseif (Get_Ran=1 or Get_Ran=2) then
'  Randomize
'  ran4=RandomNumber(0,3)
'  Browser("廈門市物業(yè)管理協(xié)會(huì)").Page("廈門市物業(yè)管理協(xié)會(huì)").WebList("sort").Select "#"&ran4
'else
'  Randomize
'  ran6=RandomNumber(0,5)
'  Browser("廈門市物業(yè)管理協(xié)會(huì)").Page("廈門市物業(yè)管理協(xié)會(huì)").WebList("sort").Select "#"&ran6
'End If
''Browser("廈門市物業(yè)管理協(xié)會(huì)").Page("廈門市物業(yè)管理協(xié)會(huì)").WebList("sort").Select "國(guó)家性政策、法規(guī)"
'Browser("廈門市物業(yè)管理協(xié)會(huì)").Page("廈門市物業(yè)管理協(xié)會(huì)").WebEdit("key").Set "12"
'Browser("廈門市物業(yè)管理協(xié)會(huì)").Page("廈門市物業(yè)管理協(xié)會(huì)").Image("search").Click

方法二：

 Dim cran,ccout,scout,sran
 Randomize
 ccout=Browser("廈門市物業(yè)管理協(xié)會(huì)").Page("廈門市物業(yè)管理協(xié)會(huì)").WebList("catalog").GetROProperty( "items count")
 cran=RandomNumber (0,ccout-1)
 msgbox cran
 Browser("廈門市物業(yè)管理協(xié)會(huì)").Page("廈門市物業(yè)管理協(xié)會(huì)").WebList("catalog").Select "#"&cran
 scout=browser("廈門市物業(yè)管理協(xié)會(huì)").Page("廈門市物業(yè)管理協(xié)會(huì)").WebList("sort").GetROProperty( "items count")
 sran=RandomNumber(0,scout-1)
 msgbox sran
 Browser("廈門市物業(yè)管理協(xié)會(huì)").Page("廈門市物業(yè)管理協(xié)會(huì)").WebList("sort").Select "#"&sran
 Browser("廈門市物業(yè)管理協(xié)會(huì)").Page("廈門市物業(yè)管理協(xié)會(huì)").WebEdit("key").Set "12"
 Browser("廈門市物業(yè)管理協(xié)會(huì)").Page("廈門市物業(yè)管理協(xié)會(huì)").Image("search").Click