轻狂大小姐免费阅读:VB编程的错误等等问题...

我朋友教我编了个简单计算器

Private Sub Command1_Click()
Text3.Text = ""
Text2.Text = ""
Text1.Text = ""
End Sub

Private Sub Command2_Click()
Dim x As Integer
Dim y As Integer
x = Text1.Text
y = Text2.Text
Text3.Text = x + y
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Command4_Click()
Dim x As Integer
Dim y As Integer
x = Text1.Text
y = Text2.Text
Text3.Text = x - y
End Sub

Private Sub Command5_Click()
Dim x As Integer
Dim y As Integer
x = Text1.Text
y = Text2.Text
Text3.Text = x * y
End Sub

Private Sub Command6_Click()
Dim x As Integer
Dim y As Integer
x = Text1.Text
y = Text2.Text
Text3.Text = x / y
End Sub

Private Sub Form_Load()

End Sub

这是代码

我弄好后,运行了,什么也不填,直接按 加、减、乘或除

就会出错

1、
运行时错误 '13'

类型不匹配 ----请问怎么解决

2、
数字大了点就出现了

实时错误'6'
益处

谢谢，请问怎么解决这2个问题？

对不起，没有什么积分。。。
你好,谢谢你的答案.

帮我解决下这个问题 我弄好后,运行了,什么也不填,直接按 加、减、乘或除

怎么编辑错误信息 例如 请输入数字 数字太大了(益出那个错误)