晓彬计算器是一款只能加减乘除的计算器,简单好用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
使用方法
该计算器执行简单的加、减、乘、除计算功能
使用方法:
在计算数据中输入要计算的数据,符号中输入+、-、*、/符号,
点击计算,即可输出结果
注意:
不可在计算数据中输入符号
版权声明:晓彬计算器所展示的资源内容均来自于第三方用户上传分享,您所下载的资源内容仅供个人学习交流使用,严禁用于商业用途,软件的著作权归原作者所有,如果有侵犯您的权利,请来信告知,我们将及时撤销。
软件下载信息清单:
驱动文件名称 | 发布日期 | 文件大小 | 下载文件名 |
---|---|---|---|
晓彬计算器安装包 | 2024年11月28日 | 58KB | xbjsq1.0.zip |
软件评论