QTP检查点参数化

wugecat

dim a,b,c,d
a=2
b=3
c=a
Window("计算器").Activate
Window("计算器").WinButton("2").Click
Window("计算器").WinButton("+").Click
Window("计算器").WinButton("3").Click
For i=1to 2
Window("计算器").WinButton("=").Click
c=c+b
d=Window("计算器").WinEdit("Edit").GetROProperty ("text")
    If Clng (c)=Clng (d) Then
                reporter.ReportEvent micPass,"测试结果","通过，结果为："&c
                else
                reporter.ReportEvent micFail,"测试结果","不通过，实际结果为："&d&"预期结果为："&c
        End If
Next
Window("计算器").WinButton("C").Click