vb简易计算机器程序,vb简易计算器源码
代码如下:
/**
*Author:乌鸟heart
*Version:1.0
*/
Dim IntX As Double '全局变量,用于存储计算的数值
Dim IntOperation As Double '标记运算类型
Dim isBegin As Boolean '标记是否已经给IntX赋值
Public Sub Clear() '清空命令函数
screen.Caption = ""
End Sub
Public Sub SavaToIntX()
Select Case IntOperation
Case 1 '加法
If isBegin = False Then
IntX = Val(screen.Caption)
isBegin = True
Else
IntX = IntX + Val(screen.Caption)
End If
Case 2 '减法
If isBegin = False Then
IntX = Val(screen.Caption)
isBegin = True
Else
IntX = IntX - Val(screen.Caption)
End If
Case 3 '乘法
If isBegin = False Then
IntX = Val(screen.Caption)
isBegin = True
Else
IntX = IntX * Val(screen.Caption)
'screen.Caption = IntX
End If
Case 4 '除法
If isBegin = False Then
IntX = Val(screen.Caption)
isBegin = True
Else
IntX = IntX / Val(screen.Caption)
End If
End Select
End Sub
Private Sub Command0_Click()
screen.Caption = screen.Caption & 0
End Sub
Private Sub Command1_Click()
screen.Caption = screen.Caption & 1
End Sub
Private Sub Command2_Click()
screen.Caption = screen.Caption & 2
End Sub
Private Sub Command3_Click()
screen.Caption = screen.Caption & 3
End Sub
Private Sub Command4_Click()
screen.Caption = screen.Caption & 4
End Sub
Private Sub Command5_Click()
screen.Caption = screen.Caption & 5
End Sub
Private Sub Command6_Click()
screen.Caption = screen.Caption & 6
End Sub
Private Sub Command7_Click()
screen.Caption = screen.Caption & 7
End Sub
Private Sub Command8_Click()
screen.Caption = screen.Caption & 8
End Sub
Private Sub Command9_Click()
screen.Caption = screen.Caption & 9
End Sub
Private Sub CommandClear_Click() '清空命令
isBegin = False
IntOperation = 0
IntX = 0
screen.Caption = ""
End Sub
Private Sub CommandEqual_Click() '等号运算
If IntOperation <> 0 Then '有运算标记的情况
Call SavaToIntX
IntOperation = 0
isBegin = False
screen.Caption = IntX
End If
End Sub
Private Sub CommandMinus_Click() '减法运算
If IntOperation <> 0 Then '有运算标记的情况
Call SavaToIntX
IntOperation = 2
Call Clear
Else
IntOperation = 2
Call SavaToIntX
Call Clear
End If
End Sub
Private Sub CommandMultiple_Click() '乘法运算
If IntOperation <> 0 Then '有运算标记的情况
Call SavaToIntX
IntOperation = 3
Call Clear
Else
IntOperation = 3
Call SavaToIntX
Call Clear
End If
End Sub
Private Sub CommandPlus_Click() '加法运算
If IntOperation <> 0 Then '有运算标记的情况
Call SavaToIntX
IntOperation = 1
Call Clear
Else
IntOperation = 1
Call SavaToIntX
Call Clear
End If
End Sub
Private Sub CommandSlash_Click() '除法运算
If IntOperation <> 0 Then '有运算标记的情况
Call SavaToIntX
IntOperation = 4
Call Clear
Else
IntOperation = 4
Call SavaToIntX
Call Clear
End If
End Sub
vb简易计算机器程序,vb简易计算器源码相关推荐
- 云消费机通讯协议 附Java、PHP、Python、C# 、.Net、VB、Delphi、VFP、Android示例源码
新型实时在线型消费机,支持刷卡.扫码及外接人脸识别设备,刷卡.扫码或人脸比对成功后消费机将卡号和本次消费金额上传到服务器,服务器处理.保存后将消费结果返发到消费机上显示,脱网时支持白名单记账消费. 本 ...
- Matlab GUI/APP 浅谈(附计算器源码)
Matlab GUI/APP 浅谈(附计算器源码) 今天没有什么段子,也没有心灵鸡汤.毒鸡汤啥的,纯粹聊一聊这些年从有关MATLAB GUI/APP开发中悟出的一点道理,顺便把计算器的源代码给大家. ...
- 基于olami开放语义平台的微信小程序遥知之源码实现
概述 实现一个智能生活信息查询的小秘书功能,支持查天气.新闻.日历.汇率.笑话.故事.百科.诗词.邮编.区号.菜谱.股票.节目预告,还支持闲聊.算24点.数学计算.单位换算.购物.搜索等功能. 使用方 ...
- 基于java springboot的小说阅读微信小程序含后台管理系统源码
系统运行环境 开发工具 eclipse(idea),mysql5.7(大于5.5),navicat,小程序开发工具 硬件要求 windows操作系统 cpu:2.4GHz 内存:4G 硬盘:100G ...
- java 计算器源代码_Java计算器源码
Java计算器源码 作者:王晓勃 本计算器仅供交流使用,如有错误,敬请谅解.本计算器参考了网友海上升明月的无私分享 (http://hi.baidu.com/haibing123/item/fc707 ...
- JavaScript实现计算π值算法(附完整源码)
JavaScript实现计算π值算法(附完整源码) π.js完整源代码 π.js完整源代码 const circleRadius = 1; function getNGonSideLength(sid ...
- 基于java的rsa加密程序_RSA rsa加密程序,rsa java源码和 rsa的jsp Crypt_De algrithms 解密 238万源代码下载- www.pudn.com...
文件名称: RSA下载 收藏√ [ 5 4 3 2 1 ] 开发工具: Java 文件大小: 169 KB 上传时间: 2014-04-23 下载次数: 0 提 供 者: 姚双奇 详细说明: ...
- tinkphp1.0贺岁版小程序应用平台系统源码
介绍: tinkphp1.0贺岁版小程序应用平台系统源码 安装说明:直接放入服务器或者空间,访问域名根据安装向导进行安装. 程序魅力:此程序是类似微信小程序一样的机制系统,但不是微信小程序,跟微信不搭 ...
- 微信程序短视频去水印源码 开源产品未加密未授权相关文章
微信程序短视频去水印源码 开源产品未加密未授权相关文章 看到咸鱼上还有人卖这套源码,所以就把这套源码 免费分享出来 开源产品,未加密未授权,可调用别人的接口和自己的接口. PS:源码仅供技术学习参考, ...
最新文章
- CTF---Web入门第十题 Once More
- win10安装pip
- 搞科研、学术的朋友注意了,停下手头的活,再忙也要看一下这个!
- Node.js 国产 MVC 框架 ThinkJS 开发 config 篇
- 新架构让数据中心犹如PC
- SQL避免IN 和 NOT IN
- 日期多选插件Kalendae.js
- 大众点评被合并至美团? 官方回应:不存在这种可能性
- matlab abc to dq0仿真,逆变器负载论文,关于基于同步旋转坐标的三相逆变器控制系统仿真相关参考文献资料-免费论文范文...
- python求矩阵维度必须一致_python数据分析(二)--Numpy
- 博客园的博客中插入公式
- 【java】判断某段字符串的编码方式,并按照新的编码方式输出
- java io 读取配置文件_(转)Java 读写Properties配置文件
- Vue基于vuex、axios拦截器实现loading效果及axios的安装配置
- 数据库入门教程(SQL Server 2005)----概述
- 常见端口号和对应协议
- 金仓数据库KingbaseES数据库管理员指南--15.1. 管理视图
- win7 虚拟wifi服务器,在win7下建立虚拟wifi
- 用python程序计算勾股数,用Python程序计算勾股数
- L2CAP数据发送和接收
热门文章
- C++ reverse memcpy
- E. Anfisa the Monkey
- 天正计算机命令大全,天正CAD 中按Ctrl+v在不同图中粘贴出现“未知命令T81_tpasteclip”,直接在CAD中就能操作...
- python生成表达式_说说 Python 的生成器表达式
- 计算机硬件的维护知识,电脑放了一年开不了机 电脑硬件维护常识要点有哪些...
- cs8900a网卡驱动--寄存器
- Linux伪终端怎么退出,什么是linux里的终端和伪终端
- python浮点型数据怎么显示为图片_python数字图像处理(4):图像数据类型及颜色空间转换...
- 搜索不包含关键词_亚马逊listing关键词优化
- python中回车怎么表示_如何在python中使用读取行仅拆分回车符?