vb:简易计算器（加减乘除）代码

代码如下：

Dim t, t1 As Integer

Dim x, y As Double

Public Sub com()

x = Val(l1.Caption)

Select Case t1

Case Is = 1: y = y + x

Case Is = 2: y = y - x

Case Is = 3: y = y * x

Case Is = 4: y = y / x

End Select

t1 = 0

t = 0

l1.Caption = "0"

End Sub

Private Sub Form_Load()

x = 0

y = 0

t = 0

t1 = 1

End Sub

Private Sub c0_Click(Index As Integer)

If l1.Caption = "0" Then

l1.Caption = "0"

Else

l1.Caption = l1.Caption + "0"

End If

End Sub

Private Sub C1_Click(Index As Integer)

If l1.Caption = "0" Then

l1.Caption = "1"

Else

l1.Caption = l1.Caption + "1"

End If

End Sub

Private Sub c10_Click(Index As Integer)

If t = 0 Then

l1.Caption = l1.Caption + "."

t = 1

End If

End Sub

Private Sub C2_Click(Index As Integer)

If l1.Caption = "0" Then

l1.Caption = "2"

Else

l1.Caption = l1.Caption + "2"

End If

End Sub

Private Sub C3_Click(Index As Integer)

If l1.Caption = "0" Then

l1.Caption = "3"

Else

l1.Caption = l1.Caption + "3"

End If

End Sub

Private Sub C4_Click(Index As Integer)

If l1.Caption = "0" Then

l1.Caption = "4"

Else

l1.Caption = l1.Caption + "4"

End If

End Sub

Private Sub C5_Click(Index As Integer)

If l1.Caption = "0" Then

l1.Caption = "5"

Else

l1.Caption = l1.Caption + "5"

End If

End Sub

Private Sub C6_Click(Index As Integer)

If l1.Caption = "0" Then

l1.Caption = "6"

Else

l1.Caption = l1.Caption + "6"

End If

End Sub

Private Sub C7_Click(Index As Integer)

If l1.Caption = "0" Then

l1.Caption = "7"

Else

l1.Caption = l1.Caption + "7"

End If

End Sub

Private Sub C8_Click(Index As Integer)

If l1.Caption = "0" Then

l1.Caption = "8"

Else

l1.Caption = l1.Caption + "8"

End If

End Sub

Private Sub C9_Click(Index As Integer)

If l1.Caption = "0" Then

l1.Caption = "9"

Else

l1.Caption = l1.Caption + "9"

End If

End Sub

Private Sub z1_Click(Index As Integer)

com

t1 = 1

End Sub

Private Sub z2_Click(Index As Integer)

com

t1 = 2

End Sub

Private Sub z3_Click(Index As Integer)

com

t1 = 3

End Sub

Private Sub z4_Click(Index As Integer)

com

t1 = 4

End Sub

Private Sub z5_Click(Index As Integer)

tmp = Mid(l1.Caption, Len(l1.Caption), 1)

If tmp = "." Then

t = 0

End If

If Len(l1.Caption) = 1 Then

l1.Caption = "0"

Else

l1.Caption = Left(l1.Caption, Len(l1.Caption) - 1)

End If

End Sub

Private Sub z6_Click(Index As Integer)

l1.Caption = "0"

Form_Load

End Sub

Private Sub z7_Click(Index As Integer)

If (l1.Caption <>"0") Then

l1.Caption = "-" + l1.Caption

End If

End Sub

Private Sub z8_Click(Index As Integer)

com

l1.Caption = Str(y)

End Sub

扩展资料

语言缺点

Visual Basic 语言具有不支持继承、无原生支持多线程、异常处理不完善等三项明显缺点，使其有所局限性（此些缺点皆已在 vb .net 获得改进）。

不支持继承

VB 5.0 和 VB 6.0 都是基于对象的编程语言，但是不包含继承特性。VB 中提供了特殊的类的功能，但是还是不能满足程序员的需求。

无原生支持多线程

Visual Basic 对于多线程无原生支持，只能通过Windows API的调用实现，且极其的不稳定。因为在API创建的线程中，并没有自动初始化运行时库，导致部分的函数无法使用。一般的，在VB6等早期的VB开发环境下，使用API创建线程的目的是完成容易使程序假死的大量数据或者逻辑的计算。

异常处理不完善

Visual Basic 中内置异常处理，即使未写异常处理代码，一旦用户出错也会d出一个明确写出出错原因对话框，接着程序终止。

Visual Basic 中可以使用 Err.Raise抛出异常。对系统及用户抛出的异常的处理常用两种模式：一是使用 On Error Resume Next 处理错误；另一种是使用 On Error Goto 将运行引入错误处理代码。但相对 C++ 等语言而言，这样的异常处理破坏了代码的结构。

参考资料：百度百科-VB

一、基础练习：编制一个数运算的数学小工具 利用VB编制一个用于数学计算的小程序——《数学小工具1》，主要有计算平方、立方、平方根、正弦、余弦、正切、余切、对数值等功能。程序界面如下：

一、分析问题：

本任务主要涉及数学运算，求平方、立方值、四次方可利用运算符计算.求平方根、正弦、余弦、正切、余切可利用VB函数计算。(VB常用数学函数)

二、算法设计：

程序流程： 输入要计算数据——>计算结果——>显示数据

VB的实现： 文本框TextBox控件表达式 标签Label控件

三、编制程序：

(一) 在VB6.0中新建一个标准EXE工程

(二) 建立一个窗体，窗体属性设置如下：

名称 = Maths

Caption = "数学小工具"

(三) 在窗体上添加一个文本框TextBox，用于输入计算数值，属性设置如下：

名称 =InputData

text="请输入数值"

(四) 在窗体上再添加一个标签Label(显示得分)，属性设置如下：

名称 = Answer

Caption = "答案:"

(五) 在窗体上再添加8个按钮CommandButton，名称不改，属性(caption)分别设置为：“平方”、“立方”、“四次方”、“平方根”、正弦”、“余弦”、“正切”、“余切”。

（六）分别双击各按钮，在Private Sub和End Sub之间给它们加上代码：

Private Sub Command1_Click()

XXXXXXXX..........代码(可多行）

End Sub

（1）求平方按钮的代码：

y=inputdata.text^2

answer.caption=y

（2）求三次方按钮的代码：

y=inputdata.text^3

answer.caption=y

（3）求四次方按钮的代码：

y=inputdata.text^4

answer.caption=y

（4）求平方根按钮的代码：

y=Sqr(inputdata.text)

answer.caption=y

（5）求正弦按钮的代码： y=Sin(inputdata.text*3.14/180)

answer.caption=y

（6）求余弦按钮的代码： y=Cos(inputdata.text*3.14/180)

answer.caption=y

（7）求正切按钮的代码： y=Tan(inputdata.text*3.14/180)

answer.caption=y

（8）求余切按钮的代码：

y=1/Tan(inputdata.text*3.14/180)

answer.caption=y

如果要控制输出数值的小数位格式,可在两行代码中间加语句行:

y=format(y,"0.0")1位整数,1位小数

(七) 在窗体上再添加2个按钮CommandButton，名称不改，属性分别设置为：“清空”、“退出,分别双击各按钮，在Private Sub和End Sub之间给它们加上代码：

(1)清空按钮代码:

inputdata.text=""

answer.caption=""

(2)退出按钮代码:

End

四、运行，测试程序。

五、保存好源程序文件，生成exe文件。

二、扩展练习：编制两个数运算的数学小工具 利用VB编制一个用于两数四则运算的小程序——《数学小工具2》，主要有两数相加、相减、相乘、相除、乘方等功能。程序界面如下：

一、分析问题：

本任务主要涉及两数的数学运算，两利用两个文本框输入数据，利用按钮执行运算符计算.利用标签显示结果，并且两数间的运算符根据按钮的不同显示相应的运算符号。

二、算法设计：

程序流程： 输入要计算数据——>计算结果——>显示数据

VB的实现： 文本框（两个） 表达式 标签

三、编制程序：

(一) 在VB6.0中新建一个标准EXE工程

(二) 建立一个窗体，窗体属性设置如下：

名称 = Maths2

Caption = "数学小工具2"

(三) 在窗体上添加两个文本框TextBox，名称不改，分别为text1、text2,用于输入计算数值，将两个文本框的text属性值清空

(四) 在窗体上再添加一个标签Label(显示运算符)，名称不改,属性设置为:

名称 = Label1

Caption="?"

(五) 在窗体上再添加一个标签Label(显示等号)，名称不改,属性设置为"?"。

名称 = Label2

Caption="="

(六) 在窗体上再添加一个标签Label(显示结果)，属性设置如下：

名称 = Answer

Caption="?"

(五) 在窗体上再添加4个按钮CommandButton，名称不改，属性(caption)分别设置为：“加”、“减”、“乘”、“除”、"乘方”。

（六）分别双击各按钮，在Private Sub和End Sub之间给它们加上代码：

Private Sub Command1_Click()

XXXXXXXX..........代码(可多行）

End Sub

（1）相加按钮的代码：

y=Val(Text1.Text) + Val(Text2.Text)

answer.caption=y

label1.caption="+"

（2）相减按钮的代码： y=Val(Text1.Text) - Val(Text2.Text)

answer.caption=y

label1.caption="-"

（3）相乘按钮的代码： y=Val(Text1.Text) * Val(Text2.Text)

answer.caption=y

label1.caption="*"

（4）相乘按钮的代码： y=Val(Text1.Text) / Val(Text2.Text)

answer.caption=y

label1.caption="/"

（5）相乘按钮的代码： y=Val(Text1.Text) ^ Val(Text2.Text)

answer.caption=y

label1.caption="^"

如果要控制输出数值的小数位格式,可在两名代码中间加语句行:

y=format(y,"0.0")1位整数,1位小数

四、运行，测试程序。

五、保存好源程序文件，生成exe文件。

---