实验一 设计一个简易的计算器
一、实验目的
（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
对象 | 属性名称 | 属性值 | 对象 | 属性名称 | 属性值 |
Form1 | Caption | 简易计算器 | Text2 | Text | （空） |
Frame1 | Caption | 输入数据 | Command1 | Caption | + |
Frame2 | Caption | 选择计算 | Command2 | Caption | - |
Label1 | Caption | 操作数一： | Command3 | Caption | * |
Label2 | Caption | 操作数二： | Command4 | Caption | / |
Label3 | Caption | 结果： | Command5 | Caption | 清空 |
Label4 | Caption | （空） | Command6 | Caption | 退出 |
Text1 | Text | （空） | |||
图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。
//基本数据类型（PPT第13页）
数据类型 | 类型名称 | 类型符号 | 存储空间 | 范围 精度 | ||
数值型 | 整数 | 字节型 vb设计模拟密码输入器 | Byte | 1B | 0～28-1 | |
整型 | Integer | % | 2B | -215～215-1 | ||
长整型 | Long | & | 4B | -231～231-1 | ||
实数 | 单精度型 | Single | ！ | 4B | 略 7位有效数字 | |
双精度型 | Double | # | 8B | 略 15位有效数字 | ||
货币型 | Currency | @ | 8B | 略 | ||
字符型 | String | $ | 与串长度有关 | |||
逻辑型 | Boolean | 2B | True或False | |||
日期型 | Date | 8B | 100年1月1日~9999年12月31日 | |||
对象型 | Object | 4B | 任何对象引用 | |||
变体型 | Variant | ≧16B | 数值型可达Double型的范围，变体型是VB数据的缺省数据类型，它可以存储各种类型的数据。 | |||
//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） ‘用Val（）函数将Text2中字符串转换成数值
版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。
发表评论