晓彬计算器

晓彬计算器是一款只能加减乘除的计算器，简单好用VB6.0写的，便于生活中的加减乘除，附带源，欢迎大家优化更改!

软件源码

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

End If

End If

End Sub

使用方法

该计算器执行简单的加、减、乘、除计算功能

使用方法：

在计算数据中输入要计算的数据，符号中输入+、-、*、/符号，

点击计算，即可输出结果

注意：

不可在计算数据中输入符号