这是刚看VB的时候写的一个简易计算器,可以看看Dim Num1, Num2 As SingleDim StrNum1, StrNum2 As StringDim FirstNum As Boolean '判断是否是数字开头Dim PointFlag As Boolean '判断是否已有小数点Dim Runsign As Integer '储存运算符号Dim SignFlag As Boolean '判断是否已有运算符号 Sub ClearData()Num1 = 0Num2 = 0StrNum1 = ""StrNum2 = ""FirstNum = TruePointFlag = FalseRunsign = 0SignFlag = FalseText1。

Text = "0。"End Sub Sub Run()Num1 = Val(StrNum2)Num2 = Val(StrNum1)Select Case RunsignCase 1equal = Num1 Num2Case 2equal = Num1 - Num2Case 3equal = Num1 * Num2Case 4equal = Num1 / Num2End SelectStrNum2 = Str(equal)StrNum1 = StrNum2Text1。

Text = StrNum2End Sub

Private Sub Command1_Click(Index As Integer)Select Case IndexCase 0 To 9If FirstNum ThenStrNum1 = Str(Index)FirstNum = FalseElseStrNum1 = StrNum1 Str(Index)End IfText1。

Text = StrNum1Case 10If Not PointFlag ThenIf FirstNum ThenStrNum1 = "0。"FirstNum = FalseElseStrNum1 = StrNum1 "。"End IfElseExit SubEnd IfPointFlag = TrueText1。

Text = StrNum1Case 12 To 15FirstNum = TruePointFlag = False'还原标记值If SignFlag ThenCall RunElseSignFlag = TrueStrNum2 = StrNum1StrNum1 = ""End IfRunsign = Index - 11Case 11If Not SignFlag ThenText1。

Text = StrNum1equal = Val(StrNum1)FirstNum = TruePointFlag = FalseElseCall RunSignFlag = FalseEnd If Case ElseCall ClearData End SelectEnd Sub Private Sub Form_Load()Call ClearDataEnd Sub。

全部

python卡路里计算器_VB高手进,求一个简单计算器的VB代码相关推荐

  1. c语言设计程序计算器,C语言程序设计,做一个简单计算器

    题目: C语言程序设计,做一个简单计算器 程序内容有:加减乘除和平方,立方,开方等.用if或者swith结构来编程. 算加法时只输出加法的结果,算减法时只出减法的结果,如此类推. 解答: 已发送, # ...

  2. 求一个简单的java线程代码,Java线程代码的实现方法

    1.继承Thread 声明Thread的子类 运行thread子类的方法 2.创建Thread的匿名子类 3.实现Runnable接口 声明 运行 4.创建实现Runnable接口的匿名类 5.线程名 ...

  3. C#设计一个简单计算器,实现两个数的加、减、乘、除、求幂等计算

    设计一个简单计算器,实现两个数的加.减.乘.除.求幂等计算 using System; using System.Collections.Generic; using System.Component ...

  4. 使用Qt做一个简单计算器

    title: Calculator date: 2022-09-04 11:10:12 tags: [Qt, 应用, C++] typora-root-url: Calculator 使用Qt做一个简 ...

  5. 电脑用java怎么编程,使用java编程从0到1实现一个简单计算器

    学习编程语言最重要的就是实践.很多小伙伴在学习完编程语言后,一直停留在基础阶段,只懂一大堆理论知识,而不懂得实践.那么,今天我们一起来动手做一个小计算器,回顾下学习过的知识,同时这也是很多大学计算机专 ...

  6. Python开发第一步:如何制作一个简单的桌面应用

    Python开发第一步:如何制作一个简单的桌面应用 前言 大家好,我是baifagg, 一个热爱Python的编程爱好者. 今天我们来学习一下, 如何用Python制作一个简单的桌面应用程序. 虽然桌 ...

  7. 模拟一个简单计算器_阅读模拟器的简单介绍

    模拟一个简单计算器 Read simulators are widely being used within the research community to create synthetic an ...

  8. python小项目实例流程-Python小项目:快速开发出一个简单的学生管理系统

    原标题:Python小项目:快速开发出一个简单的学生管理系统 本文根据实际项目中的一部分api 设计抽象出来,实例化成一个简单小例子,暂且叫作「学生管理系统」. 这个系统主要完成下面增删改查的功能: ...

  9. python小项目案例-Python小项目:快速开发出一个简单的学生管理系统

    本文根据实际项目中的一部分api 设计抽象出来,实例化成一个简单小例子,暂且叫作「学生管理系统」. 这个系统主要完成下面增删改查的功能: 包括: 学校信息的管理 教师信息的管理 学生信息的管理 根据A ...

最新文章

  1. 写给那些正奔三的80后[转]
  2. js函数调用html对象参数传递参数吗,js里函数参数传递对象传的是指针吗
  3. Ubuntu下C语言Debug工具GDB【1】安装和使用
  4. 构造类斐波那契数列矩阵(矩阵
  5. PHP中的预定义常量
  6. 关于返回二维数组排序后序号数组的问题求解
  7. 第七节:SpringBoot高级属性配置二
  8. 英语影响计算机专业,英语不好对于学习计算机编程来说到底有没有影响?
  9. java项目 ppt,Java项目报告ppt
  10. 第1章 初始JAVA
  11. 磁盘管理高级进阶-LVM逻辑卷管理
  12. 模块参考资料-Cat.1模块选型手册-
  13. word2016页码怎么设置从任意指定页开始
  14. 基于单片机自行车自动防盗报警系统设计-基于单片机温度监测监控报警系统设计-基于单片机智能无线病床呼叫系统设计-基于单片机四路红外遥控开关电路设计【设计资料转发分享】
  15. VS2019及其他多个老版本的VS下载说明
  16. Padavan老毛子的二级路由,怎样设置与主路由在同一网段
  17. 刚刚,优酷的模版引擎,竟然开源了!
  18. 非常实用的开发小工具
  19. 使用gomail发送邮件
  20. 求最小公倍数(华为机试,Go)

热门文章

  1. 温故而知新:gtest单元测试工具和lcov覆盖率统计工具的结合使用
  2. 2022年全球市场香兰提取物总体规模、主要生产商、主要地区、产品和应用细分研究报告
  3. 贝塞尔曲线学习:正弦曲线
  4. 解决linux服务器上查看显卡(nvidia)型号问题
  5. WebService入门教程(服务端发布WebService)
  6. 一套完整的MES系统,要这样去搭建
  7. 互联网不再是一片净土,背后有一滩让人难以接受的污水!
  8. python - yield详解
  9. 我发现很多路由器的CPU芯片都是联发科MT76..的
  10. 推特开发者申请标准化流程20190117