本帖最后由 Parkourr 于 2020-11-27 10:09 编辑
发布一个只能加减乘除的计算器，简单好用VB6.0写的，之前用windows的计算器总觉得不好用，个人觉得还行吧，后续再优化下
正常计算
晓彬计算器.rar
(56.74 KB, 下载次数: 38)
晓彬计算器源程序.rar
(620 Bytes, 下载次数: 15)
Private Sub close_Click()
End
End Sub
Private Sub jisuan_Click()
Dim a As Double
Dim b As String
Dim c As Double
a = shu1.Text
b = fuhao.Text
c = shu2.Text
Call jisuanguocheng(a, b, c)
End Sub
Private Sub jisuanguocheng(a, b, c)
If b = "+" Then
jieguo.Text = a + c
ElseIf b = "-" Then
jieguo.Text = a - c
ElseIf b = "" Then
jieguo.Text = a c
ElseIf b = "/" Then
If c = 0 Then
jieguo.Text = "除数为0，请检查输入数据"
Else
‘’ jieguo.Text = a / c
jieguo.Text = Format(a / c, "0.00000")
Clipboard.SetText jieguo.Text
End If
End If
End Sub
测试后更改了下，固定5位小数，避免小数过多出现机器科学算法的情况，
输出改为
jieguo.Text = Format(a / c, "0.00000")
同时增加复制结果到剪贴板
Clipboard.SetText jieguo.Text
修改计算按钮属性 default 为ture 增加回车输出功能
| 
[复制链接]
发表于 2020-11-26 16:48
