这是刚看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. 如何:对 SharePoint 列表项隐藏 ECB 中的菜单项
  2. python3生成avi文件
  3. centos开启防火墙指定端口
  4. Excel Sheet Column Number
  5. linux内核编译与新内核启用
  6. css根据当前宽度设置css,JS和CSS实现自动根据分辨率设置页面宽度
  7. 【Vegas原创】imp/exp导入导出数据
  8. HTTP 笔记与总结(6)referer 头与防盗链
  9. 需要一个用于Postgres的UUID生成器?这里有两种设置方法
  10. 在win10pe中集成virtio驱动
  11. JSON for Modern C++
  12. ubantu 黑屏_普罗菲斯触摸屏黑屏问题维修经验丰富
  13. ADO/ADO.NET
  14. 使用getUserMedia实现录像
  15. 掌财社:专业选手年均开销10万元 执行公司曾9次中标马拉松
  16. 场效应管AO3401
  17. 揭开自然拼读法(Phonics)的神秘面纱
  18. HTML 设置浏览器小图标
  19. 金蝶EAS/BOS开发小知识一
  20. 通信软件——什么是通讯协议

热门文章

  1. 计算机音乐怎么调音速,音速调节器(音乐速度调节器) PRO v10.3.4 for Android 特别清爽版...
  2. PHP 10问——PART 4
  3. 计算机专业看重CPU还是显卡,电脑的CPU重要还是显卡重要 看自己的需求
  4. windows audio错误0x80070005怎么解决
  5. 用笔记本如何提升游戏性能?
  6. python遥感影像地物分类_基于轻量化语义分割网络的遥感图像地物分类方法与流程...
  7. 小程序源码:(更新)云开发微群人脉
  8. 【原创】NetNumenU31R20V12.14.20T80-SP002 授权文件破解方法
  9. 全面分析反应釜的防腐问题和清洗
  10. HTML5_验证码-点名器-倒计时-function-放大镜