调用函数中的数组，解决输入与显示对比的检测

在写脚本，从号码拨号盘点击号码，检测显示框显示是否正确

 

Function CheckNum(i)
Dim shuzu(12)
shuzu(0)="0"
shuzu(1)="1"
shuzu(2)="2"
shuzu(3)="3"
shuzu(4)="4"
shuzu(5)="5"
shuzu(6)="6"
shuzu(7)="7"
shuzu(8)="8"
shuzu(9)="9"
shuzu(10)="*"
shuzu(11)="#"
shuzu(12)="-"
shuzu(13)="+"
num=shuzu(i)
text=Dialog("Lemon").WinEdit("Edit").GetROProperty("text")

 '检测点击通话拨号盘与显示框的显示是否对应
If num=text Then
    Reporter.ReportEvent micPass,"结果比对","预期输出，结果一致；实际输出，结果一致。"
 else
 Reporter.ReportEvent micfail,"结果比对","预期输出，结果一致；实际输出，结果不一致。"
End If

'清空显示框数字，为输入下一个符号准备
Dialog("Lemon").WinEdit("Edit").Set ""
  
End Function

'从拨号盘点击按键输入号码的测试
Reporter.ReportEvent micdone," 从拨号盘点击按键输入号码的测试","注：以下12条报告。"
Dialog("Lemon").WinButton("Number0").Click
CheckNum(0)
Dialog("Lemon").WinButton("Number1").Click
CheckNum(1)
Dialog("Lemon").WinButton("Number2").Click
CheckNum(2)
Dialog("Lemon").WinButton("Number3").Click
CheckNum(3)
Dialog("Lemon").WinButton("Number4").Click
CheckNum(4)
Dialog("Lemon").WinButton("Number5").Click
CheckNum(5)
Dialog("Lemon").WinButton("Number6").Click
CheckNum(6)
Dialog("Lemon").WinButton("Number7").Click
CheckNum(7)
Dialog("Lemon").WinButton("Number8").Click
CheckNum(8)
Dialog("Lemon").WinButton("Number9").Click
CheckNum(9)
Dialog("Lemon").WinButton("Star").Click
CheckNum(10)
Dialog("Lemon").WinButton("Pound").Click
CheckNum(11)