下载地址

VB6.0 实战数学计算器 附完整源代码实例

常用软件:压缩软件迅雷合集 》播放软件
资源大小:10.1K 更新时间:2019-09-24
资源类型:绿色安全 授权方式:免费下载
资源分类:VB源码 资源人气:1376
适用平台:WinAll 推荐等级:
一键分享: 一键分享
() ()

内容简介

在这里小编给大家提供VB6.0 实战数学计算器 附完整源代码源代码实例下载,都是比较常用和简单的。有需要学习相关编程的可以下载回去研究一下。
一个简单的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 '储存键入的运算符

关键词:计算器