代码跑不通的问题

pitera

各位大大，下面的代码跑不通，总会报错，帮藕看看？(mercury的示例网站上http://newtours.mercuryinteractive.com/tour，设置passanger的数量为（1-4）任意一个数字时，在book a flight界面上输入的人名数量相应改变)不知道哪里出问题了，多谢各位大大！






Dim n
Randomize
=Int((4* Rnd) + 1)



Sub setName()
counter=0
For i = 0 to n


Browser("opentitle:=Welcome: Mercury Tours").Page("title:=Book a Flight: ").WebEdit("name:=passFirst&i").Set "AA2"
Browser("opentitle:=Welcome: Mercury Tours").Page("title:=Book a Flight: ").WebEdit("name:=passLast&i").Set "BB"

counter = counter + 1
Next
End Sub



Browser("Welcome: Mercury Tours").Page("Welcome: Mercury Tours_2").WebEdit("userName").Set "pitera"
Browser("Welcome: Mercury Tours").Page("Welcome: Mercury Tours_2").WebEdit("password").SetSecure "4716fe482f57fe9d294b0d080929b4badd3144f326ec"
Browser("Welcome: Mercury Tours").Page("Welcome: Mercury Tours_2").Image("Sign-In").Click 12,2

Browser("Welcome: Mercury Tours").Page("Find a Flight: Mercury_2").WebList("passCount").SetTOProperty"selection",n  'n=2

Browser("Welcome: Mercury Tours").Page("Find a Flight: Mercury_2").Image("findFlights").Click 16,10
Browser("Welcome: Mercury Tours").Page("Select a Flight: Mercury_2").Image("reserveFlights").Click 40,4






Call setName()

Browser("Welcome: Mercury Tours").Page("Book a Flight: Mercury_2").WebEdit("creditnumber").Set "123"
Browser("Welcome: Mercury Tours").Page("Book a Flight: Mercury_2").Image("buyFlights").Click 47,7
Browser("Welcome: Mercury Tours").Page("Flight Confirmation: Mercury_2").Image("home").Click

[ 本帖最后由 pitera 于 2007-10-18 15:49 编辑 ]

pitera

不行，还是报同样的错
jacky 你对mercury QTP的web demo 熟悉吗？就是那个官方网站上的内容！我只是拿来实验一下！ 想把find a flight 界面上的passenger 的list 参数化，然后在book a flight页面上按照参数的实际数字填入firstname 和lastname

[ 本帖最后由 pitera 于 2007-10-18 17:10 编辑 ]

jackymail

&i"从引号里面拿出来  WebEdit("name:=PassFirst"&i)
LoadRunner你也装了呀，用得怎么样啊？

[ 本帖最后由 jackymail 于 2007-10-18 16:31 编辑 ]

pitera

嘿嘿，不知道怎么把图片直接放在帖子里!

于是报错的图片内容见附件

yrcyh_02

不知道，顶一下

hsjzfling

把报错的信息截图贴上来，同时指明是在哪一行代码报错的。不然没针对性的看，太累

Sub setName()
counter=0
For i = 0 to n
中的n貌似应改为n-1