使用系统计算器计算输入算式

'\\输入算式计算结果
Function shuzhi(a)
    If window("计算器").Exist Then
        Else
        SystemUtil.Run "C:\Windows\system32\calc.exe"'启动计算器
    End If
    For i = 0 To 9 Step 1
    If  i=CInt(a) Then
        window("计算器").WinButton("window id:=13"&i).Click
        Exit for
    End If
    Next
End Function
Function jisuan(b)
    If window("计算器").Exist Then
        Else
        SystemUtil.Run "C:\Windows\system32\calc.exe"
    End If
    Select Case b
        Case "." Window("计算器").WinButton("window id:=84").Click
        Case "+" Window("计算器").WinButton("window id:=93").Click
        Case "-" Window("计算器").WinButton("window id:=94").Click
        Case "*" Window("计算器").WinButton("window id:=92").Click
        Case "/" Window("计算器").WinButton("window id:=91").Click
        Case "%" Window("计算器").WinButton("window id:=118").Click
        Case "√" Window("计算器").WinButton("window id:=110").Click
    End Select
End Function
Dim SZ,r,l,JG
SZ = inputBox("请输入测试用例","计算器测试")
For j = 1 To len(SZ) Step 1
    l=Left(SZ,j)
    r=Right(l,1)
    If r>="0" and r<="9" Then
        shuzhi(r)
    Else
        jisuan(r)
    End If    
Next
Window("计算器").WinButton("window id:=121").Click
JG = Window("计算器").Static("window id:=150").GetROProperty("text")
print SZ&"="&JG
Window("计算器").WinButton("window id:=81").Click'清零