发布一款简单计算器，便于生活中的加减乘除，附带源，欢迎大家优化更改

其实都是去百度VB吧和csdn混资源的，你可以去看看

你这个如何算的，看上去很高级嘛

这个用处应该不算太大

果然是简单。。。太简单了。。。

大佬什么意思，没懂，该句是为了排除除数为0 的计算报错，我测试国1e-20都没有报错

if c=0 then,这句不是应该写为类似 if abs(c)<1e-8 then 这样的吗？除非你只做整数运算

感谢大佬分享，这个计算器能分享下吗

感谢评价

Private Sub Command1_Click() Dim a As Double, b As Double, c As Double, d As Single, e As Single, f As Single, g As Double b = 10# a = 3# e = 10# d = 3# c = b / a f = e / d g = f - c If g = 0 Then MsgBox "除数为零！" Else MsgBox g End IfEnd Sub测试一下，会发现g并不等于0

附件的计算器不能用吗？？？