晓彬计算器 v1.0免费版

晓彬计算器是一款只能加减乘除的计算器，简单好用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

使用方法

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

　　使用方法：

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

　　点击计算，即可输出结果

　　注意：

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

晓彬计算器软件源码

　　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

晓彬计算器使用方法

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

　　使用方法：

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

　　点击计算，即可输出结果

　　注意：

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