我没什么积分，不好意思，，我用我自己写出来的计算器的时候发现了一个问题，如果在不填任何数值的时候直接点击加法，那么那就会弹出 错误类型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，，溢出不好意思，一开整错了

哦，多谢，，我看下你发给我大代码，不管结果如何，谢谢啦O(∩_∩)O~

不好意思，haiyungood，能弄下代码的排版吗？

还有就是问下Str函数的含义以及用法

多谢haiyungood计算器OK了,也多谢haigecnpeng的回答,让此贴沉默吧

哦,多谢啦,O(∩_∩)O~