1.9.1　情景应用1——加法计算器

 视频讲解：光盘\mr\01\lx\加法计算器.exe

 实例位置：光盘\mr\01\qjyy\01

下面制作一个简单的加法计算器，效果如图1.50所示，练习常用控件和加法符号“+”的简单用法。

实现过程如下：

（1）新建一个工程，在窗体上添加3个Label控件、3个TextBox控件和一个CommandButton控件。

（2）设置3个Label控件的Capiton属性分别为X、Y、Z。

（3）设置CommandButton控件的Caption属性为“计算”。

（4）编写代码。

窗体载入时清空文本框中的内容，并设置显示结果的Text3不可用，防止用户输入。代码如下：

Option Explicit

Private Sub Form_Load()

Text1.Text = "" '清空文本框

  Text2.Text = ""

  Text3.Text = ""

  Text3.Enabled = False '设置Text3不可用

End Sub

将Text1和Text2做加法计算，结果显示在Text3中，代码如下：

Private Sub Command1_Click()

  Text3.Text = Val(Text1.Text) + Val(Text2.Text) 'Text1和Text2两个文本框中的值相加的结果赋值给Text3

End Sub

& 说明：前面我们说TextBox控件是一个既能显示又能编辑文本的对象，因而它显示的内容都是字符型的，而上述代码涉及了加法计算，所以就使用了Val（）函数将TextBox文本框中的内容转换为数值型，以方便计算。

DIY：制作小学生加法口算题卡。提示：在上面程序的基础上完善界面，建议使用PS制作图片框作为背景，另外，如果能使用随机函数Rnd实现随机出题，效果会更好。（15分）（实例位置：光盘\mr\01\qjyy\01_diy）

1.9.2　情景应用2——动起来的TextBox控件

 视频讲解：光盘\mr\01\lx\动起来的TextBox控件.exe

 实例位置：光盘\mr\01\qjyy\02

练习使用TextBox控件，熟悉其常用属性Left，并通过该属性让TextBox控件动起来。实现过程为：新建一个工程，在窗体上添加一个CommandButton控件和两个TextBox控件，编程实现每单击一次CommandButton控件，两个TextBox控件向右移动一段距离，程序代码如下：

Option Explicit

Private Sub Command1_Click()

  Text1.Left = Text1.Left + 50 '设置Text1距窗体左边的距离加50

  Text2.Left = Text2.Left + 100 '设置Text2距窗体左边的距离加100

End Sub

DIY：使用Timer和Label控件实现滚动字幕。在工具箱中找到Timer控件和Label控件，添加到窗体上，设置Timer控件的Interval属性值为100，然后在Timer事件过程中编写类似于上述实例的代码。相关技术可查阅MSDN或后面的章节。（15分）（实例位置：光盘\mr\01\qjyy\02_diy）

U 注意：如果不进行判断，滚动字幕会一直向右移动，这个问题等学完第3堂课再来解决。