QTP自动化测试践_05_答案.docVIP

QTP 自动实践_0 编写人：李聪霞 任务一 打开订单操作中，循环语句的使用 要求1、打开订单为1-10的订单 方法一、参数化 方法二、VBS脚本(使用For循环语句) 要求2、当打开订单的用户名为“”，停止打开订单的操作 所对应的代码： Dim orderno For orderno = 1 to 10 Print orderno SystemUtil.RunC:\ProgramFiles\HP\QuickTest Professional\samples\flight\app\flight4a.exe,,C:\Program Files\HP\QuickTest Professional\samples\flight\app\,open Dialog(Login).WinEdit(Agent Name:).Set amber Dialog(Login).WinEdit(Password:).SetSecure 556d148bea6103264a6f9e96b306fc94b4712bd3 Dialog(Login).WinButton(OK).Click Window(Flight Reservation).WinMenu(Menu).Select File;Open Order... Window(Flight Reservation).Dialog(Open Order).WinCheckBox(Order No.).Set ON Window(Flight Reservation).Dialog(Open Order).WinEdit(Edit).Set orderno Window(Flight Reservation).Dialog(Open Order).WinButton(OK).Click Dim cusName cusName=Window(Flight Reservation).WinEdit(Name:).GetROProperty (text) If cusName=Jon Baker Then Exit For End If Window(Flight Reservation).Close Next 任务二 获得数组元素中的最大值 要求1、定义数组长度为5的数组（元素赋值为5-20之间的随机整数） 要求2、将这5个数组元素值打印在log日志中 要求3、获取这5个数中的最大值 要求4、用msgbox函数输出最大值 所对应的代码： Dim myarray(4) Dim Max,i myarray(0) = 2 myarray(1) = 8 myarray(2) = 4 myarray(3) = 10 myarray(4) = 9 For i = 0 to 4 Randomize myarray(i)=Int((20-1+1)*Rnd+1) myarray(i)=RandomNumber(1,20) Print myarray(i) Next Max = myarray(0) For i = 1 to 4 If Maxmyarray(i) Then Max = myarray(i) End If Next Msgbox 数组最大的值为: Max,,最大值 任务三 “打开订单并发送传真“案例的练习 要求1、录制打开订单操作，并发送传真 要求2、 打开编号为随机整数的订单，并使用SetTOProperty方法来设置TO的属性值，解决对象无法识别的问题 要求3、使用Analog Recording重新补录faxOrder的签名 要求4、录制并回放成功 所对应的代码： 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 amber Dialog(Login).WinEdit(Password:).SetSecure 556d0177c7abc2f5952022fb99404d3930bae2a0 Dialog(Login).WinButton(OK).Click Window(Flight Reservation).WinMenu(Menu).Select File;Open Order... Window(Flight Reservation).Dialog(Open Order).WinCheckBox(Order No.).