1.9.3 情景应用3——让窗体动起来
视频讲解：光盘\mr\01\lx\让窗体动起来.exe
实例位置：光盘\mr\01\qjyy\03
编程实现每单击一次CommandButton控件，窗体的宽度和高度自动增加。实现过程为：新建一个工程，在窗体上添加一个CommandButton控件，程序代码如下：
Option Explicit
Private Sub Command1_Click()
Form1.Width = Form1.Width + 50 '设置窗体的宽度为原来宽度加50
Form1.Height = Form1.Height + 50 '设置窗体的高度为原来高度加50
End Sub
DIY：新建一个工程，在窗体上添加一个CommandButton控件，编程实现每单击一次CommandButton控件，窗体的宽度和高度自动减少。（15分）（实例位置：光盘\mr\01\qjyy\03_diy）
1.9.4 情景应用4——编程实现乘法计算
视频讲解：光盘\mr\01\lx\编程实现乘法计算.exe
实例位置：光盘\mr\01\qjyy\04
下面制作一个简单的乘法计算器，效果如图1.51所示。实现过程为：新建一个工程，在窗体上添加一个CommandButton控件和3个TextBox控件，设置相应属性后，编写代码。
图1.51 编程实现乘法计算
窗体载入时清空文本框中的内容，并设置显示结果的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
DIY：新建一个工程，在窗体上添加一个CommandButton控件和3个TextBox控件，编程实现除法计算，如25÷5=5，100÷5=20。（20分）（实例位置：光盘\mr\01\qjyy\04_diy）
提示：这里要注意除法的符号，在Visual Basic中，可以按F1键调用MSDN查看除号的写法及用法。
