1.9.3　情景應(yīng)用3——讓窗體動起來

 視頻講解：光盤\mr\01\lx\讓窗體動起來.exe

 實例位置：光盤\mr\01\qjyy\03

編程實現(xiàn)每單擊一次CommandButton控件，窗體的寬度和高度自動增加。實現(xiàn)過程為：新建一個工程，在窗體上添加一個CommandButton控件，程序代碼如下：

Option Explicit

Private Sub Command1_Click()

  Form1.Width = Form1.Width + 50 '設(shè)置窗體的寬度為原來寬度加50

  Form1.Height = Form1.Height + 50 '設(shè)置窗體的高度為原來高度加50

End Sub

DIY：新建一個工程，在窗體上添加一個CommandButton控件，編程實現(xiàn)每單擊一次CommandButton控件，窗體的寬度和高度自動減少。（15分）（實例位置：光盤\mr\01\qjyy\03_diy）

1.9.4　情景應(yīng)用4——編程實現(xiàn)乘法計算

 視頻講解：光盤\mr\01\lx\編程實現(xiàn)乘法計算.exe

 實例位置：光盤\mr\01\qjyy\04

下面制作一個簡單的乘法計算器，效果如圖1.51所示。實現(xiàn)過程為：新建一個工程，在窗體上添加一個CommandButton控件和3個TextBox控件，設(shè)置相應(yīng)屬性后，編寫代碼。

圖1.51  編程實現(xiàn)乘法計算

窗體載入時清空文本框中的內(nèi)容，并設(shè)置顯示結(jié)果的Text3不可用，防止用戶輸入，代碼如下：

Option Explicit

Private Sub Form_Load()

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

  Text2.Text = ""

  Text3.Text = ""

  Text3.Enabled = False '設(shè)置Text3不可用

End Sub

將Text1和Text2做乘法計算，結(jié)果顯示在Text3中，代碼如下：

Private Sub Command1_Click()

  Text3.Text = Val(Text1.Text) * Val(Text2.Text)  'Text1和Text2兩個文本框中的值相乘的結(jié)果賦值給Text3

End Sub

DIY：新建一個工程，在窗體上添加一個CommandButton控件和3個TextBox控件，編程實現(xiàn)除法計算，如25÷5=5，100÷5=20。（20分）（實例位置：光盤\mr\01\qjyy\04_diy）

 提示：這里要注意除法的符號，在Visual Basic中，可以按F1鍵調(diào)用MSDN查看除號的寫法及用法。