英语翻译我要全部翻译出来 ' Check for normal characters.Private Sub Form_KeyPress(KeyAscii As Integer)txtDisplay_KeyPress KeyAsciiEnd Sub' Check for unusual characters.Private Sub Form_KeyUp(KeyCode As Integer,Shift As Integer)txtDisplay_K

英语翻译我要全部翻译出来 ' Check for normal characters.Private Sub Form_KeyPress(KeyAscii As Integer)txtDisplay_KeyPress KeyAsciiEnd Sub' Check for unusual characters.Private Sub Form_KeyUp(KeyCode As Integer,Shift As Integer)txtDisplay_K
英语翻译
我要全部翻译出来
' Check for normal characters.
Private Sub Form_KeyPress(KeyAscii As Integer)
txtDisplay_KeyPress KeyAscii
End Sub
' Check for unusual characters.
Private Sub Form_KeyUp(KeyCode As Integer,Shift As Integer)
txtDisplay_KeyUp KeyCode,Shift
End Sub
' Keep the cursor on the right.
Private Sub txtDisplay_Change()
txtDisplay.SelStart = Len(txtDisplay.Text)
End Sub
' Keep the cursor on the right.
Private Sub txtDisplay_GotFocus()
txtDisplay_Change
End Sub
' Check for normal characters.
Private Sub txtDisplay_KeyPress(KeyAscii As Integer)
Dim ch As String
ch = Chr$(KeyAscii)
Select Case ch
Case "0"
cmdNumber_Click 0
Case "1"
cmdNumber_Click 1
Case "2"
cmdNumber_Click 2
Case "3"
cmdNumber_Click 3
Case "4"
cmdNumber_Click 4
Case "5"
cmdNumber_Click 5
Case "6"
cmdNumber_Click 6
Case "7"
cmdNumber_Click 7
Case "8"
cmdNumber_Click 8
Case "9"
cmdNumber_Click 9
Case "*","x","X"
cmdOperator_Click opMultiply
Case "+"
cmdOperator_Click opAdd
Case vbCrLf,vbCr,"="
cmdEquals_Click
Case "-"
cmdOperator_Click opSubtract
Case "."
cmdDecimal_Click
Case "/"
cmdOperator_Click opDivide
Case "C","c"
cmdClearEntry_Click
End Select
KeyAscii = 0
End Sub
' Check for unusual characters.
Private Sub txtDisplay_KeyUp(KeyCode As Integer,Shift As Integer)
Select Case KeyCode
Case vbKeyNumpad0
cmdNumber_Click 0
Case vbKeyNumpad1
cmdNumber_Click 1
Case vbKeyNumpad2
cmdNumber_Click 2
Case vbKeyNumpad3
cmdNumber_Click 3
Case vbKeyNumpad4
cmdNumber_Click 4
Case vbKeyNumpad5
cmdNumber_Click 5
Case vbKeyNumpad6
cmdNumber_Click 6
Case vbKeyNumpad7
cmdNumber_Click 7
Case vbKeyNumpad8
cmdNumber_Click 8
Case vbKeyNumpad9
cmdNumber_Click 9
Case vbKeyMultiply
cmdOperator_Click opMultiply
Case vbKeyAdd
cmdOperator_Click opAdd
Case vbKeySeparator
cmdEquals_Click
Case vbKeySubtract
cmdOperator_Click opSubtract
Case vbKeyDecimal
cmdDecimal_Click
Case vbKeyDivide
cmdOperator_Click opDivide
Case vbKeyBack,vbKeyDelete
DeleteCharacter
End Select
KeyCode = 0
End Sub

英语翻译我要全部翻译出来 ' Check for normal characters.Private Sub Form_KeyPress(KeyAscii As Integer)txtDisplay_KeyPress KeyAsciiEnd Sub' Check for unusual characters.Private Sub Form_KeyUp(KeyCode As Integer,Shift As Integer)txtDisplay_K
'检查正常的字符.
私人小组Form_KeyPress （ KeyAscii为整数）
txtDisplay_KeyPress KeyAscii
小组完
'检查是否有不寻常的字符.
私人小组Form_KeyUp （键码为整数,转变为整数）
txtDisplay_KeyUp键码,移
小组完
'保持光标的权利.
私人小组txtDisplay_Change （ ）
txtDisplay.SelStart =长度（ txtDisplay.Text ）
小组完
'保持光标的权利.
私人小组txtDisplay_GotFocus （ ）
txtDisplay_Change
小组完
'检查正常的字符.
私人小组txtDisplay_KeyPress （ KeyAscii作为整数）
昏暗通道作为字符串
染色体的CH = $ （ KeyAscii ）
选择病例路
案例“ 0 ”
cmdNumber_Click 0
案例“ 1 ”
cmdNumber_Click一日
案“ 2 ”
cmdNumber_Click第2
案“ 3 ”
cmdNumber_Click三
案“ 4 ”
cmdNumber_Click第4
案“ 5 ”
cmdNumber_Click五日
案“ 6 ”
cmdNumber_Click 6日
案“ 7 ”
cmdNumber_Click 7日
案“ 8 ”
cmdNumber_Click 8日
案“ 9 ”
cmdNumber_Click 9日
案例“ * ” ,“ × ” ,“ X ”的
cmdOperator_Click opMultiply
案例“ + ”
cmdOperator_Click opAdd
案例vbCrLf ,vbCr ,“ = ”
cmdEquals_Click
案例“ -”
cmdOperator_Click opSubtract
案“ .”
cmdDecimal_Click
案例“ / ”
cmdOperator_Click opDivide
判例的“ C ” ,“ C ”类
cmdClearEntry_Click
最终选择
KeyAscii = 0
小组完
'检查是否有不寻常的字符.
私人小组txtDisplay_KeyUp （键码作为整数,移作为整数）
选取案例键码
案例vbKeyNumpad0
cmdNumber_Click 0
案例vbKeyNumpad1
cmdNumber_Click一日
案例vbKeyNumpad2
cmdNumber_Click第2
案例vbKeyNumpad3
cmdNumber_Click三
案例vbKeyNumpad4
cmdNumber_Click第4
案例vbKeyNumpad5
cmdNumber_Click五日
案例vbKeyNumpad6
cmdNumber_Click 6日
案例vbKeyNumpad7
cmdNumber_Click 7日
案例vbKeyNumpad8
cmdNumber_Click 8日
案例vbKeyNumpad9
cmdNumber_Click 9日
案例vbKeyMultiply
cmdOperator_Click opMultiply
案例vbKeyAdd
cmdOperator_Click opAdd
案例vbKeySeparator
cmdEquals_Click
案例vbKeySubtract
cmdOperator_Click opSubtract
案例vbKeyDecimal
cmdDecimal_Click
案例vbKeyDivide
cmdOperator_Click opDivide
案例vbKeyBack ,vbKeyDelete
DeleteCharacter
最终选择
键码= 0
小组完

计算器程序的其中一段，用于键盘输入捕获的，写的很明白啊。劝LZ学好基本功