|
在随机选择航班里 代码如下
'随机选择航班'
Randomize
Dim suiji
suiji=int(4*rnd)
Select Case suiji
Case 0
Browser("Welcome: Mercury Tours").Page("Select a Flight: Mercury").WebRadioGroup("outFlight").Select "Blue Skies Airlines$360$270$5:03"
Case 1
Browser("Welcome: Mercury Tours").Page("Select a Flight: Mercury").WebRadioGroup("outFlight").Select "Blue Skies Airlines$361$271$7:10"
Case 2
Browser("Welcome: Mercury Tours").Page("Select a Flight: Mercury").WebRadioGroup("outFlight").Select "Pangea Airlines$362$274$9:17"
Case 3
Browser("Welcome: Mercury Tours").Page("Select a Flight: Mercury").WebRadioGroup("outFlight").Select "Unified Airlines$363$281$11:24"
End Select
为什么运行时会出错呢 ?大家帮我看看是不是代码的问题啊!Select里的name是一样的 所以选择的是vault的值。大家帮我看看那里错了 还是我的思路就不正确,谢谢各位了
[ 本帖最后由 angle-ying 于 2010-3-15 21:56 编辑 ] |
|