vb简易计算器代码（在VB中计算器的代码（要求0到9的加减乘除运算））

2026-04-10 16:15:02 ：0

各位老铁们，大家好，今天由我来为大家分享vb简易计算器代码，以及在VB中计算器的代码（要求0到9的加减乘除运算）的相关问题知识，希望对大家有所帮助。如果可以帮助到大家，还望关注收藏下本站，您的支持是我们最大的动力，谢谢大家了哈，下面我们开始吧！

本文目录

在VB中计算器的代码（要求0到9的加减乘除运算）
做一个简易的计算器的VB程序，不要用数组、、、、
如何用VB做简易的四则运算计算器

在VB中计算器的代码（要求0到9的加减乘除运算）

’根据你的要求改了一下：

’最简单的计算器（实现0到9的加减乘除运算）

’1、添加Command1控件数组0~14

’2、设置Command1的Caption属性：

’Command1(0~9) "0~9"

’Command1(10~13) "+、-、*、/"

’Command1(14) "="

’3、添加Text1控件

’排列好以上控件

Option Explicit

Dim TTemp1, TTemp2 As Double ’记录前后输入的数字

Dim TFlag As Integer ’记录运算符

Dim IsEqual As Boolean ’判断是否按下等于

Private Sub Form_Load()

IsEqual = False

End Sub

Private Sub Command1_Click(Index As Integer)

Select Case Index

Case 0 To 9

If IsEqual = True Then ’判断是否按下等于

Text1 = "" ’是则清楚当前内容

Else

IsEqual = False

End If

Text1 = Text1 & Index ’键入数字1~9

Case 10 To 13

TFlag = Index ’记录运算符

TTemp1 = Val(Text1) ’记录第一个数

Text1 = "" ’清除文本框

Case 14

TTemp2 = Val(Text1) ’记录第二个数

If TFlag = 10 Then Text1 = TTemp1 + TTemp2 ’按下Command1(10) "+"

If TFlag = 11 Then Text1 = TTemp1 - TTemp2

If TFlag = 12 Then Text1 = TTemp1 * TTemp2

If TFlag = 13 Then Text1 = TTemp1 / TTemp2

If Val(Text1) 》 0 And Val(Text1) 《 1 Then Text1 = "0" & Text1

IsEqual = True

End Select

End Sub

’下面是工程的下载地址，复制它粘贴到地址栏点回车：

***隐藏网址***

Dim a, b, s As Double
Private Sub Command1_Click() ’,加法
s = Val(a) + Val(b)
Label1.Caption = s
End Sub
Private Sub Command2_Click() ‘减法
s = Val(a) - Val(b)
Label1.Caption = s
End Sub
Private Sub Command3_Click() ’乘法
s = Val(a) * Val(b)
Label1.Caption = s
End Sub
Private Sub Command4_Click() ‘除法
If b = 0 Then
MsgBox "b的值不能为零，请重新输入", "提示", 0
Else
s = Val(a) / Val(b)
Label1.Caption = s
End If
End Sub
Private Sub Command5_Click() ’数据输入
a = InputBox("请输入a的值", "数据输入", "")
b = InputBox("请输入b的值", "数据输入", "")
End Sub
Private Sub Command6_Click() ‘清零
Label1.Caption = ""
End Sub

如何用VB做简易的四则运算计算器

很简单的：窗口放入四个COMMAND控件（Caption属性分别为+、－、X、÷），三个TEXT控件，再放入三个Label控件（Caption属性分别为：操作数1、操作数2和计算结果），窗口的Caption属性改为“四则运算”
代码如下：
Private Sub Command1_Click()
If Val(Text1.Text) + Val(Text2.Text) 《》 Int(Val(Text1.Text) + Val(Text2.Text)) Then
Text3.Text = Format(Val(Text1.Text) + Val(Text2.Text), "0.######")
Else
Text3.Text = Val(Text1.Text) + Val(Text2.Text)
End If
End Sub
Private Sub Command2_Click()
If Val(Text1.Text) - Val(Text2.Text) 《》 Int(Val(Text1.Text) - Val(Text2.Text)) Then
Text3.Text = Format(Val(Text1.Text) - Val(Text2.Text), "0.######")
Else
Text3.Text = Val(Text1.Text) - Val(Text2.Text)
End If
End Sub
Private Sub Command3_Click()
If Val(Text1.Text) * Val(Text2.Text) 《》 Int(Val(Text1.Text) * Val(Text2.Text)) Then
Text3.Text = Format(Val(Text1.Text) * Val(Text2.Text), "0.######")
Else
Text3.Text = Val(Text1.Text) * Val(Text2.Text)
End If
End Sub
Private Sub Command4_Click()
If Val(Text1.Text) / Val(Text2.Text) 《》 Int(Val(Text1.Text) / Val(Text2.Text)) Then
Text3.Text = Format(Val(Text1.Text) / Val(Text2.Text), "0.######")
Else
Text3.Text = Val(Text1.Text) / Val(Text2.Text)
End If
End Sub

关于vb简易计算器代码到此分享完毕，希望能帮助到您。

vb简易计算器代码（在VB中计算器的代码（要求0到9的加减乘除运算））

本文编辑：admin

： vb简易计算器代码

上一篇：德国vodafone app（vodafone是什么）

下一篇：sql平均年龄（SQL按部门查询平均年龄的疑难问题！）

更多文章：

intellij idea登录（intellij idea15怎么进入一开始的配置页面）

各位老铁们，大家好，今天由我来为大家分享intellij idea登录，以及intellij idea15怎么进入一开始的配置页面的相关问题知识，希望对大家有所帮助。如果可以帮助到大家，还望关注收藏下本站，您的支持是我们最大的动力，谢谢大家

2025年11月12日 09:15

编程r是什么意思啊（数控编程r,w,s,t,n,h是什么意思）

各位老铁们好，相信很多人对编程r是什么意思啊都不是特别的了解，因此呢，今天就来为大家分享下关于编程r是什么意思啊以及数控编程r,w,s,t,n,h是什么意思的问题知识，还望可以帮助大家，解决大家的一些困惑，下面一起来看看吧！本文目录数控编程

2026年2月23日 04:15

excel函数总和（excel求和函数是什么）

其实excel函数总和的问题并不复杂，但是又很多的朋友都不太了解excel求和函数是什么，因此呢，今天小编就来为大家分享excel函数总和的一些知识，希望可以帮助到大家，下面我们一起来看看这个问题的分析吧！本文目录excel求和函数是什么e

2025年12月10日 08:30

特效视频软件能把人隐身了（关于制作一个人从视频中消失的特效）

本篇文章给大家谈谈特效视频软件能把人隐身了，以及关于制作一个人从视频中消失的特效对应的知识点，文章可能有点长，但是希望大家可以阅读完，增长自己的知识，最重要的是希望对各位有所帮助，可以解决了您的问题，不要忘了收藏本站喔。本文目录关于制作一个

2026年4月7日 10:30

javaee三层架构（javaee三层架构写假删除和修改状态代码）

“javaee三层架构”相关信息最新大全有哪些，这是大家都非常关心的，接下来就一起看看javaee三层架构（javaee三层架构写假删除和修改状态代码）！本文目录javaee三层架构写假删除和修改状态代码转it行业，从哪一个开始比较好，大数

2025年6月25日 15:45

shell电面四大问题（Shell评估中心最后一面面试技巧）

本篇文章给大家谈谈shell电面四大问题，以及Shell评估中心最后一面面试技巧对应的知识点，文章可能有点长，但是希望大家可以阅读完，增长自己的知识，最重要的是希望对各位有所帮助，可以解决了您的问题，不要忘了收藏本站喔。本文目录Shell评

2025年9月9日 08:00

mod指令汇编语言（方舟生存进化洪荒神话MOD代码大全实用指令分享）

今天给各位分享方舟生存进化洪荒神话MOD代码大全实用指令分享的知识，其中也会对方舟生存进化洪荒神话MOD代码大全实用指令分享进行解释，如果能碰巧解决你现在面临的问题，别忘了关注本站，现在开始吧！本文目录方舟生存进化洪荒神话MOD代码大全实用

2025年9月4日 23:00

typeof c语言（C语言typeof用法报错，求指导）

大家好，关于typeof c语言很多朋友都还不太明白，不过没关系，因为今天小编就来为大家分享关于C语言typeof用法报错，求指导的知识点，相信应该可以解决大家的一些困惑和问题，如果碰巧可以解决您的问题，还望关注下本站哦，希望对各位有所帮助

2025年5月23日 14:15

计算机程序设计艺术的作者图灵奖（唐纳德·克努特的简介）

其实计算机程序设计艺术的作者图灵奖的问题并不复杂，但是又很多的朋友都不太了解唐纳德·克努特的简介，因此呢，今天小编就来为大家分享计算机程序设计艺术的作者图灵奖的一些知识，希望可以帮助到大家，下面我们一起来看看这个问题的分析吧！本文目录唐纳德

2026年6月5日 09:15

开发中常说的函数调用指的是什么呢？c语言结构体调用

今天给各位分享开发中常说的函数调用指的是什么呢的知识，其中也会对开发中常说的函数调用指的是什么呢进行解释，如果能碰巧解决你现在面临的问题，别忘了关注本站，现在开始吧！本文目录开发中常说的函数调用指的是什么呢c语言结构体调用C语言，怎么调用题

2025年10月11日 18:45

源文件可以修改吗（ai源文件传给别人别人可以改画板格式吗）

大家好,今天小编来为大家解答以下的问题，关于源文件可以修改吗，ai源文件传给别人别人可以改画板格式吗这个很多人还不知道，现在让我们一起来看看吧！本文目录ai源文件传给别人别人可以改画板格式吗如何修改网页源文件PSD源文件里面的图片可以修改吗

2025年11月19日 20:00

java文本编辑器课设（用java设计一个文本编辑器）

其实java文本编辑器课设的问题并不复杂，但是又很多的朋友都不太了解用java设计一个文本编辑器，因此呢，今天小编就来为大家分享java文本编辑器课设的一些知识，希望可以帮助到大家，下面我们一起来看看这个问题的分析吧！本文目录用java设

2026年2月9日 20:15

java的运行机制是什么（简述JAVA的工作机制）

这篇文章给大家聊聊关于java的运行机制是什么，以及简述JAVA的工作机制对应的知识点，希望对各位有所帮助，不要忘了收藏本站哦。本文目录简述JAVA的工作机制java运行机制是什么简述JAVA的工作机制java的跨平台即跨操作系统的平台,也

2025年5月24日 18:00

phpcms模型数据调用？cms模型可以用spss实现吗

各位老铁们好，相信很多人对cms模型都不是特别的了解，因此呢，今天就来为大家分享下关于cms模型以及phpcms模型数据调用的问题知识，还望可以帮助大家，解决大家的一些困惑，下面一起来看看吧！本文目录phpcms模型数据调用cms模型可以用

2025年6月7日 16:30

数据仓库之父是谁（大数据一词最早出现于20世纪90年代）

其实数据仓库之父是谁的问题并不复杂，但是又很多的朋友都不太了解大数据一词最早出现于20世纪90年代，因此呢，今天小编就来为大家分享数据仓库之父是谁的一些知识，希望可以帮助到大家，下面我们一起来看看这个问题的分析吧！本文目录大数据一词最早出现

2026年1月7日 06:30

finder平台（保时捷现车在哪个平台找）

本篇文章给大家谈谈finder平台，以及保时捷现车在哪个平台找对应的知识点，文章可能有点长，但是希望大家可以阅读完，增长自己的知识，最重要的是希望对各位有所帮助，可以解决了您的问题，不要忘了收藏本站喔。本文目录保时捷现车在哪个平台找请问这个

2026年5月3日 18:30

怎么自己搭建服务器（怎么在本地搭建服务器）

大家好,今天小编来为大家解答以下的问题，关于怎么自己搭建服务器，怎么在本地搭建服务器这个很多人还不知道，现在让我们一起来看看吧！本文目录怎么在本地搭建服务器ip服务器搭建如何从零开始搭建一个新的服务器如何搭建一个自己的服务器网站服务器的搭建

2025年10月24日 01:15

editorial assignment需要多久（英国论文Group Assignment如何写作求写作辅导）

大家好,今天小编来为大家解答以下的问题，关于editorial assignment需要多久，英国论文Group Assignment如何写作求写作辅导这个很多人还不知道，现在让我们一起来看看吧！本文目录英国论文Group Assignme

2026年7月11日 22:45

factory造句简单（工厂的造句工厂的造句是什么）

各位老铁们，大家好，今天由我来为大家分享factory造句简单，以及工厂的造句工厂的造句是什么的相关问题知识，希望对大家有所帮助。如果可以帮助到大家，还望关注收藏下本站，您的支持是我们最大的动力，谢谢大家了哈，下面我们开始吧！本文目录工厂的

2026年3月16日 06:00

stimulate的名词怎么写（单词（刺激的）怎么拼写）

各位老铁们，大家好，今天由我来为大家分享stimulate的名词怎么写，以及单词（刺激的）怎么拼写的相关问题知识，希望对大家有所帮助。如果可以帮助到大家，还望关注收藏下本站，您的支持是我们最大的动力，谢谢大家了哈，下面我们开始吧！本文目录单

2025年10月10日 19:15

vb简易计算器代码（在VB中计算器的代码（要求0到9的加减乘除运算））

本文目录

在VB中计算器的代码（要求0到9的加减乘除运算）

做一个简易的计算器的VB程序，不要用数组、、、、

如何用VB做简易的四则运算计算器

更多文章：