晓彬计算器[V1.0免费版]

晓彬计算器是一款只有乘除法的计算器，简易功能强大VB6.0写的，便于日常生活的乘除法，附加源，热烈欢迎大伙儿提升变更！

【app源码】

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

使用方法

该计算器实行简易的加、减、乘、除测算作用

使用方法

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

点一下测算，就可以輸出結果

留意：

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