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

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

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

4、將 標(biāo)準(zhǔn)窗體的 MDIChild 屬性設(shè)為True。12 .順序文件可以通過(guò) Write 語(yǔ)句 或Print語(yǔ)句將數(shù)據(jù)寫入文件，而讀取文件中的數(shù)據(jù)可以使用 Line Input# 語(yǔ)句、 Input# 語(yǔ)句 或Input函數(shù)來(lái)實(shí)現(xiàn)。隨機(jī)文件和二進(jìn)制文件的讀操作可以通過(guò) Get語(yǔ)句來(lái)實(shí)現(xiàn)，寫操作可以通過(guò)Put 語(yǔ)句來(lái)實(shí)現(xiàn)。13 .在Visual中，程序共有 設(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、來(lái)的信息。二、選擇題1 .以下關(guān)鍵字中，不能定義變量的是（A）A. DeclareB. DimC. PublicD.Private2 .下面變量不合法的是（C）A. a2 （2） B. abedC. a$xD. CDE3 .以下事件中，命令按鈕不能響應(yīng)的事件為（C）A. Click 事件B. MouseDown 事件C. Change 事件D. GotFocus 事件4 .如果要使文本框控件帶有水平滾動(dòng)條（假設(shè)MultiLine已設(shè) 為True）,則ScrollBar屬性必須設(shè)為（B）A. 0B. 1C. 2D. 35 .在列表框、組合框中，當(dāng)前被選中的列表項(xiàng)由（C）返回。A. ListB.

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

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

8、deC. DrawWidthD. SealeMode14 .要想獲得使用Open語(yǔ)句所打開的文件的大小可以使用（A）A. LOF函數(shù)B. Len函數(shù)C. FileLen 函D. EOF函數(shù)15 .下面哪個(gè)語(yǔ)句只能從順序文件中讀出英文字符，非英文字符不能讀出（B）A. Input#語(yǔ)句B. Input 函數(shù)C. Line Input#語(yǔ)句D. Get語(yǔ)句16 .Data控件的很多屬性，()屬性用于指定Data控件所要操作的一個(gè)表或一個(gè)查詢。A. DatabaseName 屬性B. RecordsetType 屬性C. Exclusive 屬性D. RecordSource 屬性三、程序填空題1.

9、 以下程序是為了在窗體上顯示1+2+3+4+ +100的和，請(qǐng)將程序填寫完整。Private Sub Form_Load()=TrueDim i As IntegerDim sum As Integersum = 0For i = 1 To 100sumsum +iNext iPrint sumEnd Sub2. 窗體的Load事件中有以下代碼:Private Sub Form_Load()=TrueDim a As IntegerDim b As IntegerDim c As Integera = 300b = 45c = a * bDo While a <> bIf a &g

10、t; b Thena = a - bElseEnd IfLoopPrint c / bEnd Sub運(yùn)行程序后，程序的輸出為 900 o3. 以下程序是一個(gè)密碼檢驗(yàn)程序，程序界面如圖1所示。當(dāng) 在文本框中輸入密碼，然后單擊【確定】按鈕。這是如果輸入的密碼 為“1234”，則彈出如圖2所示的消息框；如果輸入的密碼不為“1234”，則彈出如圖3所示的消息框。在圖3所示的消息框中，如 果單擊“確定”按鈕，則重新輸入密碼；如果單擊“取消”，則退出 程序。4. 程序界面圖2【密碼正確】消息圖3 1密碼不正確】消息框Private Sub Command1_C1ick()Dim Ret As Intege

11、r'密碼正確，彈出“密碼正確”消息框If = "1234" ThenMsgBox ”密碼正確"，vbOKOnly + vb Informat ion,"密碼正確”密碼不正確，則彈出”密碼不正確消息框ElseRet = MsgBox （"密碼不正確，請(qǐng)重新輸入“，vbOKCancel + vbCritical, _"密碼不正確"）'根據(jù)所單擊的按鈕，執(zhí)行不同的操作Select Case Ret'單擊”確定“按鈕，重新輸入密碼'單擊”取消“按鈕，退出程序Case 1UnloadFormlEnd S

12、electEnd IfEnd Sub4.在某個(gè)工程中，己用【菜單編輯器】設(shè)計(jì)了 4個(gè)菜單：【顏 色】、【紅色】、【藍(lán)色】、【綠色】，其中【顏色】為一級(jí)菜單, 其“名稱”屬性為mnuColor, “Visible”屬性為True,菜單紅色、 【藍(lán)色】、【綠色】為菜單【顏色】的子菜單。以下程序用來(lái)實(shí)現(xiàn)以 下功能：(1) 菜單【顏色】不顯示在窗體上，即讓菜單【顏色】成為 彈出式菜單。(2) 在窗體上單擊鼠標(biāo)左鍵，彈出菜單【顏色】的子菜單。(3) 在彈出的菜單中，單擊某個(gè)菜單項(xiàng)，窗體的背景顏色變?yōu)橄鄳?yīng)的顏色。'菜單【顏色】不可見= FalseEnd SubPrivate Sub Form_Mo

13、useDown(Button As Integer, Shift As Integer, X As Single, _Y As Single)'單擊鼠標(biāo)左鍵，彈出彈出式菜單If Button =2 ThenPopupMenu mnucolorEnd IfEnd SubPrivate Sub mnucolorl_Click()'單擊菜單【紅色】，窗體的底色變?yōu)榧t色=vbRedEnd SubPrivate Sub mnucolor2_Click()'單擊菜單【藍(lán)色】，窗體的底色變?yōu)樗{(lán)色=vbBlueEnd SubPrivate Sub mnucolor3_Click()&#

14、39;單擊菜單【綠色】，窗體的底色變?yōu)榫G色=vbGreenEnd Sub5.以下程序用圖像框控件來(lái)實(shí)現(xiàn)編輯圖片的功能。Option ExplicitPrivate Const small As Single =Private Const large As Single = -1Private Sub cmdLarge_Click()Zoom imgCar, largeEnd SubPrivate Sub cmdSmall_Click()End SubZoom imgCar, smallEnd Sub放大、縮小處理過(guò)程Private Sub Zoom (ByVai img As Image, B

15、yVai ratio As Single)= True通過(guò)改變圖片框的尺寸和位置來(lái)實(shí)現(xiàn)對(duì)圖片的放大和縮小=+ * ratio / 2=+ * ratio / 2=-* ratio=-* ratioEnd Sub6 .以下程序是將驅(qū)動(dòng)器列表控件、文件夾列表控件、文件列 表控件3個(gè)控件組合在一起，以便實(shí)現(xiàn)對(duì)文件的管理，并且在文件列 表控件中只顯示文本文件，即擴(kuò)張名為txt的文件。Private Sub Drivel_Change()=Drivel. DrivePrivate Sub Dirl_Change()=PathEnd SubPrivate Sub Form_Load()'在文件列表

16、中只顯示文本文件Filel. Pattern = "*. txt”End Sub7 .以下程序?yàn)榱嗽诔绦蜻\(yùn)行時(shí)，在不中斷程序的前提下，直接將變量i的值顯示在立即窗口中。Private Sub Form_Load()Dim i As Integer=True'調(diào)用顯示數(shù)字的子過(guò)程for i=0 to 10Next iDebug Print "i=" iEnd Sub四、程序改錯(cuò)題在某個(gè)工程中，已為工程設(shè)計(jì)了兩個(gè)菜單【文件】/【打開】、 【文件】/【另存為】和一個(gè)文本框控件TextL并已向工程窗體中 添加了通用對(duì)話框控件。以下程序用來(lái)實(shí)現(xiàn)以下功能：(1) 單擊

17、【文件】/【打開】子菜單，彈出【打開】對(duì)話框, 從對(duì)話框中選擇要打開的文件。文件中的內(nèi)容顯示到文本框中。(2) 單擊【文件】/【另存為】子菜單，彈出【另存為】對(duì)話 框，在對(duì)話框中輸入要保存的文件名，然后保存文件。Private Sub mnuFi1eOpen_Click()Dim fName As StringDim text As StringDim textbuff As String設(shè)置文件過(guò)濾器="文本文件(*. txt) I*, txt”'顯示“打開”對(duì)話框fName =If fName <> "" Then'打開順序文件Open fName For Output As #1改為：Open fName For Input As ftl'讀取順序文件中的內(nèi)容，并將它顯示到文本框中Do While Not EOF(l)Line Input #1, texttextbuff = textbuff + text=textbuff加入：LoopClose #1End IfPrivate S