使用VB 设计一个简易计算器

实验一设计一个简易的计算器

一、实验目的

（1）熟悉VB集成开发环境

（2）设计一个简易的计算器，熟悉使用VB开发应用程序的全过程

二、实验内容

【题目】：创建一个VB工程，实现简易计算器的功能，效果图如图1-1所示。

图1-1

【编程要求】：运行程序时，首先，在Text1中输入操作数一，在Text2中输入操作数二；然后单击“+”按钮，可实现两个数的加法运算并显示其结果；单击“-”按钮，可实现两个数的减法运算；单击“*”按钮，可实现两个数的乘法运算；单击“/”按钮，可实现两个数的除法运算；单击“清空”按钮，可清空操作数和结果；单击“退出”按钮退出程序运行。

三、实验步骤

（1）启动Microsoft Visual Basic 6.0，新建一个工程。

（2）创建用户界面。参照图1-2所示添加控件并进行布置。

图1-2

在窗体Form1适当位置上添加框架控件Frame1和Frame2，添加标签Label1、Label2、Label3、Label4，添加文本框（TextBox）Text1和Text2，添加命令按钮（CommandButton）Command1、Command2、Command3、Command4、Command5、Command6。

（3）设置界面上各个对象的属性。如表1-1所设置。效果如图1-3所示。

表1-1

图1-3

（4）编写对象相应事件的程序代码

要实现题目要求的功能，需要在代码编辑器中编写6个命令按钮的单击事件过程。代码如图1-4或图1-5所示。

（5）保存工程。

输入代码完成后，应该先保存工程，再运行程序，以避免因死机等意外发生而造成损失。一个工程由若干文件组成，保存文件的顺序应该是先保存窗体文件（F1.frm），再保存文件工程文件（P1.vbp），而保存地点则可自由安排。

（6）测试和调试应用程序。

（7）生成可执行程序。

执行“文件”—>“生成P1.exe”菜单命令，根据提示进行操作即可将本工程编译成能脱离VB环境而独立运行的可执行程序P1.exe。

图1-4

图1-5

【补充知识点】

类定义了对象的属性、方法和事件。

在VB系统中，已经设计好了大量的类，如窗体、菜单以及工具箱中的各个控件等。

类是创建对象实例的模板

对象是类的实例。控件类的实例化，可以得到真正的控件对象。实例化过程就是在工具箱选中某一控件类按钮，然后在窗体上拖动鼠标绘制一个控件的过程。绘制的控件就是对象。

对象是具有某些特征和行为的实体。某些特征指的是对象的一组属性的取值，某些行为指的是对象的方法。同类对象具有一组相同的属性，但不会有完全相同的属性值，即特征各异。

//对象的命名：按VB约定，名称必须是以字母或汉字开头的由字母、汉字、数字、下划线组成的串，其长度≦127个字符。

//创建对象后可以进一步设置和修改对象的属性，有以下两种方法：

（1）在设计阶段利用属性窗口设置和修改属性值。

（2）在程序中用赋值语句给属性赋值，其格式为：对象名.属性=属性值如在Command1的单击事件过程中，给Label4的Caption属性赋值，代码如下：

Private Sub Command1_Click( )

Label4.Caption = Val(Text1) + Val(Text2)

End Sub

大部分属性既可以在属性窗口中设置，也可以在程序中设置，如Label4.Caption属性。也有一些只能在属性窗口中设置，不能在程序中设置，如对象的Name属性。还有一些只能在程序中设置，不能在属性窗口中设置，如ListBox的ListIndex。

//Dim f As Single

用single作为数据类型（字符串变量）进行声明

如5/3=1.666667

Dim 用在局部变量或模块级变量的声明中

// Label4.Caption = Val(Text1.Text) / Val(Text2.Text)

此处用隐式声明变量，在VB中，允许不显示声明而直接使用变量，此时VB会把该变量指定为变体（Variant）数据类型，并默认为局部变量。

如5/3=1.66666666666667

//Val（）函数

格式：Val（c）

功能：将数据字符串转换成数值

说明：C为字符串类型的参数，函数返回值为数值型数据。

函数类型：Double型

Val( )函数将数字字符串转换为数值型数据，是从第一个字符开始截取，遇到非数值字符（第一个表示指数的E、e、D、d除外）时停止，返回已截取的数值作为其值。

例如：

Val（”a45”）的值为0

Val（”45a12”）的值为45

Val（”3e2”）的值为300 3*102

Val（”3ee2”）的值为3

//使用TextBox输入数据

程序运行时在应用程序界面上，使用文本框（TextBox）接收用户从键盘上输入的数据，文本框的Text属性（字符类型）为输入的内容，供程序进行处理。

例如：

Dim Sname As String，age As Integer

Sname=Text1.Text ‘Text1.Text中存有用户输入的数据

age=Val（Text2.Text）‘用V al（）函数将Text2中字符串转换成数值