我朋友教我编了个简单计算器
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个问题?
对不起,没有什么积分。。。
你好,谢谢你的答案.
帮我解决下这个问题 我弄好后,运行了,什么也不填,直接按 加、减、乘或除
怎么编辑错误信息 例如 请输入数字 数字太大了(益出那个错误)