文件名称：VB6.0 实战数学计算器 附完整源代码.rar
文件大小：10KB
文件格式：RAR
更新时间：2022-07-30 06:05:22
VB源码-算法相关
一个简单的VB数学计算器，功能方面不太多，只是进行四则计算，启动时显示每日一帖。使用前，先按[打开]按钮 使用后，按[关闭]按钮，当除数为 0 时，会自动提示，按[清除]按钮后可继续使用，输入负数时，先输入正数，再按[ /-]按钮即可，部分定义： Dim StrNum1, StrNum2 As String Dim FirstNum As Boolean 判断是否是数字开头 Dim PointFlag As Boolean 判断是否已有小数点 Dim RunSign As Integer 储存运算符号 Dim SignFlag As Boolean 判断是否已有运算符号 Dim equal As Double 运算结果 Dim equalflag As Boolean 运算结果有无标志 因为计算结果不能用退格按钮 Dim OffSign As Boolean 计算器关闭标志 Case 12 To 15 ' - × ÷ FirstNum = True '使下一次可以输入新数据 PointFlag = False '还原标记值 If SignFlag Then '前面已有运算符未运算 Call Run Else SignFlag = True StrNum2 = StrNum1 '把字符串1复制给字符串2 StrNum1 = "" '字符串1清空 End If RunSign = Index - 11 '储存键入的运算符
【文件预览】：
srcfans.com
----Calculator()
--------Calc.vbp(741B)
--------calc.ico(766B)
--------frmAbout.frx(2KB)
--------frmEx.frm(14KB)
--------frmTip.frx(778B)
--------Tipofday.txt(170B)
--------MSSCCPRJ.SCC(329B)
--------frmEx.frx(778B)
--------Calc.vbw(154B)
--------frmTip.frm(5KB)
--------Calc.PDM(3KB)
--------frmAbout.frm(10KB)