1.9.1　情景應(yīng)用1——加法計(jì)算器

 視頻講解：光盤(pán)\mr\01\lx\加法計(jì)算器.exe

 實(shí)例位置：光盤(pán)\mr\01\qjyy\01

下面制作一個(gè)簡(jiǎn)單的加法計(jì)算器，效果如圖1.50所示，練習(xí)常用控件和加法符號(hào)“+”的簡(jiǎn)單用法。

實(shí)現(xiàn)過(guò)程如下：

（1）新建一個(gè)工程，在窗體上添加3個(gè)Label控件、3個(gè)TextBox控件和一個(gè)CommandButton控件。

（2）設(shè)置3個(gè)Label控件的Capiton屬性分別為X、Y、Z。

（3）設(shè)置CommandButton控件的Caption屬性為“計(jì)算”。

（4）編寫(xiě)代碼。

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

Option Explicit

Private Sub Form_Load()

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

  Text2.Text = ""

  Text3.Text = ""

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

End Sub

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

Private Sub Command1_Click()

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

End Sub

& 說(shuō)明：前面我們說(shuō)TextBox控件是一個(gè)既能顯示又能編輯文本的對(duì)象，因而它顯示的內(nèi)容都是字符型的，而上述代碼涉及了加法計(jì)算，所以就使用了Val（）函數(shù)將TextBox文本框中的內(nèi)容轉(zhuǎn)換為數(shù)值型，以方便計(jì)算。

DIY：制作小學(xué)生加法口算題卡。提示：在上面程序的基礎(chǔ)上完善界面，建議使用PS制作圖片框作為背景，另外，如果能使用隨機(jī)函數(shù)Rnd實(shí)現(xiàn)隨機(jī)出題，效果會(huì)更好。（15分）（實(shí)例位置：光盤(pán)\mr\01\qjyy\01_diy）

1.9.2　情景應(yīng)用2——?jiǎng)悠饋?lái)的TextBox控件

 視頻講解：光盤(pán)\mr\01\lx\動(dòng)起來(lái)的TextBox控件.exe

 實(shí)例位置：光盤(pán)\mr\01\qjyy\02

練習(xí)使用TextBox控件，熟悉其常用屬性Left，并通過(guò)該屬性讓TextBox控件動(dòng)起來(lái)。實(shí)現(xiàn)過(guò)程為：新建一個(gè)工程，在窗體上添加一個(gè)CommandButton控件和兩個(gè)TextBox控件，編程實(shí)現(xiàn)每單擊一次CommandButton控件，兩個(gè)TextBox控件向右移動(dòng)一段距離，程序代碼如下：

Option Explicit

Private Sub Command1_Click()

  Text1.Left = Text1.Left + 50 '設(shè)置Text1距窗體左邊的距離加50

  Text2.Left = Text2.Left + 100 '設(shè)置Text2距窗體左邊的距離加100

End Sub

DIY：使用Timer和Label控件實(shí)現(xiàn)滾動(dòng)字幕。在工具箱中找到Timer控件和Label控件，添加到窗體上，設(shè)置Timer控件的Interval屬性值為100，然后在Timer事件過(guò)程中編寫(xiě)類(lèi)似于上述實(shí)例的代碼。相關(guān)技術(shù)可查閱MSDN或后面的章節(jié)。（15分）（實(shí)例位置：光盤(pán)\mr\01\qjyy\02_diy）

U 注意：如果不進(jìn)行判斷，滾動(dòng)字幕會(huì)一直向右移動(dòng)，這個(gè)問(wèn)題等學(xué)完第3堂課再來(lái)解決。