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

《使用VB 设计一个简易计算器.docx》由会员分享，可在线阅读，更多相关《使用VB 设计一个简易计算器.docx（6页珍藏版）》请在三一办公上搜索。

1、实验一设计一个简易的计算器-、实验目的(1) 熟悉VB集成开发环境(2) 设计一个简易的计算器，熟悉使用VB开发应用程序的全过程二、实验内容【题目】：创建一个VB工程，实现简易计算器的功能，效果图如图1-1所示。图1-1【编程要求】：运行程序时，首先，在Text1中输入操作数一，在Text2中输入操作数二；然 后单击“+”按钮，可实现两个数的加法运算并显示其结果；单击-”按钮，可实现两个数 的减法运算；单击“* ”按钮，可实现两个数的乘法运算；单击“/”按钮，可实现两个数的 除法运算；单击“清空”按钮，可清空操作数和结果；单击“退出”按钮退出程序运行。 三、实验步骤(1) 启动 Microso

2、ft Visual Basic 6.0,新建一个工程。(2) 创建用户界面。参照图1-2所示添加控件并进行布置。在窗体Forml适当位置上添加框架控件Framel和Frame2,添加标签Labell、Label2、 Label3、Label4，添加文本框(TextBox) Textl 和 Text2,添加命令按钮(CommandButton) Commandl、Command2、Command3、Command4、Command5、Command6。（3）设置界面上各个对象的属性。如表1-1所设置。效果如图1-3所示。表1-1对象属性名称属性值对象属性名称属性值FormlCaption简易计算

3、器Text2Text（空）FramelCaption输入数据CommandlCaption+Frame2Caption选择计算Command2Caption-LabellCaption操作数一：Command3Caption*Label2Caption操作数一：Command4Caption/Label3Caption结果：Command5Caption清空Label4Caption（空）Command6Caption退出TextlText（空）图1-3（4）编写对象相应事件的程序代码要实现题目要求的功能，需要在代码编辑器中编写6个命令按钮的单击事件过程。代码 如图1-4或图1-5所示。（5）

4、保存工程。输入代码完成后，应该先保存工程，再运行程序，以避免因死机等意外发生而造成损失。 一个工程由若干文件组成，保存文件的顺序应该是先保存窗体文件（F1.frm），再保存文件 工程文件（Pl.vbp），而保存地点则可自由安排。（6）测试和调试应用程序。（7）生成可执行程序。执行“文件”一“生成P1.exe”菜单命令，根据提示进行操作即可将本工程编译成能 脱离VB环境而独立运行的可执行程序P1.exe。Privat.e Sub Command 1_C1 ick (.)Labe 14. Caption 二 Vai (Text 1. Text) + Vai (Text2. Text.) E；nd

5、SubPrivat. e Sub Commancl2_Cl ick 0Labe 14. Caption 二 Vai (Text 1. Text) - Vai (Text2. Text.)End SubPrivat. e Sub Commancl3_Cl ick 0Labe 14. Caption 二 Vai (Text 1. Text) * Vai (Text2. Text.)End SubPrivat. e Sub Commancl4_Cl ick 0Dim f As Single 甬single作为数据类型进行声明Dim用在局部变量或模块级变量的声明中 f = Vai (Text 1. T

6、ext) / Vai(Text2. Text)Labe14. Caption = fRem Labe 14. Caption = Vai(Text 1) / Vai(Text2)End SubPrivat. e Sub Commancl5_Cl ick (.)Labe14. CaptionText 1. Text 二Text 2. Text = * End SubPrivat e Sub Command6_Cl i ck (.)EndEnd Sub l-l IICobband2图1-4 | |Cli ckPrivat.e Sub Command 1 _C 1 ic-k (.)Labe 14.

7、Caption = Vai (Text 1) + Vai (Text2)End SubPri vat.e Sub Command2_Cl ic-k (.)Labe 14. Caption 二 Text 1. Text - Text2. TextEnd SubPrivate Sub Commands_C 1 ick (.)Labe 14. Caption 二 Vai (Text. 1. Text) * Vai (Text2. Text.) End SuhPrivate Sub Command4_C 1 ick (.)Dim f As Single 用single作为数据类型进行声明Dim用在局部

8、变量或模块级变量的声明中 f = Vai (Text 1. Text) / Vai(Text2. Text) Labe 14. Caption = fRem Labe 14. Caption = Vai(Text 1) / Vai(Text2)End SubPri vat.e Sub Command5_Cl ic-k (.)Labe 14. CaptionText 1. Text 二”Text.2. Text.二End SubP r i v at. e Su b Comm an d 6_G 1 i c- k t,)EndEnd Sub【补充知识点】类定义了对象的属性、方法和事件。在VB系统中，

9、已经设计好了大量的类，如窗体、菜单以及工具箱中的各个控件等。类是创建对象实例的模板对象是类的实例。控件类的实例化，可以得到真正的控件对象。实例化过程就是在工具 箱选中某一控件类按钮，然后在窗体上拖动鼠标绘制一个控件的过程。绘制的控件就是对象。对象是具有某些特征和行为的实体。某些特征指的是对象的一组属性的取值，某些行为 指的是对象的方法。同类对象具有一组相同的属性，但不会有完全相同的属性值，即特征各 异。/对象的命名：按VB约定，名称必须是以字母或汉字开头的由字母、汉字、数字、下 划线组成的串，其长度127个字符。/创建对象后可以进一步设置和修改对象的属性，有以下两种方法：(1) 在设计阶段利用

10、属性窗口设置和修改属性值。(2) 在程序中用赋值语句给属性赋值，其格式为：对象名属性=属性值如在Commandl的单击事件过程中，给Label4的Caption属性赋值，代码如下：Private Sub Command1_Click()Label4.Caption = Val(Textl) + Val(Text2)End Sub大部分属性既可以在属性窗口中设置，也可以在程序中设置，如Label4.Captio属性。 也有一些只能在属性窗口中设置，不能在程序中设置，如对象的Name属性。还有一些只能 在程序中设置，不能在属性窗口中设置，如ListBox的Listindex/基本数据类型(PPT第

11、13页)数据类型类型名称类型符号存储空间范围精度数 值 型整数字节型Byte1B 0 28-1整型Integer%2B-215215-1长整型Long&4B-231231-1实数单精度型Single!4B略7位有效数字双精度型Double#8B略15位有效数字货币型Currency8B略字符型String$=中1/产与串长度 有关逻辑型Boolean2BTrue或 False日期型Date8B100年1月1日9999年12月31日对象型Object4B任何对象引用变体型VariantW16B数值型可达Double型的范围，变体 型是VB数据的缺省数据类型，它 可以存储各种类型的数据。/Dim

12、f As Single用singl作为数据类型(字符串变量)进行声明 如 5/3=1.666667Dim用在局部变量或模块级变量的声明中/ Label4.Caption = Val（Textl.Text） / Val（Text2.Text）此处用隐式声明变量，在VB中，允许不显示声明而直接使用变量，此时VB会把该变量指定为变体（Variant）数据类型，并默认为局部变量。如 5/3=1.66666666666667/Val（）函数格式：Val（c）功能：将数据字符串转换成数值说明：C为字符串类型的参数，函数返回值为数值型数据。函数类型：Double型Val（）函数将数字字符串转换为数值型数据，

13、是从第一个字符开始截取，遇到非数值字符（第 一个表示指数的E、e、D、d除外）时停止，返回已截取的数值作为其值。例如：Val（”a45”）的值为 0Val（”45a12”）的值为 45Val（”3e2”）的值为 3003*102Val（”3ee2”）的值为 3/使用TextBox输入数据程序运行时在应用程序界面上，使用文本框（TextBox）接收用户从键盘上输入的数据，文 本框的Text属性（字符类型）为输入的内容，供程序进行处理。例如：Dim Sname As String， age As IntegerSname=Text1.TextText1.Text中存有用户输入的数据age=Val（Text2.Text）用Val（）函数将Text2中字符串转换成数值