QTP自动化测试计算器（输入用例进行测试）

'这个程序能实现由用户输入一些测试用例来对Windows计算器进行测试，输入的格式为：“1+2，4*6，……”每个用例用逗号分隔，可以实现加减乘除等计算。
'Designer:LingliZeng
'Date:2008-10-23
'This program is designed for software testier to excute his test cases
'
Dim myString
myString = InputBox("输入测试用例数据：","计算器测试")
Dim mslength
mslength = len(myString)
SystemUtil.Run "C:\WINDOWS\system32\calc.exe","","C:\WINDOWS\system32","open"
Dim myClick
Window("计算器").WinButton("C").Click

For iloop = 1 to mslength
 myClick = mid(myString,iloop,1)
    call setClick(myClick)
Next

Window("计算器").WinButton("=").Click
msgbox "先看看你的计算结果吧" 
Window("计算器").WinButton("C").Click
Window("计算器").Close

'define my functions
Sub setClick(ByVal sclick)
Select Case sclick
      Case "0","1","2","3","4","5","6","7","8","9", "+","-","*","/"
         Window("计算器").WinButton(sclick).Click
      Case ",","="
         Window("计算器").WinButton("=").Click
      msgbox "先看看你的计算结果吧"      
      Case "C"
         Window("计算器").WinButton("C").Click           
   End Select
End Sub

'这个程序还需要更多的功能，希望大家一起来完善它。——Lingli Zeng