python卡路里计算器_VB高手进，求一个简单计算器的VB代码

这是刚看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代码相关推荐

c语言设计程序计算器,C语言程序设计,做一个简单计算器
题目: C语言程序设计,做一个简单计算器程序内容有:加减乘除和平方,立方,开方等.用if或者swith结构来编程. 算加法时只输出加法的结果,算减法时只出减法的结果,如此类推. 解答: 已发送, # ...
求一个简单的java线程代码,Java线程代码的实现方法
1.继承Thread 声明Thread的子类运行thread子类的方法 2.创建Thread的匿名子类 3.实现Runnable接口声明运行 4.创建实现Runnable接口的匿名类 5.线程名 ...
C#设计一个简单计算器，实现两个数的加、减、乘、除、求幂等计算
设计一个简单计算器,实现两个数的加.减.乘.除.求幂等计算 using System; using System.Collections.Generic; using System.Component ...
使用Qt做一个简单计算器
title: Calculator date: 2022-09-04 11:10:12 tags: [Qt, 应用, C++] typora-root-url: Calculator 使用Qt做一个简 ...
电脑用java怎么编程,使用java编程从0到1实现一个简单计算器
学习编程语言最重要的就是实践.很多小伙伴在学习完编程语言后,一直停留在基础阶段,只懂一大堆理论知识,而不懂得实践.那么,今天我们一起来动手做一个小计算器,回顾下学习过的知识,同时这也是很多大学计算机专 ...
Python开发第一步：如何制作一个简单的桌面应用
Python开发第一步:如何制作一个简单的桌面应用前言大家好,我是baifagg, 一个热爱Python的编程爱好者. 今天我们来学习一下, 如何用Python制作一个简单的桌面应用程序. 虽然桌 ...
模拟一个简单计算器_阅读模拟器的简单介绍
模拟一个简单计算器 Read simulators are widely being used within the research community to create synthetic an ...
python小项目实例流程-Python小项目：快速开发出一个简单的学生管理系统
原标题:Python小项目:快速开发出一个简单的学生管理系统本文根据实际项目中的一部分api 设计抽象出来,实例化成一个简单小例子,暂且叫作「学生管理系统」. 这个系统主要完成下面增删改查的功能: ...
python小项目案例-Python小项目：快速开发出一个简单的学生管理系统
本文根据实际项目中的一部分api 设计抽象出来,实例化成一个简单小例子,暂且叫作「学生管理系统」. 这个系统主要完成下面增删改查的功能: 包括: 学校信息的管理教师信息的管理学生信息的管理根据A ...

python卡路里计算器_VB高手进，求一个简单计算器的VB代码

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

最新文章

热门文章