键盘响应问题，急！急！请教高手

Question

我觉得写在KeyUp事件里会更好

Answer 1

Private Sub Readout_KeyDown(KeyCode As Integer, Shift As Integer)
     select case keycode
            case vbkey0
            case vbkey1
               .....
            case vbkey9
            case vbkeyAdd '+
            case vbKeyDecimal '小数点
            case vbKeyDivide '除
            case vbKeyMultiply '乘
            case vbKeySubtract '减
     end select
        
End Sub

Answer 2

写在KeyUp事件里是不能响应+,-,*,/,=,.的。
能进行运算吗？请写具体点。谢谢!