admin管理员组

文章数量:1530518

晓彬计算器是一款只有乘除法的计算器，简易功能强大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

使用方法

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

使用方法

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

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

　　留意：

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

本文标签： 计算器免费版官方

版权声明：本文标题：【晓彬计算器】晓彬计算器 V1.0免费版官方免费下载 内容由热心网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：https://m.elefans.com/wangluo/1718531776a692463.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。