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堂课再来解决。
