
2个回答
展开全部
识别数字,可用找图命令,或大漠插件。
比较数字大小,dim定义输入一个变量,用if判断变量与识别的数字做判断。
下面提供,关于数字的操作命令作产考为
获取(界面输入框1)内0-9的数字,执行10种类型操作
Dim MyString(9),数组
数组 = Form1.InputBox1.Text
For i = 0 To 9
MyString(i) = Mid(数组, (i + 1), 1)
If MyString(i) = 0 Then
KeyPress "0", 1
MyPos = 0
ElseIf MyString(i) = 1 Then
KeyPress "1", 1
MyPos = 0
ElseIf MyString(i) = 2 Then
KeyPress "2", 1
MyPos = 0
ElseIf MyString(i) = 3 Then
KeyPress "3", 1
MyPos = 0
ElseIf MyString(i) = 4 Then
KeyPress "4", 1
MyPos = 0
ElseIf MyString(i) = 5 Then
KeyPress "5", 1
MyPos = 0
ElseIf MyString(i) = 6 Then
KeyPress "6", 1
MyPos = 0
ElseIf MyString(i) = 7 Then
KeyPress "7", 1
MyPos = 0
ElseIf MyString(i) = 8 Then
KeyPress "8", 1
MyPos = 0
ElseIf MyString(i) = 9 Then
KeyPress "9", 1
MyPos = 0
End If
Next
比较数字大小,dim定义输入一个变量,用if判断变量与识别的数字做判断。
下面提供,关于数字的操作命令作产考为
获取(界面输入框1)内0-9的数字,执行10种类型操作
Dim MyString(9),数组
数组 = Form1.InputBox1.Text
For i = 0 To 9
MyString(i) = Mid(数组, (i + 1), 1)
If MyString(i) = 0 Then
KeyPress "0", 1
MyPos = 0
ElseIf MyString(i) = 1 Then
KeyPress "1", 1
MyPos = 0
ElseIf MyString(i) = 2 Then
KeyPress "2", 1
MyPos = 0
ElseIf MyString(i) = 3 Then
KeyPress "3", 1
MyPos = 0
ElseIf MyString(i) = 4 Then
KeyPress "4", 1
MyPos = 0
ElseIf MyString(i) = 5 Then
KeyPress "5", 1
MyPos = 0
ElseIf MyString(i) = 6 Then
KeyPress "6", 1
MyPos = 0
ElseIf MyString(i) = 7 Then
KeyPress "7", 1
MyPos = 0
ElseIf MyString(i) = 8 Then
KeyPress "8", 1
MyPos = 0
ElseIf MyString(i) = 9 Then
KeyPress "9", 1
MyPos = 0
End If
Next
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询
广告 您可能关注的内容 |