VB試題及答案

1、VB試題及答案（二）一、填空題1. 在Visual Basic6.0 中，按變量作用域的不同可將變量分為全局變量 和局部變量?jī)煞N；聲明靜態(tài)變量的關(guān)鍵字為 Static ;2. 在Viual Basic6.0 中，程序結(jié)構(gòu)有 順序 、選擇 、 循環(huán) 3種結(jié)構(gòu)。3. 控制控件是否可見的屬性為Visible;控制控件是否可用的屬性為En abled ;控件的位置是由Left和Top屬性來確定的；控件的大小是由Width和Height屬性來確定;控件上所顯示的文本是由Capti on屬性來設(shè)定的；4. 與鼠標(biāo)有關(guān)的事件包括Click 、DblClick 、MouseDown、MouseUp Mouse

2、Move ，其中 Click 事 件在單擊控件時(shí)被激發(fā)，MouseDow n事件在鼠標(biāo)鍵被按下時(shí)被激發(fā)，MouseUp事件在鼠標(biāo)被松開時(shí)被激發(fā)。5. 與鍵盤有關(guān)的事件包括 KeyPress 、KeyDow n、 KeyUp ，其中 KeyPress事件在單擊鍵盤鍵時(shí)被激發(fā)，KeyDow n事件在按下鍵盤鍵時(shí)被激發(fā)，KeyUp 事件在松開鍵盤鍵時(shí)被激發(fā)。6. 向列表框和組合框中添加列表時(shí)，可使用 Additem 方法; 刪除選定的列表，可使用 Removeitem 方法；刪除全部列表 項(xiàng)，可使用 Clear 方法。7. 定時(shí)器控件能夠響應(yīng)的唯一事件為Timer ，并且該事件被激發(fā)的時(shí)間間隔由In

3、 terval屬性來給定。8. 彈出式菜單一般不直接顯示在窗體上，因此菜單的Visible屬性一般設(shè)為False。要顯示彈出式菜單可以用PopupMe nu 方法。9. 工具欄一般顯示在菜單欄 下面，由 命令按鈕組成；狀態(tài)欄一般顯示在窗體的底部：由 窗格（Pan els）組成。10. 在圖片框繪圖之前，除了要建立好坐標(biāo)系之外，還必須設(shè)置好線條的類型、線條的寬度、繪圖的模式、填充的樣式和填充的顏色,其中線條類型由DrawStyle屬性來設(shè)置，線條寬度DrawWidth屬性來設(shè)置，繪圖模式由DrawMode屬性來設(shè)置，填充樣式由FillStyle屬性來設(shè)置。11.要想讓一個(gè)標(biāo)準(zhǔn)的窗體變?yōu)槎辔臋n窗體

4、的子窗體，必須將標(biāo)準(zhǔn)窗體的 MDIChild屬性設(shè)為True12.順序文件可以通過Write語(yǔ)句或Print語(yǔ)句將數(shù)據(jù)寫入文件，而讀取文件中的數(shù)據(jù)可以使用Li neIn put#語(yǔ)句、In put#語(yǔ)句或In put函數(shù)來實(shí)現(xiàn)。隨機(jī)文件和二進(jìn)制文件的讀操作可以通過Get語(yǔ)句來實(shí)現(xiàn)，寫操作可以通過Put語(yǔ)句來實(shí)現(xiàn)。13.在 Visual Basie6.0中，程序共有設(shè)計(jì)、運(yùn)行、中斷3種工作模式。錯(cuò)誤有編譯錯(cuò)誤、實(shí)時(shí)錯(cuò)誤、邏輯錯(cuò)誤3種類型。14.關(guān)鍵數(shù)據(jù)分為主關(guān)鍵字和外部關(guān)鍵字。其中主關(guān)鍵字是對(duì)數(shù)據(jù)表內(nèi) 個(gè)記錄進(jìn)行唯 表示的信息，而外部關(guān)鍵字是把一個(gè)記錄與另外某個(gè)數(shù)據(jù)表中的關(guān)鍵字聯(lián)系起來的信息。二

5、、選擇題1. 以下關(guān)鍵字中，不能定義變量的是（A）A. DeclareB . DimC. PublicD. Private2. 下面變量不合法的是（C）A. .a2（2）B. abedC. a$xD. CDE3. 以下事件中，命令按鈕不能響應(yīng)的事件為（C）A. Click 事件B. MouseDow事件C. Change事件D. GotFoeus 事件4. 如果要使文本框控件帶有水平滾動(dòng)條（假設(shè) MultiL ine已設(shè)為True），則ScrollBar 屬性必須設(shè)為（B）A. 0B . 1C . 2D . 35. 在列表框、組合框中，當(dāng)前被選中的列表項(xiàng)由（C）返回。A. ListB . Li

6、stI ndexC. TextD. ListCount6. 組合框所能響應(yīng)的事件與下面哪個(gè)屬性有關(guān)（D）。A. ListB . ListI ndexC . TextD. Style7. 當(dāng)拖動(dòng)滾動(dòng)條的滾動(dòng)框時(shí)，便會(huì)激發(fā)（A）事件A. ScrollB . Cha ngeC . DropDow nD.Click8. 定時(shí)器控件唯一能夠響應(yīng)的事件為（B）A. Click 事件B . Timer 事件C. Cha nge 事件D. DblClick 事件9. 含有子菜單的菜單不能設(shè)置（B ）A.訪問鍵B.快捷鍵C .菜單標(biāo)題D.菜單名稱10. 要使一個(gè)菜單項(xiàng)變?yōu)榉指艟€，必須將其標(biāo)題屬性設(shè)為（ C ）A

7、.下劃線 B . &C.上劃線D.減號(hào)11. 在設(shè)置MsgBox函數(shù)的參數(shù)值時(shí)，如果buttons值為5,則下面 組合正確的是（A）A. vbOKonly+vbRetryCancel（ 0+ 5）B. vbOKCancel+vbYesNo （1 + 4）C. vbAbortRetryIgnore+vbYesNoCancel（2 + 3）D. vbRetryCancel （5）12. 圖片框和圖像框都是通過以下哪個(gè)屬性來設(shè)置顯示的圖片的（C）A. MouseIconB . ImageC. PictureD. Icon13. 在圖片框中所畫圖形的顏色與下面哪個(gè)屬性有關(guān)（B）A. DrawStyle

8、B . DrawModeC . DrawWidthD. ScaleMode14. 要想獲得使用Open語(yǔ)句所打開的文件的大小可以使用（A）A. LOF函數(shù)B. Len函數(shù)C .函數(shù)D . EOF函數(shù)15. 下面哪個(gè)語(yǔ)句只能從順序文件中讀出英文字符，非英文字符不 能讀出（B）A. I nput #語(yǔ)句B .In put 函數(shù)C . Li ne In put #語(yǔ)句D . Get語(yǔ)句）屬性用于16. Data控件的很多屬性，（指定Data控件所要操作的一個(gè)表或一個(gè)查詢A. DatabaseNameS 性B. RecordsetType 屬性C. Exclusive 屬性D. RecordSourc

9、e 屬性三、程序填空題.+ 100的和,1. 以下程序是為了在窗體上顯示1 + 2 + 3 + 4 + 請(qǐng)將程序填寫完整。Private Sub Form_Load() Form1.AutoRedraw = TrueDim i As In tegerDim sum As In tegersum = 0For i = 1 To 100sum = sum +iNext iPrint sumEnd Sub2. 窗體的Load事件中有以下代碼：Private Sub Form_Load()Form1.AutoRedraw = TrueDim a As In tegerDim b As In teger

10、Dim c As In teger a = 300b = 45c = a * bDo While a bIf a b The na = a - bElseb = b - aEnd IfLoopPri nt c / bEnd Sub運(yùn)行程序后，程序的輸出為900。3. 以下程序是一個(gè)密碼檢驗(yàn)程序，程序界面如圖1所示。當(dāng)在文本框中輸入密碼，然后單擊【確定】按鈕。這是如果輸入的密碼為“ 1234”，則彈出如圖2所示的消息框；如果輸入的密碼不為“ 1234”，則彈出如圖3所示的消息框。在圖3所示的消息框中，如 果單擊“確定”按鈕，則重新輸入密碼；如果單擊“取消”，則退出 程序。圖1 程序界面圖2【密碼

11、正確】消息框圖3【密碼不正確】消息框Private Sub Comma nd1_Click()Dim Ret AsIn teger密碼正確，彈出“密碼正確”消息框If Text1.Text = 1234 ThenMsgBox 密碼正確 ”,vbOKOnly + vbInformation,密碼正確”密碼不正確，則彈出密碼不正確消息框ElseRet = MsgBox(密碼不正確，請(qǐng)重新輸入, vbOKCancel+ vbCritical,密碼不正確)根據(jù)所單擊的按鈕，執(zhí)行不同的操作Select Case Ret單擊”確定“按鈕，重新輸入密碼Case 1Text1.Text =Text1.SetF

12、ocus單擊”取消“按鈕，退出程序Case 2Uni oadFormlEnd SelectEnd IfEnd Sub4. 在某個(gè)工程中，已用【菜單編輯器】設(shè)計(jì)了 4個(gè)菜單：【顏色】、【紅色】、【藍(lán)色】、【綠色】，其中【顏色】為一級(jí)菜單，其“名稱”屬性為mnuColor, “Visible ”屬性為True，菜單【紅色】、【藍(lán)色】、【綠色】為菜單【顏色】的子菜單。以下程序用來實(shí)現(xiàn)以下功能：（1）菜單【顏色】不顯示在窗體上，即讓菜單【顏色】成為彈出 式菜單。（2）在窗體上單擊鼠標(biāo)左鍵，彈出菜單【顏色】的子菜單。（3）在彈出的菜單中，單擊某個(gè)菜單項(xiàng)，窗體的背景顏色變?yōu)橄?應(yīng)的顏色。Private S

13、ub Form_Load（）菜單【顏色】不可見mnu color.Visible =FalseEnd SubPrivate Sub Form_MouseDown（ButtonAs Integer, Shift As Integer,X As Si ngle, _Y As Si ngle）單擊鼠標(biāo)左鍵，彈出彈出式菜單If Butt on =2 ThenEnd IfEnd SubPrivate Sub mnu color1_Click()單擊菜單【紅色】，窗體的底色變?yōu)榧t色Form1.BackColor = vbRedEnd SubPrivate Sub mnu color2_Click()單擊菜

14、單【藍(lán)色】，窗體的底色變?yōu)樗{(lán)色Form1.BackColor = vbBlueEnd SubPrivate Sub mn ucolor3_Click()單擊菜單【綠色】，窗體的底色變?yōu)榫G色Form1.BackColor = vbGree nEnd Sub5. 以下程序用圖像框控件來實(shí)現(xiàn)編輯圖片的功能Optio n ExplicitPrivate Const small As Sin gle = 0.5Private Const large As Si ngle = -1Private Sub cmdLarge_Click()Zoom imgCar, largeEnd SubPrivate Su

15、b cmdSmall_Click()Zoom imgCar, smallEnd Sub放大、縮小處理過程Private Sub Zoom(ByVal img As Image, ByVal ratio As Si ngle) img.Stretch =True通過改變圖片框的尺寸和位置來實(shí)現(xiàn)對(duì)圖片的放大和縮小img.Left = img.Left + img.Width * ratio / 2img.Top = img.Top + img.Height * ratio / 2img.Width = img.Width - img.Width * ratioimg.Height = img.He

16、ight - img.Height * ratioEnd Sub6. 以下程序是將驅(qū)動(dòng)器列表控件、文件夾列表控件、文件列表控件3個(gè)控件組合在一起，以便實(shí)現(xiàn)對(duì)文件的管理，并且在文件列表控 件中只顯示文本文件，即擴(kuò)張名為txt的文件。Private Sub Drive1_Cha nge()Dirl.Path = Drivel. DriveEnd SubPrivate Sub Dir1_Cha nge()=PathEnd SubPrivate Sub Form_Load()在文件列表中只顯示文本文件File1. Pattern”*txtEnd Sub7. 以下程序?yàn)榱嗽诔绦蜻\(yùn)行時(shí)，在不中斷程序的前提

17、下，直接將變量i的值顯示在立即窗口中。Private Sub Form_Load()Dim i As In tegerForm1.AutoRedraw = True調(diào)用顯示數(shù)字的子過程for i = 0 to 10Form1.Pri nt iNext iDebug .Pri nt i=; iEnd Sub四、程序改錯(cuò)題在某個(gè)工程中，已為工程設(shè)計(jì)了兩個(gè)菜單【文件】/【打開】、【文 件】/【另存為】和一個(gè)文本框控件 Textl，并已向工程窗體中添加 了通用對(duì)話框控件。以下程序用來實(shí)現(xiàn)以下功能：（1）單擊【文件】/【打開】子菜單，彈出【打開】對(duì)話框，從對(duì) 話框中選擇要打開的文件。文件中的內(nèi)容顯示到文

18、本框中。（2）單擊【文件】/【另存為】子菜單，彈出【另存為】對(duì)話框， 在對(duì)話框中輸入要保存的文件名，然后保存文件。Private Sub mn u（）Dim fName As Stri ngDim text As StringDim textbuff As Stri ng設(shè)置文件過濾器CommonDialog1.Filter = 文本文件（*txt）|*txt顯示“打開”對(duì)話框Common Dialog1.ShowOpe nfName = Com mon Dialog1.If fName The n打開順序文件Ope n fName For OutPut As #1改為:Ope n fName For In put As #1讀取順序文件中的內(nèi)容，并將它顯示到文本框中Do While Not EOF（1）Line In put #1, texttextbuff = textbuff + textTextl.Text = textbuff力口入：LoopClose #1End IfEnd SubPrivate Sub mnu SaveAs_Click()D