vb課后練習答案習題解答 (4)

1、中華IT學習網 官方總站：圣才學習網第4章 常用控件41 填空題1在圖片框上放置的控件稱為圖片框的（ ）對象，而窗體是圖片框的（ ）對象。答案：子對象、父對象2窗體的“名稱”（Name）屬性只能在（ ）設置。答案：屬性窗口中3在程序中設置窗體Forml的Caption屬性為“主窗體”，使用的賦值語句是（ ）。答案：Forml.Caption=“主窗體”4當窗體的Enabled屬性為（ ）時，指定窗體響應事件。答案：True5窗體的Unload事件是在QueryUnload事件發(fā)生之（ ）發(fā)生。答案：之后6程序中，把當前窗體移動到屏幕左上角使用的方法為（ ）。答案：Move 0,07在窗體For

2、m1中坐標為（1600，800）的位置上輸出字符串“Visual BASIC 6.0”使用的語句為（ ）、（ ）、和（ ）。答案：Form1.Currrentx=1600、Form1.Currenty=800、Form1.Print “Visual BASIC 6.0”8若使文本框有邊框，需設置BorderStyle屬性的值為（ ）。答案：19在程序運行期間，用戶可以用文本框顯示信息。文本框接受輸入的內容的屬性是（ ）。答案：Text10若使文本框內能夠接受多行文本，則要設置Multiline屬性的值為（ ）。答案：True11要把圖形文件“c:samplediannt.jpg”裝載到圖片框P

3、icture1上，使用的語句為（ ）。答案：Picture1. Picture=LoadPicture(“c:samplediannt.jpg”)12若使圖片框自動調整大小以適應裝入的圖形，則要設置Autosize屬性的值為（ ）。答案：True13除了在程序使用LoadPicture函數裝載圖形外，還可以在設計階段通過修改（ ）屬性裝載圖形。答案：Picture14若程序中要把一些文本內容輸出到圖片框PictureBox，應使用（ ）方法。答案：Print15當單選按鈕OptionButton的Value屬性為（ ）時，表示該單選按鈕處于未選中狀態(tài)。答案：False16若使命令按鈕Comma

4、nd1重新生效，則使用的賦值語句為（ ）。答案：Command1.Enabled=True17 若使命令按鈕不能接收和響應任何事件，可以設置Visible屬性的值為（ ）。答案：False18只有控件對象的Enabled和Visible屬性值都為（ ）時，該控件對象才能接受焦點。答案：True19Tab順序是由建立控件時的（ ）來確定。答案：先后順序20設置框架Frame上的文本內容需要使用（ ）屬性。答案：Caption21在框架上可以設置一組相關控件，這些控件作為框架的（ ）控件，它們具有總體的激活/屏蔽特性。答案：子22若屏蔽框架上的控件對象，則需設置（ ）屬性的值為False。答案：E

5、nabled23列表框ListBox中項目的序號從（ ）開始到（ ）結束。答案：0、Listcount-124要顯示列表框List1中序號為3項目內容，語句為（ ）。答案：Print List1.List(3)25向組合框Combo2添加序號為5，內容為“計算機學院”的項目，使用的語句為（ ）。答案：Combo2.AddItem “計算機學院”，526要刪除組合框Combo1序號為3的項目，使用的語句為（ ）。答案：Combo1.ReMoveItem 327使用滾動條ScrollBar時，若要設置當用鼠標單擊兩個滾動箭頭之間區(qū)域的滾動幅度，需使用（ ）屬性。答案：LargeChange28若要

6、設置水平或垂直滾動條的最小值，需使用（ ）屬性。答案：Min29計時器Timer每經過一個由InterVal屬性指定的時間間隔就會觸發(fā)一次（ ）事件。答案：Timer30若要使計時器每0.5鈔鐘觸發(fā)一次Timer事件，則要把InterVal屬性值設置為（ ）。答案：50042 選擇題1窗體標題欄的顯示內容由窗體的（ ）屬性決定。a) Nameb）Captionc）BackColord）Enabled答案：b2當窗體被裝入內存時，系統(tǒng)將自動執(zhí)行（ ）事件過程。a) Loadb）Activatec）Unloadd）QueryUnload答案：a、b3在標簽框上顯示的內容由（ ）屬性來實現(xiàn)。 a)

7、Nameb) Captionc) Textd) ForeColor答案：b4要使標題在標簽框內居中顯示，Alignment屬性的取值應為（ ）。 a) 0b) 1c) 2d) 3答案：25若使標簽框根據所顯示內容自動調整其大小，則可以通過設置（ ）屬性值為True來實現(xiàn)。 a) AutoSizeb) Alignmentc) Enabledd) Visible答案：a6文本框沒有（ ）屬性。 a) BackColor b) Enabled c) Visible d) Caption答案：d7如果設置文本框最多可以接受的字符數，則可以使用（ ）屬性。 a) Lengthb) Multilinec)

8、 Maxd) MaxLength答案：d8在文本框中設置垂直滾動條，要使ScrollBars的值為（ ）。 a) 0b) 1c) 2d) 3答案：c9在運行程序時，要使文本框獲得焦點，則需使用（ ）方法。 a) Changeb) SetFocusc) GotFocusd) Move 答案：b10下列控件中，沒有AutoSize屬性的是（ ）。 a) 標簽b) 文本框c) 圖片框d) 圖像框答案：b、d11若把圖片框Picture1中的圖形清除，可以使用的語句是（ ）。 a) Picture1.Del b) Picture1. Picture=LoadPicture("")

9、c) Picture1. Picture= LoadPicture( ) d) Picture1. Picture=Nothing答案：b、c、d12命令按鈕上的文本內容由（ ）屬性來設置。 a) Textb) Captionc) Named) Show答案：b13若將命令按鈕設置為默認選擇命令按鈕，可以通過（ ）屬性來實現(xiàn)。 a) Valueb) Cancelc) Defaultd) Enabled答案：c14要使命令按鈕失效，則可以設置（ ）屬性的值為False來實現(xiàn)。 a) Valueb) Enabledc) Visibled) Cancel答案：b15若使命令按鈕在屏幕不可見，則可以通

10、過修改（ ）屬性實現(xiàn)。 a) Valueb) Enabledc) Visibled) Cancel答案：c16當復選框Value屬性值為（ ）表示該復選框被選中。 a) 0b) 1c) 2d) 3 答案：b17改變控件的Tab順序可以修改（ ）屬性值。 a) Visibleb) Enabledc) TabStopd) TabIndex答案：d18下列控件中（ ）不能接受GetFocus和LostFocus事件。 a) 命令按鈕b) 組合框c) 復選按鈕d) 計時器答案：d19要使列表框中的項目垂直滾動，應設置Columns屬性值為（ ）。 a) 0b) 1c) 2d) 3答案：a20若要得到列

11、表框中項目的數目，可以訪問（ ）屬性。 a) Listb) ListIndexc) ListCountd) Text答案：c21設置列表框的選擇方式，應使用（ ）屬性。 a) Columnsb) MultiSelectc) Styled) List答案：b22若要清除列表框的所有項目內容，可以使用（ ）方法。 a) AddItemb) ReMovec) Cleard) Print答案：c23刪除列表框中的某一個項目，需要使用（ ）方法。 a) Clearb) ReMovec) Moved) ReMoveItem答案：d24在組合框中選擇某一項目內容，可以通過（ ）屬性獲得。 a) Listb)

12、 ListIndexc) ListCountd) Text答案：d25若要獲得滾動條的當前位置，可以通過訪問（ ）屬性來實現(xiàn)。 a) Valueb) Maxc) Mind) LargeChange答案：a26當用鼠標拖動滾動塊時觸發(fā)（ ）事件。 a) Moveb) Changec) Scrolld) GotFocus答案：b、c27設置計時器的時間間隔可以通過（ ）屬性來實現(xiàn)。 a) Valueb) Textc) Maxd) InterVal答案：d28暫時關閉計時器，需設置（）屬性。a) Visibleb) Enabledc) Lockd) Cancel答案：b43 解答題 1. 在VB集成

13、環(huán)境中，用屬性窗口設置字體（Font）屬性時，系統(tǒng)將彈出一個對話框（見教材圖4-10），指出該對話框中包含些什么控件？答：在該對話框中包含列表框、命令按鈕、框架、復選框和文本框等控件。2設Text1為某一文本框名，下列程序段的輸出結果是什么？Text1.Text = "abcdefghijk "Text1.selstart = 3Text1.sellength = 5Print Text1.SelText答：輸出結果是：defgh3標簽和文本框有什么區(qū)別？答：標簽一般用于顯示一小段不需要用戶修改的文本，被顯示的文本通過Caption屬性確定，它作為輸出控件而存在，即可以使用

14、它輸出數據。文本框是VB在窗體中為用戶提供一個既能夠顯示又能夠編輯文本的控件對象，它作為輸入和輸出控件而存在，即可以使用它輸入輸出數據。在文本框內，我們還可以按常用的方法進行文字的編輯。例如，可以進行選擇、刪除、復制、粘貼、替換等各種操作。4. 比較用Print方法輸出和用標簽輸出的優(yōu)缺點。答：Print方法是專門向控件輸出數據的一種方法，這些控件包括窗體、圖片框、打印機等。標簽是利用它的Caption屬性來輸出數據的一種控件。利用Print方法可以直接把數據在窗體、圖片框等控件上顯示出來，而如果使用標簽在窗體、圖片框等控件上顯示數據，則必須先在相應的控件上放置一個標簽，然后才能在標簽上輸出。

15、使用Print方法和標簽輸出的文本，其字體、尺寸、顏色都可以改變。而通過改變標簽的相關屬性，很容易改變標簽中顯示的內容的字體、尺寸、顏色等。標簽中顯示的內容只能用同一種字體、尺寸、顏色顯示，而使用Print方法可以使每次輸出的內容的字體、尺寸、顏色等有所不同。5圖片框和圖像框的作用是什么？它們之間有什么區(qū)別？在什么情況下可以相互代替？在什么情況下必須使用圖片框？答：圖片框和圖像框的作用是在窗體的指定位置上顯示圖形信息，它們以基本相同的方式出現(xiàn)在窗體上，都可以放置各種VB可識別的圖形文件。圖片框和圖像框的主要區(qū)別是：圖片框可以作為其他控件的父對象，而且可以通過Print方法輸出文本信息；而圖像框

16、只能顯示圖形信息。若不顯示文本信息和設置子控件時，它們可以相互代替，否則，必須使用圖片框。6框架的作用是什么？如何在框架中建立控件？答：框架的作用是對窗體上的控件對象進行分組，我們可以把相同類型或不同類型的控件對象放在同一個框架上。在框架中建立控件對象的方法為：先雙擊工具箱上的框架控件對象，這時在窗體的中間出現(xiàn)一個帶有Frame1字樣的框架控件對象，使用鼠標把它拖到窗體中的預定位置和適當調整大小。然后，雙擊工具箱上需放在框架上的控件對象，這時在窗體的中間出現(xiàn)該控件對象。單擊工具欄上的“剪切”按鈕，把該控件對象剪切到剪貼板。單擊框架Frame1和單擊工具欄上的“粘貼”按鈕。此時，該控件對象就作為

17、框架Frame1中的控件，使用鼠標把它拖到框架Frame1中的預定位置和適當調整大小。再以相同的做法， 把其它控件對象放在框架上。 44 編程題1. 編一程序能夠實現(xiàn)：每次單擊命令按鈕Command1能使標簽Label1上的文字在窗體Form1上往右移動100緹，當標簽在窗體Form1上往右移出窗體的右邊界時，再次單擊命令按鈕Command1能使標簽回到窗體的左邊界。解答：(1)界面設計和屬性設置在窗體上建立一個標簽和兩個命令按鈕。窗體和窗體上控件的主要屬性設置如表3.4.1所示。 表3.4.1 屬性設置 控件名稱 屬性名 屬性值 Form1 Caption使標簽往右移Label1 Capti

18、onFontNameFontSize歡迎使用VB！隸書三號字 Command1Caption 移動 Command2 Caption 結束(2) 程序代碼Private Sub Command1_Click() If Label1.Left > Form1.ScaleWidth Then Label1.Left = 0 Else Label1.Left = Label1.Left + 100 End IfEnd SubPrivate Sub Command2_Click() EndEnd Sub(3) 運行情況運行程序后，屏幕出現(xiàn)用戶界面。每次單擊標題為“移動”的命令按鈕，系統(tǒng)執(zhí)行相應的

19、Click事件過程，使標簽往右移100緹。右移出窗體的右邊界時，再次單擊單擊標題為“移動”的命令按鈕又能使標簽回到窗體的左邊界。執(zhí)行情況如圖3.4.1所示。單擊標題為“結束”的命令按鈕，結束程序的執(zhí)行。 圖3.4.1 執(zhí)行情況3在文本框中輸入算術表達式，并以回車符作為輸入結束標志。對表達式中的圓括號是否配對進行檢查，且給出配對或不配對信息。若配對，則給出“左右圓括號配對”的信息；否則，給出“左圓括號多于右圓括號”或“右圓括號多于左圓括號”的信息。解答：(1)界面設計和屬性設置在窗體上建立一個文本框。窗體和文本框的主要屬性設置如表3.4.3所示。 表3.4.3 屬性設置 控件名稱 屬性名 屬性值

20、 Form1 Caption判別算術表達式中的圓括號是否配對 Text1 Text 空串(2)程序代碼Option ExplicitDim n As IntegerPrivate Sub Text1_KeyPress(KeyAscii As Integer) Cls If Chr(KeyAscii) = "(" Then n = n + 1 ElseIf Chr(KeyAscii) = ")" Then n = n - 1 End If Print: Print: Print If KeyAscii = 13 Then If n = 0 Then Pri

21、nt Tab(18); "左右圓括號配對!" ElseIf n > 0 Then Print Tab(15); "左圓括號多于右圓括號!" Else Print Tab(15); "右圓括號多于左圓括號!" End If End IfEnd SubPrivate Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)ClsText1.Text = ""n = 0End Sub(3)運行情況運行程序后，

22、屏幕出現(xiàn)用戶界面。焦點在Text1文本框上，輸入算術表達式，例如，（1+2）*8-5），然后按回車鍵。每按一個鍵，系統(tǒng)都執(zhí)行Text1_KeyPress事件過程。執(zhí)行結果如圖3.4.3所示。若繼續(xù)判別另一個算術表達式的左右圓括號是否配對，可以單擊Text1文本框，系統(tǒng)執(zhí)行Text1_MouseDown事件過程。這時可以再次輸入算術表達式和按回車鍵。單擊工具欄上的“結束”按鈕，系統(tǒng)結束程序的執(zhí)行。 圖3.4.3 執(zhí)行結果4編寫一個程序，把某一圖形裝入到一個圖片框中，并能實現(xiàn)該圖形的放大、縮小和全屏顯示。解答：(1)界面設計和屬性設置在窗體上建立一個圖片框和三個命令按鈕。窗體和窗體上控件的主要屬性

23、設置如表3.4.4所示。 表3.4.4 屬性設置 控件名稱 屬性名 屬性值 Form1 Caption圖片縮放 Picture1 Picture一幅圖片（在程序中裝入） Command1Caption 圖片放大 Command2 Caption 圖片縮小 Command3 Caption 全屏顯示(2)程序代碼Private Sub Command1_Click() If Picture1.Height < 2200 Then If Form1.ScaleHeight - Picture1.Height > 50 Then Picture1.Height = Picture1.He

24、ight + 50 End If End If If Form1.ScaleWidth - Picture1.Width > 70 Then Picture1.Width = Picture1.Width + 70 End IfEnd SubPrivate Sub Command2_Click() Select Case Picture1.Height Case Is > 50 Picture1.Height = Picture1.Height - 50 Case Is > 30 Picture1.Height = Picture1.Height - 30 Case Is &

25、gt; 10 Picture1.Height = Picture1.Height - 10 End Select Select Case Picture1.Width Case Is > 100 Picture1.Width = Picture1.Width - 100 Case Is > 50 Picture1.Width = Picture1.Width - 50 Case Is > 30 Picture1.Width = Picture1.Width - 30Case Is > 10 Picture1.Width = Picture1.Width - 10 End

26、 SelectEnd SubPrivate Sub Command3_Click() Picture1.Height = Form1.ScaleHeight - 1000 Picture1.Width = Form1.ScaleWidthEnd SubPrivate Sub Form_Load()Picture1.Picture=LoadPicture("c:Program FilesMicrosoft Office OfficeBitmapsstylesGlobe.wmf")End Sub (3)運行情況運行程序后，屏幕出現(xiàn)用戶界面。單擊標題為“全屏顯

27、示”的命令按鈕，系統(tǒng)執(zhí)行相應的Click事件過程,執(zhí)行結果如圖3.4.4所示。單擊標題為“圖形縮小”的命令按鈕，可以使圖形逐漸縮小。單擊標題為“圖形放大”的命令按鈕，可以使圖形逐漸放大。單擊工具欄上的“結束”按鈕，系統(tǒng)結束程序的執(zhí)行。 圖3.4.4 執(zhí)行結果6編一程序產生一個字體瀏覽器。要求用一個列表框顯示系統(tǒng)當前可供選擇的字體，另一個列表框顯示系統(tǒng)當前可供選擇的字體大小，并使用標簽顯示所選字體及其大小樣例。解答：(1)界面設計和屬性設置在窗體上建立四個標簽、兩個列表框。窗體和窗體上控件的主要屬性設置如表3.4.6所示。 表3.4.6 屬性設置 控件名稱 屬性名 屬性值 Form1 Capti

28、on字體瀏覽器 Label1 Caption 字體選擇 Label2Caption 字體大小選擇 Label3Caption 樣例 Label4CaptionBorderStyle中文字體演示 1 List1 Style 1 List2 Style 1(2)程序代碼Option ExplicitPrivate Sub Form_Load() Dim i As Integer For i = 0 To Screen.FontCount - 1 List1.AddItem Screen.Fonts(i) Next i For i = 8 To 12 List2.AddItem Trim(Str(i

29、) Next i For i = 14 To 72 Step 2 List2.AddItem Trim(Str(i) Next iEnd SubPrivate Sub List1_Click() Label4.FontName = List1.TextEnd SubPrivate Sub List2_Click() Label4.FontSize = List2.TextEnd Sub(3)運行情況運行程序后，系統(tǒng)執(zhí)行事件過程Form_Load，并在屏幕上顯示用戶界面。單擊列表框List1上某一復選框，例如，“華文新魏”前面的復選框，系統(tǒng)執(zhí)行相應的Click事件過程。然后單擊列表框List2上

30、某一復選框，例如，“20”前面的復選框，系統(tǒng)執(zhí)行相應的Click事件過程。執(zhí)行結果如圖3.4.7所示。單擊工具欄上的“結束”按鈕，系統(tǒng)結束程序的執(zhí)行。 圖3.4.7 執(zhí)行結果7. 編寫一個用于演示顏色合成情況的程序。要求使用滾動條作為紅、綠和藍三種基色值的輸入控件。（提示：使用RGB函數對輸入的三種基色進行合成得到復合顏色）解答：(1)界面設計和屬性設置在窗體上建立四個標簽和三個滾動條。窗體和窗體上控件的主要屬性設置如表3.4.7所示。 表3.4.7 屬性設置 控件名稱 屬性名 屬性值 Form1 Caption顏色合成演示 Label1 Caption 紅色份量值： Label2Captio

31、n 綠色份量值： Label3Caption 藍色份量值： Label4CaptionBorderStyle空串 1 Hscroll1MaxLargeChange2555 Hscroll2 MaxLargeChange2555 Hscroll3MaxLargeChange2555(2)程序代碼Private Sub HScroll1_Scroll() Label1.Caption = "紅色份量值：" & HScroll1.Value Label4.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)End SubPrivate Sub HScroll2_Scroll() Label2.Caption = "綠色份量值：" & HScroll2.Value Label4.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value)End SubPrivate Sub HScroll3_Scroll() Label3.Caption = &quo