作业帮 > 综合 > 作业

关于QTP的问题,软件测试

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/06 16:52:41
关于QTP的问题,软件测试
Dim i,m
Browser("Find a Flight:Mercury").Page("Flight Confirmation:Mercury").Link("Flights").Click
Browser("Find a Flight:Mercury").Page("Find a Flight:Mercury").WebList("passCount").Select DataTable("passenger",dtGlobalSheet)
m = Browser("Find a Flight:Mercury").Page("Find a Flight:Mercury").WebList("passCount").GetROProperty("all items")
Browser("Find a Flight:Mercury").Page("Find a Flight:Mercury").Image("findFlights").Click 59,17
Browser("Find a Flight:Mercury").Page("Select a Flight:Mercury").Image("reserveFlights").Click 51,10
For i = 0 To m-1 Step 1
Browser("Find a Flight:Mercury").Page("Book a Flight:Mercury").WebEdit("passFirst&i").Set "j"
Browser("Find a Flight:Mercury").Page("Book a Flight:Mercury").WebEdit("passLast&i").Set "j"
Next
Browser("Find a Flight:Mercury").Page("Book a Flight:Mercury").WebEdit("creditnumber").Set "1"
Browser("Find a Flight:Mercury").Page("Book a Flight:Mercury").Image("buyFlights").Click 46,16
这段代码,如何改正才能正确,主要有一个类型不匹配的错误
1.m = Browser("Find a Flight:Mercury").Page("Find a Flight:Mercury").WebList("passCount").GetROProperty("all items") 2.For i = 0 To m-1 Step 1 For语句中m应该是整型,但all items取得是字符串,所以类型不匹配 应该改为 m = Browser("Find a Flight:Mercury").Page("Find a Flight:Mercury").WebList("passCount").GetROProperty("items count") 根据我的经验错误应该是这样的,