qtp web随机获取下拉框的值

1.先顶一个随机获取数的函数

　　Function GetList(i)
   　　randomize
  　　 GetList=RandomNumber(0,i)
　　End Function

2.以下就是纯代码了，这里只展示一个下拉框是如何取值的

　　Dim stcount,stnum,rel,stobj
　　Set stobj=browser("BIP管理平台").Page("BIP管理平台").WebList("read").Object
　　stcount=stobj.options.length  '获取下拉框对象的值个数
　　'msgbox(stcount)
　　stnum=GetList(stcount-1)  '调用随机数函数，获取随机一个整数
　　'msgbox(stnum)
　　rel=stobj.options.item(stnum).text  '获取项相应的文本值
　　'msgbox(rel)
　　browser("BIP管理平台").Page("BIP管理平台").WebList("read").Select rel  '改变下拉框的文本框取值

3.OK，就这样完成啊！