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查看除号的写法及用法。