晓彬计算器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 【操作方法】 　　该计算器实行简易的加、减、乘、除测算作用 　　【操作方法】： 　　在计算数据中输入要测算的数据，符号中输入 、-、*、/符号， 　　点一下测算，就可以輸出結果 　　留意： 　　不能在计算数据中输入符号