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