VB試題及答案

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

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

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

4、將 標準窗體的 MDIChild 屬性設為True。12 .順序文件可以通過 Write 語句 或Print語句將數(shù)據(jù)寫入文件，而讀取文件中的數(shù)據(jù)可以使用 Line Input# 語句、 Input# 語句 或Input函數(shù)來實現(xiàn)。隨機文件和二進制文件的讀操作可以通過 Get語句來實現(xiàn)，寫操作可以通過Put 語句來實現(xiàn)。13 .在Visual中，程序共有 設計 、 運 行 、 中斷 3種工作模式。錯誤有 編譯錯 誤、實時錯誤、邏輯錯誤 3種類型。14 .關(guān)鍵數(shù)據(jù)分為主關(guān)鍵字和外部關(guān)鍵字。其中主關(guān)鍵字是對數(shù)據(jù)表內(nèi)一個記錄進行唯一表示的信息，而外部關(guān)鍵字是把一個記錄與另外某個數(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 .以下事件中，命令按鈕不能響應的事件為（C）A. Click 事件B. MouseDown 事件C. Change 事件D. GotFocus 事件4 .如果要使文本框控件帶有水平滾動條（假設MultiLine已設 為True）,則ScrollBar屬性必須設為（B）A. 0B. 1C. 2D. 35 .在列表框、組合框中，當前被選中的列表項由（C）返回。A. ListB.

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

7、&C.上劃線D.減號11 .在設置MsgBox函數(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.圖片框和圖像框都是通過以下哪個屬性來設置顯示的圖片的（C）A. MouseiconB. ImageC- PictureD. Icon13 .在圖片框中所畫圖形的顏色與下面哪個屬性有關(guān)（B）A. DrawStyleB. DrawMo

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

9、 以下程序是為了在窗體上顯示1+2+3+4+ +100的和，請將程序填寫完整。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運行程序后，程序的輸出為 900 o3. 以下程序是一個密碼檢驗程序，程序界面如圖1所示。當 在文本框中輸入密碼，然后單擊【確定】按鈕。這是如果輸入的密碼 為“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 （"密碼不正確，請重新輸入“，vbOKCancel + vbCritical, _"密碼不正確"）'根據(jù)所單擊的按鈕，執(zhí)行不同的操作Select Case Ret'單擊”確定“按鈕，重新輸入密碼'單擊”取消“按鈕，退出程序Case 1UnloadFormlEnd S

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

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

14、39;單擊菜單【綠色】，窗體的底色變?yōu)榫G色=vbGreenEnd Sub5.以下程序用圖像框控件來實現(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放大、縮小處理過程Private Sub Zoom (ByVai img As Image, B

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

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

17、【文件】/【打開】子菜單，彈出【打開】對話框, 從對話框中選擇要打開的文件。文件中的內(nèi)容顯示到文本框中。(2) 單擊【文件】/【另存為】子菜單，彈出【另存為】對話 框，在對話框中輸入要保存的文件名，然后保存文件。Private Sub mnuFi1eOpen_Click()Dim fName As StringDim text As StringDim textbuff As String設置文件過濾器="文本文件(*. txt) I*, txt”'顯示“打開”對話框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