vb課后練習(xí)答案習(xí)題解答參考

1、文檔供參考，可復(fù)制、編制，期待您的好評(píng)與關(guān)注！ 第4章 常用控件41 填空題1在圖片框上放置的控件稱(chēng)為圖片框的（ ）對(duì)象，而窗體是圖片框的（ ）對(duì)象。答案：子對(duì)象、父對(duì)象2窗體的“名稱(chēng)”（Name）屬性只能在（ ）設(shè)置。答案：屬性窗口中3在程序中設(shè)置窗體Forml的Caption屬性為“主窗體”，使用的賦值語(yǔ)句是（ ）。答案：Forml.Caption=“主窗體”4當(dāng)窗體的Enabled屬性為（ ）時(shí)，指定窗體響應(yīng)事件。答案：True5窗體的Unload事件是在QueryUnload事件發(fā)生之（ ）發(fā)生。答案：之后6程序中，把當(dāng)前窗體移動(dòng)到屏幕左上角使用的方法為（ ）。答案：Move 0,07

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

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

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

5、e。答案：Enabled23列表框ListBox中項(xiàng)目的序號(hào)從（ ）開(kāi)始到（ ）結(jié)束。答案：0、Listcount-124要顯示列表框List1中序號(hào)為3項(xiàng)目?jī)?nèi)容，語(yǔ)句為（ ）。答案：Print List1.List(3)25向組合框Combo2添加序號(hào)為5，內(nèi)容為“計(jì)算機(jī)學(xué)院”的項(xiàng)目，使用的語(yǔ)句為（ ）。答案：Combo2.AddItem “計(jì)算機(jī)學(xué)院”，526要?jiǎng)h除組合框Combo1序號(hào)為3的項(xiàng)目，使用的語(yǔ)句為（ ）。答案：Combo1.ReMoveItem 327使用滾動(dòng)條ScrollBar時(shí)，若要設(shè)置當(dāng)用鼠標(biāo)單擊兩個(gè)滾動(dòng)箭頭之間區(qū)域的滾動(dòng)幅度，需使用（ ）屬性。答案：LargeChan

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

7、現(xiàn)。 a) Nameb) Captionc) Textd) ForeColor答案：b4要使標(biāo)題在標(biāo)簽框內(nèi)居中顯示，Alignment屬性的取值應(yīng)為（ ）。 a) 0b) 1c) 2d) 3答案：25若使標(biāo)簽框根據(jù)所顯示內(nèi)容自動(dòng)調(diào)整其大小，則可以通過(guò)設(shè)置（ ）屬性值為T(mén)rue來(lái)實(shí)現(xiàn)。 a) AutoSizeb) Alignmentc) Enabledd) Visible答案：a6文本框沒(méi)有（ ）屬性。 a) BackColor b) Enabled c) Visible d) Caption答案：d7如果設(shè)置文本框最多可以接受的字符數(shù)，則可以使用（ ）屬性。 a) Lengthb) Multi

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

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

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

11、0若要得到列表框中項(xiàng)目的數(shù)目，可以訪(fǎng)問(wèn)（ ）屬性。 a) Listb) ListIndexc) ListCountd) Text答案：c21設(shè)置列表框的選擇方式，應(yīng)使用（ ）屬性。 a) Columnsb) MultiSelectc) Styled) List答案：b22若要清除列表框的所有項(xiàng)目?jī)?nèi)容，可以使用（ ）方法。 a) AddItemb) ReMovec) Cleard) Print答案：c23刪除列表框中的某一個(gè)項(xiàng)目，需要使用（ ）方法。 a) Clearb) ReMovec) Moved) ReMoveItem答案：d24在組合框中選擇某一項(xiàng)目?jī)?nèi)容，可以通過(guò)（ ）屬性獲得。 a)

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

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

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

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

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

17、件對(duì)象就作為框架Frame1中的控件，使用鼠標(biāo)把它拖到框架Frame1中的預(yù)定位置和適當(dāng)調(diào)整大小。再以相同的做法， 把其它控件對(duì)象放在框架上。 44 編程題1. 編一程序能夠?qū)崿F(xiàn)：每次單擊命令按鈕Command1能使標(biāo)簽Label1上的文字在窗體Form1上往右移動(dòng)100緹，當(dāng)標(biāo)簽在窗體Form1上往右移出窗體的右邊界時(shí)，再次單擊命令按鈕Command1能使標(biāo)簽回到窗體的左邊界。解答：(1)界面設(shè)計(jì)和屬性設(shè)置在窗體上建立一個(gè)標(biāo)簽和兩個(gè)命令按鈕。窗體和窗體上控件的主要屬性設(shè)置如表3.4.1所示。 表3.4.1 屬性設(shè)置 控件名稱(chēng) 屬性名 屬性值 Form1 Caption使標(biāo)簽往右移Label1

18、 CaptionFontNameFontSize歡迎使用VB！隸書(shū)三號(hào)字 Command1Caption 移動(dòng) Command2 Caption 結(jié)束(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) 運(yùn)行情況運(yùn)行程序后，屏幕出現(xiàn)用戶(hù)界面。每次單擊標(biāo)題為“移動(dòng)”的命令按鈕，系

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

20、性名 屬性值 Form1 Caption判別算術(shù)表達(dá)式中的圓括號(hào)是否配對(duì) 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 Th

21、en Print Tab(18); "左右圓括號(hào)配對(duì)!" ElseIf n > 0 Then Print Tab(15); "左圓括號(hào)多于右圓括號(hào)!" Else Print Tab(15); "右圓括號(hào)多于左圓括號(hào)!" 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)運(yùn)行情況

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

23、件的主要屬性設(shè)置如表3.4.4所示。 表3.4.4 屬性設(shè)置 控件名稱(chēng) 屬性名 屬性值 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 = Pictu

24、re1.Height + 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 Cas

25、e Is > 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 -

26、10 End 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)運(yùn)行情況運(yùn)行程序后，屏幕出現(xiàn)用戶(hù)界面。單擊標(biāo)

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

28、 Caption字體瀏覽器 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

29、(Str(i) 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)運(yùn)行情況運(yùn)行程序后，系統(tǒng)執(zhí)行事件過(guò)程Form_Load，并在屏幕上顯示用戶(hù)界面。單擊列表框List1上某一復(fù)選框，例如，“華文新魏”前面的復(fù)選框，系統(tǒng)執(zhí)行相應(yīng)的Click事件過(guò)程。然后單擊列表框

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

31、Caption 綠色份量值： Label3Caption 藍(lán)色份量值： 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.Capt