比較數字大小,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