救急：我需要用vb编的计算器代码

添加4个command控件,两个text
Private Sub Command1_Click()
Dim a, b, c As Integer
a = Val(Text1.Text)
b = Val(Text2.Text)
c = a / b
MsgBox c '弹出答案
End Sub

Private Sub Command2_Click()
Dim a, b, c As Integer
a = Val(Text1.Text)
b = Val(Text2.Text)
c = a + b
MsgBox c '弹出答案
End Sub

Private Sub Command3_Click()
Dim a, b, c As Integer
a = Val(Text1.Text)
b = Val(Text2.Text)
c = a - b
MsgBox c '弹出答案
End Sub

Private Sub Command4_Click()
Dim a, b, c As Integer
a = Val(Text1.Text)
b = Val(Text2.Text)
c = a * b
MsgBox c '弹出答案
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then
'如果按的不是数字键
If KeyAscii <> 8 Then '如果按的不是退格键
KeyAscii = 0 '则按键无效
End If
End If
End Sub

Private Sub Text2_KeyP