一、编写简单的VB程序：然后实现该程序

一、编写简单的VB 程序：然后实现该程序

案例1-2. 设计一个完成加法和减法功能的简单计算器, 利用文本框做数据的输入和输出. 程序启动后的界面如图所示。

练习目标：

（1）掌握编写一个VB 应用程序的一般过程

（2）掌握从对象窗体进入代码窗体的方法

（3）掌握简单的代码编写方法（本题目的难点和重点）

（4）了解标签和文本框的本质区别（标签只能做输出，文本框可做输入和输出）

（5）了解标签可以设置为文本框的外形，文本框也可以设置为标签的外形

本案例用到的属性：Text 的Alignment 属性和Caption 属性；用到的方法：Command 的Click 方法。

（6）复习控件的添加和调整大小的方法。

（7）了解Val 函数和Str 函数的作用。

要求：

1.单击“加法”按钮，完成将文本框1中的数据和文本框2中的数据相加，结果放文本框3中。

2.单击“减法”按钮，完成将文本框1中的数据和文本框2中的数据相减，结果放文本框3中。

3.单击“清屏”，则清除三个文本框中的内容。

4.单击“退出”，则结束程序。

操作步骤如下：

第一步：创建一个工程（与案例1-1相同）

第二步：建立用户界面

(1) 建立一个新工程（程序）：与案例1-1相同

(2) 出现窗体编辑器,调整窗体至要求的大小。

(3) 在窗体上按照题目要求画出控件：

画三个“文本框”，框内自动标出“Text1、Text2、Text3”；

画三个标签, 标签内自动标出“Label1、Label3、Label3”

画四个“命令按钮”，按钮内自动标出“Command1、Command2、Command3、Command4”。

(4) 画完所有控件后，适当调整其位置和大小。

思考：一般情况下，同类按钮应该一样大，应怎样实现？

第三步：设置控件的属性

(1) VB程序设计中要设置的属性只有几个最常用的属性，如控件的“名称”、Caption、Font、Text、ForeColor，其它属性不用设置，采用默认值即可。

(2) 为使设计界面时清晰有条理，通常在设计前将窗体、控件的设计信息做成一个表，然后按这个表来设计。本题的界面设计信息表为：

对象名称(Name) 标题(Caption) 文本(Text)

窗体 Form1 VB程序设计示例

标签1 Label1 数据1

标签2 Label2 数据2

标签3 Label3 计算结果

文本框1 TxtData1 无空

文本框2 TxtData2 无空

文本框3 TxtRel 无空

按钮1 cmdAdd 加法无

按钮2 cmdSub 减法无

按钮3 cmdCls 清屏无

按钮4 cmdEnd 清屏无

注意：

（1）“名称”就是Name属性，与Caption是不同的属性。Name是对象的内在名字，Caption 是对象的外在“标题”。

（2）“名称”属性是只读属性，在属性窗口中标的是“名称”，在程序中则用Name。

（3）控件的Font属性和ForeColor属性用户可以根据需要设置。

第四步：编写事件驱动程序代码（在案例1-1中没有这一步）

1．进入“程序代码窗口”（有4种办法）

?双击要编写驱动程序的对象；

?执行[视图]/[代码窗口]；

?按F7键；

?单击“工程资源管理器”的“查看代码”

程序代码窗口介绍

2．编写“加”按钮的驱动程序

（1）根据题目要求，单击“加法”按钮，则执行加法操作，因此要在代码编辑的对象框中选择“cmdAdd”(因为“加法”按钮的Name属性为cmdAdd); 又因为是“单击”，所以在过程/事件框中选择“Click”，系统将自动给出驱动程序的起始行和结束行。（2）在起始行和结束行之间编写代码如下：

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

. 对象属性值的表示为：对象名.属性名例如:Text1.text

. 在代码中修改对象的属性值

注意：

（1）上面语句中的Val( )是一个标准函数，功能是将字符型数据转换为数值型数据；和它对应的还有一个Str( )函数，功能与Val( )功能相反,详细功能和使用方法请查阅MSDN。

（2）Text1.text是文本框中的内容: 减法按钮的驱动程序编写方法同上

3、“清屏”按钮驱动程序（清掉文本框中的内容）

Private Sub cmdCls_Click()

Text1.Text = " "

Text2.Text = " "

Text3.Text = " "

End Sub

注意：程序体内的语句应该向右缩进几格；清除文本框即是在文本框中什么也不写；

4、“结束”按钮驱动程序

Private Sub cmdExit_Click()

End ‘ End是结束语句，功能是结束一个程序的运行；

End Sub

第五步：保存程序

工程文件保存为：lx1-2.vbp,窗体文件保存为lx1-2.frm

第六步：运行工程

单击工具栏上的启动按钮，或选择菜单下“运行/启动”，程序开始运行，初始界面如下：

在第一个文本框和第二个文本框中分别输入操作数据，单击“加法”或“减法”按钮，则第三个文本框中将出现计算结果；单击“清除”按钮，则三个文本框中的数据被清除。

思考：

1、上面程序运行后，在输入数据时数据在文本框的左边，怎样能让数据在文本框的中间或右边？

2、如果将编写加法的语句代码Text3.Text = Val(Text1.Text) + Val(Text2.Text)

改为：Text3.Text = Text1.Text + Text2.Text ，运行结果对吗？为什么？

3、能不能将存放计算结果的文本框用标签代替？用哪个属性可以将标签的外形改为文本框的外形？