QTP中随即选择下拉列表框

Dim i
For i=1 to 6
Browser("Tootoo.Com: China Sourcing").Page("Tootoo.Com: China Sourcing").Image("01b").FireEvent "onmouseover"
Browser("Tootoo.Com: China Sourcing").Page("Tootoo.Com: China Sourcing").Image("01b").Click
IndexNum=randomnumber(0,5)
msgbox IndexNum
Browser("Tootoo.Com: China Sourcing").Page("TQS - The place to find").WebList("country").Select "#"&IndexNum
wait 2.5
Browser("Tootoo.Com: China Sourcing").Page("TQS - The place to find").WebButton("Next").Click
Browser("Tootoo.Com: China Sourcing").Page("TQS - The place to find_3").Image("logo_test").Click
Browser("Tootoo.Com: China Sourcing").Page("Tootoo.Com: China Sourcing").Sync
Next

循环了6次，主要看每次的随即数有什么变化……