我没什么积分，不好意思，，我用我自己写出来的计算器的时候发现了一个问题，如果在不填任何数值的时候直接点击加法，那么那就会弹出 错误类型13 类型不匹配的框体，有什么办法能解决这个问题吗？谢谢

点+的时候对是否空值作判断

在不填写数值的情况下点+会得到0

Private Sub CO1_Click()
Lb2.Caption = Val(Te1) + Val(Te2)
End Sub
 
Private Sub CO2_Click()
Lb2.Caption = Te1 - Te2
End Sub
 
Private Sub CO3_Click()
Lb2.Caption = Te1 * Te2
End Sub
 
Private Sub Co4_Click()
Lb2.Caption = Val(Te1) / Val(Te2)
End Sub
 
Private Sub CO5_click()
Lb1.Visible = True
End Sub
 
Private Sub CO6_click()
Lb1.Visible = False
End Sub
 
Private Sub Form_Load()
 
End Sub
这些是我写的代码，见笑了

最后那组代码就无视吧

问问题的时候大错字了，，在不填写数值的德时候点击+会得到一个0...点击减法则是运行时错误：13 类型不匹配 乘法也一样 ，，，点击除法怎么运行时错误6，，溢出不好意思，一开整错了

undefined

undefined

undefined

不好意思啊，前面不知道是怎么回事，每次提交总是那样，我改了一下：Private Sub CO1_Click() Lb2.Caption =str( Val(Te1.Text) + Val(Te2.Text) )End Sub Private Sub CO2_Click() Lb2.Caption =str( val(Te1.Text) - val(Te2.Text)) End Sub Private Sub CO3_Click() Lb2.Caption = str(val(Te1.Text) * val(Te2.Text)) End Sub Private Sub Co4_Click() If val(Te2.Text)=0 ThenMsgBox "分母不能为0！",48,"警告"ElseLb2.Caption =str( Val(Te1.Text) / Val(Te2.Text) )End IfEnd Sub