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

fkueangle · 发表于 2011-8-9 18:38:59

我想对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
求高手指点。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。

rogerliu0303 · 发表于 2011-8-12 13:28:47

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

maliya1314 · 发表于 2011-8-12 10:12:09

怎么可能永不重复？

lin1990819 · 发表于 2011-8-11 11:53:48

旁观。学到了一点。

fkueangle · 发表于 2011-8-10 16:49:51

回复 5# lyscser

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

lyscser · 发表于 2011-8-10 09:59:29

这样就行了
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

lyscser · 发表于 2011-8-10 09:58:50

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

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

fkueangle · 发表于 2011-8-10 09:28:27

回复 2# lyscser

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

lyscser · 发表于 2011-8-10 08:49:30

有毛问题么？

		自动登录	找回密码
密码			(注-册)加入51Testing

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

相关帖子

站长推荐 /1

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

相关帖子

站长推荐 /1

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