vb计算器程序设计代码（vb编程计算）

本篇文章给大家谈谈vb计算器程序设计代码，以及vb编程计算对应的知识点，希望对各位有所帮助，不要忘了收藏本站喔。

本文目录一览：

• 1、VB 计算器程序代码解析，以下是代码，要求详细，新手VB勿喷
• 2、用VB做一个简单的加减乘除的计算器，代码是什么？
• 3、求VB简易计算器的代码？
• 4、用vb编写计算器的代码程序
• 5、VB编写简单的计算器程序

VB 计算器程序代码解析，以下是代码，要求详细，新手VB勿喷

Option Explicit

Dim FirstNumber, NumberBuffer As Double'定义数据类型

Dim chr As String

Dim ScaleCodeState As Boolean

Dim ScaleCode As Integer

Dim ScaleSymbol(0 To 7) As String '上面这些DIM都是定义数据类型

Private Sub Init()'==sub过程，实际功能就是清零。把label、FirstNumber、等都初始化

Label1.Caption = "0"

FirstNumber = 0

ScaleCode = 0

ScaleCodeState = False

Label2.Caption = ""

End Sub        '==sub过程结束

Private Sub ClearAll_Click() '点击ClearAll按钮

Call Init'执行init过程，就是清零

End Sub

Private Sub Form_Load()'程序启动

Call Init'先清零，下面分别赋值加减乘除

ScaleSymbol(0) = "+"

ScaleSymbol(1) = "-"

ScaleSymbol(2) = "*"

ScaleSymbol(3) = "/"

End Sub

Private Sub NumberKey_Click(Index As Integer)'点击NumberKey按钮,NumberKey是数组控件

chr = Val(Index)

If Left(Label1.Caption, 1) = "0" And Mid(Label1.Caption, 2, 1)  "." Then Label1.Caption = Right(Label1.Caption, Len(Label1.Caption) - 1)

'如果label1的第一个字符是0，并且第二个字符不是.，则label1去掉第一个0。这个功能是防止输入了00.9999这样的数，就自动变为0.9999

If Len(Label1.Caption)  20 Then '判断输入的数字长度小于20

    If ScaleCodeState = True Then

        ScaleCodeState = False

        Label1.Caption = ""

    End If

    Label1.Caption = Label1.Caption + chr

    NumberBuffer = Val(Label1.Caption)

End If

End Sub

Private Sub ScaleKey_Click(Index As Integer)'点加减乘除

ScaleCode = Index

FirstNumber = NumberBuffer

ScaleCodeState = True

Label2.Caption = ScaleSymbol(Index)

Label1.Caption = "0"

End Sub

Private Sub Equal_Click()'开始计算

Select Case ScaleCode

Case 0'加

NumberBuffer = FirstNumber + NumberBuffer

Case 1'减

NumberBuffer = FirstNumber - NumberBuffer

Case 2'乘

NumberBuffer = FirstNumber * NumberBuffer

Case 3'除

NumberBuffer = FirstNumber / NumberBuffer

End Select

Label1.Caption = NumberBuffer'显示结果

FirstNumber = NumberBuffer

ScaleCodeState = True

Label2.Caption = ""

End Sub

用VB做一个简单的加减乘除的计算器，代码是什么？

我们现在首先要做的就是拉出Label，准备三个Label，把label1，label2，label3，这些改成第一个数、第二个数、结果。

我们现在要text也要拉出三个，把了text里面text1、text2、text3全部删掉。

我们现在要把command拉出四个，把里面command1-4都给成+-*/

现在我们现在要双击+，我们开始进行输入代码

在里面我们现在要：text3.text=val(text1.text)+val(text2.text)

我们要把这个（text3.text=val(text1.text)+val(text2.text)）复制，把里面+号分别改成-*/

如图，就像这样就可以了，可以行径了，如果你在哪个代码里弄错了，你看一下还要哪些没有拉出来，或者你哪个代码输错了。

感谢观看。

求VB简易计算器的代码？

代码是:码

跪求高人给代码！！！

我有更好回答



匿名用户

推荐于 2016-11-11

Private Sub Command1_Click()

Select Case Text2.Text

Case "+"

Text4.Text = Str(Val(Text1.Text) + Val(Text3.Text))

Case "-"

Text4.Text = Str(Val(Text1.Text) - Val(Text3.Text))

Case "*"

Text4.Text = Str(Val(Text1.Text) * Val(Text3.Text))

Visual Basic（简称VB）是Microsoft公司开发的一种通用的基于对象的程序设计语言，为结构化的、模块化的、面向对象的、包含协助开发环境的事件驱动为机制的可视化程序设计语言。是一种可用于微软自家产品开发的语言。

“Visual” 指的是开发图形用户界面 (GUI) 的方法——不需编写大量代码去描述界面元素的外观和位置，而只要把预先建立的对象add到屏幕上的一点即可。

“Basic”指的是 BASIC (Beginners All-Purpose Symbolic Instruction Code) 语言，是一种在计算技术发展历史上应用得最为广泛的语言。

Visual Basic源自于BASIC编程语言。VB拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，可以轻易的使用DAO、RDO、ADO连接数据库，或者轻松的创建Active X控件，用于高效生成类型安全和面向对象的应用程序。

程序员可以轻松的使用VB提供的组件快速建立一个应用程序。

用vb编写计算器的代码程序

在窗体上放置以下控件：

1、lblResult

Label控件

设置lblResult.Caption

=

2、btnNum(0)~btnNum(9)

按钮控件数组，下标对应齐数字（如：btnNum(0).Caption=0，依次类推）

3、添加btnAdd（加法）、btnSub（减法）、btnMul（乘法）、btnDiv（除法）、btnEnter（等于号）、btnReset（清除键）六个按钮。

在窗体代码中输入以下内容：

Dim

byteOperation

As

Byte

'操作符

Dim

byteTmp

As

Byte

'临时操作符

Dim

intNum

As

Double

'输入的数字

Sub

Calc()

Select

Case

byteOperation

Case

1

'Add

lblResult.Caption

=

CDbl(lblResult.Caption)

+

intNum

Case

2

'Sub

lblResult.Caption

=

intNum

-

CDbl(lblResult.Caption)

Case

3

'Mul

lblResult.Caption

=

CDbl(lblResult.Caption)

*

intNum

Case

4

'Div

lblResult.Caption

=

intNum

/

CDbl(lblResult.Caption)

Case

Else

End

Select

End

Sub

Private

Sub

btnNum_Click(Index

As

Integer)

If

byteTmp

Then

intNum

=

lblResult.Caption

lblResult.Caption

=

byteTmp

=

End

If

If

lblResult.Caption

=

Then

lblResult.Caption

=

Index

Else

If

Len(lblResult.Caption)

9

Then

lblResult.Caption

=

lblResult.Caption

Index

End

If

End

If

End

Sub

Private

Sub

btnAdd_Click()

If

byteOperation

Then

Call

Calc

End

If

byteOperation

=

1

byteTmp

=

1

End

Sub

Private

Sub

btnReset_Click()

byteTmp

=

byteOperation

=

intNum

=

lblResult.Caption

=

End

Sub

Private

Sub

btnSub_Click()

If

byteOperation

Then

Call

Calc

End

If

byteOperation

=

2

byteTmp

=

2

End

Sub

Private

Sub

btnMul_Click()

If

byteOperation

Then

Call

Calc

End

If

byteOperation

=

3

byteTmp

=

3

End

Sub

Private

Sub

btnDiv_Click()

If

byteOperation

Then

Call

Calc

End

If

byteOperation

=

4

byteTmp

=

4

End

Sub

Private

Sub

btnEnter_Click()

Call

Calc

byteTmp

=

End

Sub

VB编写简单的计算器程序

工具/材料

电脑

VB软件

01

打开VB，新建一个EXE文件。

02

画上四个方框，表示运算法则（即加减乘除四项），3个文本控件表示数，一个标签控件为“=”。并对控件进行命名。

03

然后进行代码编写。双击对应的按钮控件，进入代码编写界面。Text3.Text = Val(Text1.Text) + Val(Text2.Text)，就这一句只要更换把‘+’分别换成‘-’‘*’‘/’即可。

04

最后，按“F5”运行即可咯。

特别提示

VB的编写相对其他程序语言会简单一些，感兴趣者可以深入研究。

关于vb计算器程序设计代码和vb编程计算的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。