QTP录制计算器做2位数的遍历加法运算

gold_85

看到别人问那两位数以上的加法运算，如何写脚本呢.
所以就试写了一个
systemutil.Run "calc.exe"
Dim X,Y
c=0:d=1
For a=1 to 9
    For Y=0 to 99
      For b=0 to 9
           Window("计算器").WinButton("text:="&a).Click
           Window("计算器").WinButton("text:="&c).Click
           Window("计算器").WinButton("+").Click
           Window("计算器").WinButton("text:="&d).Click
           Window("计算器").WinButton("text:="&b).Click
           Window("计算器").WinButton("=").Click
           Window("计算器").WinButton("+").Click
      Next
        d=d+1
        If d>=10 Then
           d=1
           c=c+1
            If  c>=10 Then
                c=0
            End If
        End If
  Next
Next

yujie6832

友情帮顶，不过没看~

gold_85

原帖由 yujie6832 于 2010-2-5 10:09 发表
友情帮顶，不过没看~

  谢谢,版主很尽职尽责呀,大多数求助的帖子都能看到你的影子

yujie6832

原帖由 gold_85 于 2010-2-5 10:16 发表



  谢谢,版主很尽职尽责呀,大多数求助的帖子都能看到你的影子

应尽的职责，不谢~

lantianwei

Sub SetNumber(int iData)
        dim iLen=Len(CStr(iData))
        for i=1 to iLen
                Window("计算器").WinButton("text:="&Mid(CStr(iData),i,1)).Click
        Next
End Sub

此方法也可

vikesgao

不错，学习了