求解，这是什么原因!~~急弄了一下午都没弄出来 谢谢了

fkueangle

我想对FLY FROM下拉列表中的每个值都进行一次选择，代码是
Dim i
SystemUtil.Run "C:\Program Files\HP\QuickTest Professional\samples\flight\app\flight4a.exe","","C:\Program Files\HP\QuickTest Professional\samples\flight\app\","open"
Dialog("Login").WinEdit("Agent Name:").Set "sdfasd"
Dialog("Login").WinEdit("Password:").SetSecure "4e4107e1857a11995a162cd5cddca7ff2a6a1e07"
Dialog("Login").WinEdit("Password:").Type  micReturn
Window("Flight Reservation").ActiveX("MaskEdBox").Type "111111"
a1=window("Flight Reservation").WinComboBox("Fly From:").Getitemscount
For i=0 to a1-1
window("Flight Reservation").WinComboBox("Fly From:").Select Randomnumber(0,a1-1)
x=window("Flight Reservation").WinComboBox("Fly From:").GetROProperty("selection")
print x
Next
打印出来的却是
Sydney
London
Sydney
Seattle
San Francisco
Portland
Seattle
Seattle
Los Angeles
Portland
求高手指点。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。

lyscser

有毛问题么？

fkueangle

回复 2# lyscser


    和我想要的结果不是一样，结果中运行10词出现了几次相同的，没达到遍历的效果

lyscser

For i=0 to a1-1
  window("Flight Reservation").WinComboBox("Fly From:").Select Randomnumber(0,a1-1)
  x=window("Flight Reservation").WinComboBox("Fly From:").GetROProperty("selection")
  print x
Next

莫非你要求随机数永不重复？

lyscser

这样就行了
For i=0 to a1-1
  window("Flight Reservation").WinComboBox("Fly From:").Select i
  x=window("Flight Reservation").WinComboBox("Fly From:").GetROProperty("selection")
  print x
Next

fkueangle

回复 5# lyscser


    谢谢！~我试试，是要达到永不重复的目的

lin1990819

旁观。学到了一点。

maliya1314

怎么可能永不重复？

rogerliu0303

最简单的办法是参数化
如果用random不能保证不重复
5#的方法可以