1、1實實例例2實例實例2.3實例實例2.4實例實例2.5實例實例2.8實例實例2.9實例實例2.10實例實例2.13實例實例2.14實例實例2.15實例實例2.1實例實例2.2實例實例2.6實例實例2.7實例實例2.11實例實例2.12實例實例2.16實例實例2.173P214【實例2.1】輸入被除數和除數，計算商和余數。程序運行時，在文本框中輸入被除數和除數，單擊“=”命令按鈕，計算并將結果顯示在相應的標簽上。 P215（1）設計用戶界面 （2）設置對象屬性添加1個命令按鈕和7個標簽；選取文本框圖標 ，添加2個文本框 6對象屬性屬性值窗體（名稱）CaptionfrmEx2_1除法運算標簽1Ca

2、ption被除數標簽2Caption除數標簽3Caption商標簽4Caption余標簽5Caption7對象屬性屬性值標簽6（名稱）BorderStyle CaptionlblQ1-Fixed Single（置空）標簽7（名稱）BorderStyle CaptionlblR1-Fixed Single（置空）文本框1（名稱）TexttxtOp1（置空）文本框2（名稱）TexttxtOp2（置空）命令按鈕（名稱）CaptioncmdEqual8（3）編寫單擊“=”命令按鈕的代碼 Private Sub cmdEqual_Click() Dim m As Integer Dim n As Int

3、eger Dim q As Integer Dim r As Integer m = Val(txtOp1.Text) n = Val(txtOp2.Text) q = m n r = m Mod n lblQ.Caption = Str(q) lblR.Caption = Str(r)End Sub 只能存放整數只能存放整數 整除運算符整除運算符 求余運算符求余運算符 p409（4）運行程序驗證。 10【實例2.2】已知球的半徑，計算球的體積和表面積。在文本框中輸入半徑，單擊“計算”命令按鈕，計算并輸出結果，體積值和表面積的值顯示在相應的標簽上。球的體積和表面積的計算公式為： 334rv24

4、rs11（1）設計用戶界面添加5個標簽、1個命令按鈕和1個文本框 （2）設置各對象的屬性 12對象屬性屬性值窗體（名稱）CaptionfrmEx2_2計算球的體積和表面積標簽1Caption球的半徑標簽2Caption體積標簽3Caption表面積標簽4（名稱）BorderStyle CaptionlblV1-Fixed Single（置空）標簽5（名稱）BorderStyleCaptionlblS1-Fixed Single（置空）13對象屬性屬性值文本框（名稱）TexttxtR（置空）命令按鈕（名稱）CaptioncmdCalc計算14（3）編寫單擊“計算”命令按鈕的代碼 Private

5、Sub cmdCalc_Click() Dim pi As Double Dim r As Double Dim v As Double Dim s As Double pi = 3.141592 r = Val(txtR.Text) v = 4 * pi * r 3 / 3 s = 4 * pi * r 2 lblV.Caption = Str(v) lblS.Caption = Str(s)End Sub 只能存放實型數只能存放實型數 乘方運算符乘方運算符 p41p5315（4）運行程序驗證 16【實例2.3】輸入字符串，實現首尾連接。程序運行時，在文本框中輸入字符串，單擊“連接”命令按鈕

6、，將輸入的字符串接入標簽內容的尾部，同時，清除文本框中的內容，繼續在文本框中輸入字符串，單擊“連接”，反復多次，在標簽中顯示多個字符串連接的結果。 17（1）設計用戶界面添加1個文本框、2個標簽和1個命令按鈕 （2）設置各對象的屬性 18對象屬性屬性值窗體（名稱）CaptionfrmEx2_3字符串連接標簽1Caption請輸入字符串標簽2（名稱）BorderStyle CaptionlblResult1-Fixed Single（置空）文本框（名稱）TexttxtString（置空）命令按鈕（名稱）CaptioncmdConnect連接19（3）編寫單擊“連接 ”命令按鈕的代碼 Privat

7、e Sub cmdConnect_Click() Dim s As String s = txtString.Text & lblResult.Caption = lblResult.Caption & s txtString.Text = End Sub 只能存放字符串只能存放字符串 字符串連接符字符串連接符 p4120（4）運行程序驗證 輸入you后的效果 3個字符串的連接結果 21【實例2.4】窗體中有2個標簽、1個文本框和1個命令按鈕。程序運行時，在文本框中輸入一個字符，單擊“顯示Ascii碼值”命令按鈕，在標簽中顯示出相應的ASCII碼值。 22操作步驟 （1）設計用

8、戶界面在窗體中添加所需控件 （2）設置各對象的屬性 23對象屬性屬性值窗體（名稱）CaptionfrmEx2_4ASCII碼值查詢標簽1Caption輸入一個字符標簽2（名稱）BorderStyle CaptionlblResult1-Fixed Single（置空）文本框（名稱）TexttxtChar（置空）命令按鈕1（名稱）CaptioncmdAscVal顯示Ascii碼值24（3）編寫單擊“顯示Ascii碼值”命令按鈕的代碼 Private Sub cmdAscVal_Click() Dim m As Integer m = Asc(txtChar.Text) lblResult.Cap

9、tion = 字符 & txtChar.Text & 的Ascii碼值為： & m txtChar.Text = End Sub p6125（4）運行程序驗證 26【實例2.5】窗體中有1個命令按鈕。程序運行時，單擊“背景色”命令按鈕，隨機改變窗體顏色。27操作步驟 （1）設計用戶界面在窗體中添加1個命令按鈕 （2）設置各對象的屬性 28對象屬性屬性值窗體（名稱）CaptionfrmEx2_5變色窗體命令按鈕（名稱）CaptioncmdBkColor背景色29（3）編寫單擊“背景色”命令按鈕的代碼 Private Sub cmdBkColor_Click() Dim c

10、olnum As Integer Randomize colnum = Int(16 * Rnd) frmEx2_5.BackColor = QBColor(colnum)End Sub 產生產生(0,1)之內的實數之內的實數 Rnd * 100產生產生(0,100)之內的隨機實數之內的隨機實數 Int(Rnd * 100)產生產生0,99之內的隨機整數之內的隨機整數 Int(Rnd * 100) + 10產生產生10,109之內的隨機整數之內的隨機整數 保證與前一次的產生值無關保證與前一次的產生值無關 0至至15p64p30630（4）運行程序驗證 3132【實例2.6】程序一運行，3個文本

11、框立刻處于鎖定狀態，而且顯示“文本框鎖定狀態”。單擊“上到下”命令按鈕，清空3個文本框、上面文本框處于可輸入狀態、下面2個文本框處于鎖定狀態，同時輸入焦點在上面文本框中；單擊“下到上”命令按鈕，清空3個文本框、上面2個文本框處于鎖定狀態、下面文本框處于可輸入狀態，同時輸入焦點在下面文本框中。在上面文本框中輸入一行小寫字母，則中間文本框中將會隨之顯示出與上面文本框中的內容對應的大寫字母；在下面文本框中輸入一行大寫字母，則中間文本框中將會隨之顯示出與下面文本框中的內容對應的小寫字母。 33操作步驟 （1）設計用戶界面在窗體中添加所需控件 （2）設置各對象的屬性 34對象屬性屬性值窗體（名稱）Cap

12、tionfrmEx2_6連鎖反應效果標簽1Caption文本1標簽2Caption文本2標簽3Caption文本3文本框1（名稱）MaxLengthTexttxtUp20（置空）35對象屬性屬性值文本框2（名稱）MaxLengthTexttxtMiddle20（置空）文本框3（名稱）MaxLengthTexttxtDown20（置空）命令按鈕1（名稱）CaptioncmdToDown上到下命令按鈕2（名稱）CaptioncmdToUp下到上36（3）實現程序一運行時所產生的功能 Private Sub Form_Load() txtUp.Locked = True txtMiddle.Lock

13、ed = True txtDown.Locked = True txtUp.Text = 文本框鎖定狀態 txtMiddle.Text = 文本框鎖定狀態 txtDown.Text = 文本框鎖定狀態End Sub 不允許用戶編輯不允許用戶編輯 37（4）編寫“上到下”命令按鈕的Click事件過程 Private Sub cmdToDown_Click() txtUp.Text = txtMiddle.Text = txtDown.Text = txtUp.Locked = False txtDown.Locked = True txtUp.SetFocus End Sub 設置輸入焦點設置輸

14、入焦點 38（5）編寫“下到上”命令按鈕的Click事件過程 Private Sub cmdToUp_Click() txtUp.Text = txtMiddle.Text = txtDown.Text = txtUp.Locked = True txtDown.Locked = False txtDown.SetFocusEnd Sub 39（6）編寫上面文本框和下面文本框中內容 發生變化時觸發的代碼 Private Sub txtUp_Change() txtMiddle.Text = UCase(txtUp.Text) End SubPrivate Sub txtDown_Change(

15、) txtMiddle.Text = LCase(txtDown.Text) End Sub 40【實例2.7】上面文本框用于接收用戶輸入的內容，下面文本框為多行文本框，且不可編輯。程序運行時，單擊“添加”命令按鈕，將上面文本框中輸入的內容追加到下面文本框中，同時清除上面文本框中的內容；單擊“清除”按鈕，刪除下面文本框中的全部內容。41操作步驟 （1）設計用戶界面在窗體中添加所需控件 （2）設置各對象的屬性 42對象屬性屬性值窗體（名稱）CaptionfrmEx2_7多行文本框文本框1（名稱）TexttxtInput（置空）文本框2（名稱）TextMultiLineScrollBarsLock

16、edtxtInfo（置空）True2-VerticalTrue命令按鈕1（名稱）CaptioncmdAppend添加命令按鈕2（名稱）CaptioncmdClear清除43（3）編寫單擊“添加”命令按鈕的代碼Private Sub cmdAppend_Click() Dim s As String s = txtInput.Text & chr(13) & chr(10) txtInfo.Text = txtInfo.Text & s txtInput.Text = txtInput.SetFocusEnd Sub 回車換行符回車換行符 44（4）編寫單擊“清除”命令按

17、鈕的代碼 Private Sub cmdClear_Click() txtInfo.Text = txtInput.SetFocusEnd Sub 45【實例2.8】單擊命令按鈕，實現弧度值與度數的互相轉換。轉換公式為： 其中r表示弧度值，d表示度數。 180dr46操作步驟 （1）設計用戶界面在窗體中添加所需控件 （2）設置各對象的屬性 47對象屬性屬性值窗體（名稱）CaptionfrmEx2_8弧度與度的轉換標簽1Caption弧度值標簽2Caption度數文本框1（名稱）TexttxtRad（置空）文本框2（名稱）TexttxtDeg（置空）48對象屬性屬性值命令按鈕1（名稱）Capti

18、onPictureStyleTooTipTextcmdRad（置空）選取一圖標文件1-Graphical弧度值轉換為度命令按鈕2（名稱）CaptionPictureStyleTooTipTextcmdDeg（置空）選取一圖標文件1-Graphical度轉換為弧度值49（3）編寫命令按鈕cmdDeg的Click事件過程 Private Sub cmdDeg_Click() Dim d As Double Dim r As Double r = Val(txtRad.Text) d = r * 180 / 3.141592 txtDeg.Text = Str(d)End Sub 50（4）編寫命令

19、按鈕cmdRad的Click事件過程 Private Sub cmdRad_Click() Dim d As Double Dim r As Double d = Val(txtDeg.Text) r = d * 3.141592 / 180 txtRad.Text = Str(r)End Sub 51【實例2.9】在窗體中有4個圖片框，每個圖片框內各有一標簽。程序運行時，單擊某一圖片框，該圖片框出現相應圖片；鼠標指針移動到某一標簽上，則包含該標簽的圖片框中的圖片立刻消失。 注意添加注意添加標簽的方標簽的方法法52操作步驟 （1）設計用戶界面（2）設置各對象的屬性 選取工具箱中的圖片框圖標 ，

20、添加4個圖片框在每個圖片框上分別添加標簽 53對象屬性屬性值窗體（名稱）CaptionfrmEx2_9四季圖圖片框1（名稱）picSpring圖片框2（名稱）picSummer圖片框3（名稱）picAutumn圖片框4（名稱）picWinter54對象屬性屬性值標簽1（名稱）BackStyleCaptionlblSpring1-Transparent春標簽2（名稱）BackStyleCaptionlblSummer1-Transparen夏標簽3（名稱）BackStyleCaptionlblAutumn1-Transparen秋標簽4（名稱）BackStyleCaptionlblWinter1

21、-Transparen冬55（3）編寫各圖片框的Click事件過程 Private Sub picSpring_Click() picSpring.Picture= LoadPicture(scn_spring.wmf)End SubPrivate Sub picSummer_Click() picSummer.Picture= LoadPicture(scn_summer.wmf)End Sub添加圖片添加圖片 56（4）編寫各標簽的MouseMove事件過程 Private Sub lblSpring_MouseMove(Button As Integer,Shift As Integer

22、, X As Single, Y As Single) picSpring.Picture = LoadPicture()End Sub自動產自動產生代碼生代碼框架框架 57【實例2.10】在窗體中有1個圖像框和2個命令按鈕，且在圖像框上裝有一幅圖片。單擊“放大”和“縮小”命令按鈕，實現圖片放大和縮小功能。 58操作步驟 （1）設計用戶界面（2）設置各對象的屬性 添加2個命令按鈕，再選取工具箱中的圖像框圖標 ，添加1個圖像框。59對象屬性屬性值窗體（名稱）CaptionfrmEx2_10圖片的放大與縮小圖像框PictureStretch選取一圖形文件True命令按鈕1（名稱）Captioncm

23、dLargen放大命令按鈕2（名稱）CaptioncmdLessen縮小60（3）編寫單擊“放大”和“縮小”命令按鈕的代碼 Private Sub cmdLargen_Click() imgShow.Width=imgShow.Width+100 imgShow.Height=imgShow.Height+100End SubPrivate Sub cmdLessen_Click() imgShow.Width=imgShow.Width100 imgShow.Height=imgShow.Height100End Sub61 【實例2.11】設計電子表。顯示出今天的年、月、日、星期和時間。6

24、2操作步驟 （1）設計用戶界面（2）設置各對象的屬性 在窗體上添加9個標簽，其中有5個標簽用于顯示年、月、日、星期和時間。選取工具箱中的計時器圖標 ，在窗體上添加1個計時器 63對象屬性屬性值窗體（名稱）CaptionMaxButtonBackColorfrmEx2_11電子表False蘭綠色標簽1（名稱）CaptionBorderStylelblYear（置空）1-Fixed Single標簽2CaptionBackStyle年0-Transparent標簽3（名稱）CaptionBorderStylelblMonth（置空）1-Fixed Single標簽4CaptionBackStyle

25、月0-Transparent64對象屬性屬性值標簽5（名稱）CaptionBorderStylelblDay（置空）1-Fixed Single標簽6CaptionBackStyle日0-Transparent標簽7CaptionBackStyle星期0-Transparent標簽8、9（名稱）CaptionBorderStylelblWeek、lblTime（置空）1-Fixed Single計時器（名稱）EnabledIntervaltmrClockTrue100065（3）編寫計時器tmrClock的Timer事件過程 Private Sub tmrClock_Timer() lblYe

26、ar.Caption = Year(Date) lblMonth.Caption = Month(Date) lblDay.Caption = Day(Date) lblWeek.Caption = Weekday(Date, vbMonday) lblTime.Caption = TimeEnd Sub 66 【實例2.12】設計一個動畫。窗體中有1幅“熱氣球”圖片。單擊“向左”命令按鈕，熱氣球緩緩地左移；單擊“向右”命令按鈕，熱氣球緩緩地右移。 67操作步驟 （1）設計用戶界面（2）設置各對象的屬性 添加1個圖像框、2個命令按鈕和2個計時器 68對象屬性屬性值窗體（名稱）CaptionPi

27、cturefrmEx2_12飄蕩的氣球選取一圖形文件圖像框（名稱）StretchPictureimgBalloonTrue選取一圖形文件計時器1、2（名稱）EnabledIntervaltmrLeft、 tmrRightFalse200命令按鈕1（名稱）CaptioncmdLeftMove向左命令按鈕2（名稱）CaptioncmdRightMove向右69（3）編寫單擊“向左”命令按鈕的代碼 Private Sub cmdLeftMove_Click() tmrLeft.Enabled = True tmrRight.Enabled = FalseEnd Sub 70（4）編寫控制左移計時器t

28、mrLeft的Timer 事件過程 Private Sub tmrLeft_Timer() imgBalloon.Left = imgBalloon.Left 100End Sub 71（5）“向右”命令按鈕和控制右移計時器的相 關代碼與左移時類似 Private Sub cmdRightMove_Click() tmrRight.Enabled = True tmrLeft.Enabled = FalseEnd SubPrivate Sub tmrRight_Timer() imgBalloon.Left = imgBalloon.Left + 100End Sub72【實例2.13】設計一

29、個調色器。窗體中有1個文本框、3個標簽、3個水平滾動條和3個命令按鈕。用3個水平滾動條分別表示紅、綠、藍三色的取值，單擊“文字顏色”命令按鈕，設置文本框中文字的顏色；單擊“背景色”命令按鈕，設置文本框的背景色；單擊“默認值”命令按鈕，將文本框設置為：黑色文字、白色背景。 73操作步驟 （1）設計用戶界面（2）設置各對象的屬性 選取水平滾動條圖標 ，添加3個水平滾動條，分別表示“紅”、“綠”、“藍”三種顏色值。再添加其他所需控件 74對象屬性屬性值窗體（名稱）CaptionfrmEx2_13文本調色標簽1Caption紅標簽2Caption綠標簽3Caption藍水平滾動條1（名稱）MaxMin

30、hsbRed2550水平滾動條2（名稱）MaxMinhsbGreen255075對象屬性屬性值水平滾動條3（名稱）MaxMinhsbBlue2550文本框（名稱）TexttxtWord花落知多少命令按鈕1（名稱）CaptioncmdWdColor文字顏色命令按鈕2（名稱）CaptioncmdBkColor背景色命令按鈕3（名稱）CaptioncmdDefColor默認值76（3）編寫“文字顏色”按鈕的Click事件過程。 Private Sub cmdWdColor_Click() Dim r As Integer Dim g As Integer Dim b As Integer r = h

31、sbRed.Value g = hsbGreen.Value b = hsbBlue.Value txtWord.ForeColor = RGB(r, g, b)End Sub產生合成色的處理函數產生合成色的處理函數 77（4）編寫“背景色”按鈕的Click事件過程。 Private Sub cmdBkColor_Click() Dim r As Integer Dim g As Integer Dim b As Integer r = hsbRed.Value g = hsbGreen.Value b = hsbBlue.Value txtWord.BackColor = RGB(r, g,

32、 b)End Sub78（5）編寫單擊“默認值”命令按鈕的Click事件 過程 Private Sub cmdDefColor_Click() txtWord.ForeColor=RGB(0, 0, 0) txtWord.BackColor=RGB(255, 255, 255)End Sub 79【實例2.14】窗體中有1個圖像框、1個水平滾動條和1個垂直滾動條，在圖像框中載入一幅圖。程序運行時，將水平滾動條中的滑塊從左至右移動時，圖片寬度隨之變大，反之變小；將垂直滾動條的滑塊從上至下移動時，圖片高度隨之變大，反之變小。 80操作步驟 （1）設計用戶界面（2）設置各對象的屬性 選取工具箱中垂直

33、滾動條圖標 ，添加1個垂直滾動條，再添加其他所需控件。81對象屬性屬性值窗體（名稱）CaptionfrmEx2_14圖片的擴大與縮小圖像框（名稱）HeightPictureStretchWidthimgShow1000選取一圖形文件True1000水平滾動條垂直滾動條（名稱）LargeChangeMaxMinSmallChangehsbSize(vsbSize)150300010005082（3）編寫水平滾動條hsbSize的Change事 件過程 Private Sub hsbSize_Change() imgShow.Width = hsbSize.ValueEnd Sub83（4）編寫垂

34、直滾動條vsbSize的Change事 件過程 Private Sub vsbSize_Change() imgShow.Height = vsbSize.ValueEnd Sub84（5）補充編寫如下滾動條的Scroll事件代碼 Private Sub hsbSize_Scroll() imgShow.Width = hsbSize.ValueEnd SubPrivate Sub vsbSize_Scroll() imgShow.Height = vsbSize.ValueEnd Sub85【實例2.15】窗體中有一幅圖，添加1個標簽。程序運行時，單擊窗體，彈出輸入框，當用戶輸入并按“確定”

35、按鈕返回后，將輸入的文字顯示在窗體的標簽上。 86操作步驟 （1）設計用戶界面（2）設置各對象的屬性 在窗體中添加1個標簽 87對象屬性屬性值窗體（名稱）CaptionPicturefrmEx2_15添加文字選取一圖形文件標簽（名稱）BackStyleCaptionFontForeColorlblInfo0-Transparent（置空）華文行楷，一號粉色88（3）編寫窗體的Click事件過程 Private Sub Form_Click() Dim s As String s = InputBox(請輸入一段文字, 錄入) lblInfo.Caption = sEnd Sub所輸入的內容所輸

36、入的內容p7689【實例2.16】在窗體中添加1個標簽和1個命令按鈕。程序運行時，在標簽中顯示“樹上有5只鳥，用槍打死1只，樹上還剩幾只？”，單擊“查看答案”命令按鈕，則在消息框顯示正確答案“答案是0，你猜對了嗎？”。 90操作步驟 （1）設計用戶界面（2）設置各對象的屬性 在窗體中添加所需控件 91對象屬性屬性值窗體（名稱）CaptionfrmEx2_16趣味問題標簽（名稱）BorderStyle CaptionlblInfo1-Fixed Single（置空）命令按鈕（名稱）CaptionPicture StylecmdKey查看答案選取一圖標文件1-Graphical92（3）編寫窗體的

37、Load事件過程和“查看答案” 命令按鈕的Click事件過程 Private Sub Form_Load() lblQuestion.Caption = “樹上有5只鳥， 用槍打死1只，樹上還剩幾只？End SubPrivate Sub cmdKey_Click() MsgBox 答案是0，你猜對了嗎？, vbOKOnly + vbInformation, 提示End Sub p7993 【實例2.17】設計一個多窗體程序，程序中含有2個窗體，第一窗體中有1個標簽、2個命令按鈕和1個計時器。第二窗體中有1個標簽、1個文本框和1個命令按鈕。程序運行時，啟動第一窗體，單擊“變色”命令按鈕，標簽中文

38、字的顏色每秒隨機變色一次。單擊“編輯”命令按鈕，計時器停止工作，并打開第二窗體，在文本框中輸入內容，單擊“返回”命令按鈕，關閉第二窗體，并將已輸入的內容顯示在第一窗體的標簽上。 p22894操作步驟 （1）設計第一個窗體的界面（2）設置各對象的屬性 在窗體中添加所需控件 95對象屬性屬性值窗體（名稱）CaptionfrmEx2_17_1多窗體示例標簽（名稱）CaptionlblTitle單擊“編輯”按鈕，輸入顯示內容命令按鈕1（名稱）CaptionPicture StylecmdSetColor變色選取一圖標文件1-Graphical命令按鈕2（名稱）CaptionPicture Stylec

39、mdEdit編輯選取一圖標文件1-Graphical計時器（名稱）EnabledIntervaltmrColorFalse100096（3）添加第二窗體 選擇【工程】|【添加窗體】命令 97（3）添加第二窗體 工程資源管理器將變為 錯誤的形式： 98（4）設計第二個窗體的界面（5）設置各對象的屬性 添加1個標簽、1個文本框和1個命令按鈕 99對象屬性屬性值窗體（名稱）CaptionfrmEx2_17_2輸入文本標簽Caption請輸入顯示的文本內容文本框（名稱）TexttxtContent（置空）命令按鈕1（名稱）CaptionPictureStylecmdBack返回選取一圖標文件1-Gra

40、phical100（6）編寫第一窗體中的各事件過程 Private Sub tmrColor_Timer() Dim r As Integer Dim g As Integer Dim b As Integer r = Int(Rnd * 256) g = Int(Rnd * 256) b = Int(Rnd * 256) lblTitle.ForeColor = RGB(r, g, b)End Sub101Private Sub cmdSetColor_Click() tmrColor.Enabled = TrueEnd SubPrivate Sub cmdEdit_Click() tmrColor.Enabled = False frmEx2_17_1.Hid