1、判斷題：（共20題 每題2分）1、為了使一個控件在運行時不可見，應將該控件的Enable屬性值設置為False。 2、當用Load命令將窗體裝入內存時，一定觸發窗體的Load事件和Activate事件。 3、面向對象程序設計是一種以對象為基礎，由事件驅動對象執行的設計方法。 4、將焦點主動設置到指定的控件或窗體上，應采用Setfocus方法。5、方法是Visual Basic對象可以響應的用戶操作。 6、對象是基本的運行實體，它既包括了數據（屬性），也包括作用于對象的操作（方法）和對象的響應動作（事件）。7、屬性是用來描述和反映對象特征的參數，不同的對象具有各自不同的屬性，對象的所有屬性都可以

2、在屬性窗口中設置。 8、Visual Basic中將一些通用的過程和函數編寫好并封裝作為方法供用戶直接調用。 9、每個對象都有一系列預先定義好的事件，但要使對象能響應具體的事件，則應編寫該對象相應的事件過程。 10、在打開一個Visual Basic工程進行修改后，當要另存為一個文件名時，可單擊“工程另存為”命令，因為其同時會保存窗體文件。  11、使用MsgBox函數與MsgBox過程可接受用戶輸入數據。 12、If語句中的條件表達式中只能使用關系或邏輯表達式。 13、在Select Case情況語句中，各分支（即Case表達式）的先后順序無關。 14、要實現同樣的循環控

3、制，在Do While-Loop和Do-Loop While循環結構中給定的循環條件是一樣的。 15、一個Do循環只能使用一個Loop關鍵字，但是可以使用多個Exit語句。 16、For循環語句正常結束（即不是通過Exit For語句或強制中斷）其循環控制變量的值一定大于“終值”，并等于“終值”“步長”。          17、VB要求程序員在使用變量前，必須事先聲明。 18、在模塊的聲明段中用Private和Dim語句聲明的數組為模塊級數組。 19、順序文件的每一個記錄都有固定長度，每一個記錄都有一個

4、記錄好。 20、在VB中，常用的對象有工具箱中的控件、窗體、菜單、應用程序的部件以及數據庫，這些對象都有屬性和方法。 單選題：（共30道試題，每題1分）1、在設計應用程序時，可以查看到應用程序工程中的所有部分的窗口是（        ）。  A窗體設計    B代碼    C屬性    D工程資源管理器窗口   參考答案：D  2、窗體的Load事件的觸發時機是（      

5、 ）。  A用戶單擊窗體時   B窗體被加載時   C窗體顯示之后   D窗口被卸載時   參考答案：B3、與傳統的程序設計語言相比，Visual Basuc最突出的特點是（        ）。  A結構化程序設計    B程序開發環境   C事件驅動編程機制   D程序調試技術   參考答案：C  4、VB6.0集成開發環境的主窗口不包括（       ）

6、。A標題欄  B菜單欄  C狀態欄  D工具欄   A標題欄    B菜單欄   C狀態欄   D工具欄   參考答案：C  5、如果在文本框中鍵入字符時，只顯示某個字符，如星號（*），應設置文本框的（        ）屬性。  ACaption    BPasswordChar   CText    DChar   參考答案：B

7、0;6、如果想讓文本框中的內容在運行時不能編輯，需將文本框的（      ）屬性設置為True。  ALocked    BMultiLine    CTabStop   DVisible   參考答案：A  7、對于定時器（Timer）控件，設計其定時是否開啟的屬性是（        ）。  AIndex    BTag    CEnabled   DLe

8、ft   參考答案：C  8、要在窗體Form1內顯示“myfrm”，使用的語句是（       ）。  AForm.Caption=“myfrm”    BForm1.Caption=“myfrm”   CForm1.Print “myfrm”     DForm.Print “myfrm”   參考答案：C9、下列正確的賦值語句是（      ）。  Ax+y=20   Bx+20&

9、#160;   C3x=y    Ds=X*r*r   參考答案：B10、當使用上下文相關的幫助時，選擇要幫助的內容，然后按（        ）鍵，就可出現MSDN窗口直接顯示所需的幫助信息。  AHelp    BF10     CESC    DF1   參考答案：D11、按照變量的作用域可將變量劃分為（      ）。  A公有、私有、系統  

10、; B全局變量、模塊級變量、過程級變量   C動態、常態、靜態   DPublic、Private、Protected   參考答案：B  12、可獲得字符的ASCII碼的函數是（       ）。  AVal    BFix   CAsc    DChr   參考答案：D  13、要退出DoLoop循環，可使用的語句是（       ）。  AExit  

11、 BExit  For    CEnd  Do    DExit  Do   參考答案：D  14、把數值型轉換為字符串型需要使用的函數是（      ）。  AVal    BStr    CAsc    DChr   參考答案：B15、表達式  6 + 10 Mod 4 * 2 + 1  的值是（       ）。

12、  A9   B11   C1   D3   參考答案：A16、以下可以作為Visual Basic變量名的是（        ）。  ASIN    BCOI    CCOS（X）   DX（-1）   參考答案：B  17、在代碼編輯器中，如果一條語句太長，無法在一行內寫下（不包括注釋），要折行書寫，可以在行末使用續行字符（       ），表示下一行是

13、當前行的繼續。  A一個空格加一個下劃線字符(_)     B一個下劃線字符(_)   C直接回車   D一個空格加一個連字符(-)   參考答案：A  18、在設計菜單時，如果要在菜單中加入一個菜單分隔條，則菜單分隔條的標題必須設置為（      ）。  A加號（+）   B減號（-）   C星號（*）   D感嘆號（！）   參考答案：B  19、如果要在程序中顯示一個彈出式菜單，那么要調用Visual Basi

14、c中提供的方法是（       ）。  APrint    BMove    CRefresh    DPopupMenu   參考答案：D 20、下列可以用來存儲圖像供其它對象使用的控件是（        ）。AToolBar  BStatursBar  CImageList  DTreeView   AToolBar

15、60; BStatursBar   CImageList   DTreeView   參考答案：C  21、當單擊工具欄上的按鈕時，會觸發的事件是（       ）。  AButtonClick   BChange   CLoad   DKeyPess   參考答案：A  22、要利用公共對話框控件來顯示“打開文件”對話框，需要調用控件的（       ）方法。  AShowPrint

16、  BShowOpen    CLoad   DShowColor   參考答案：B  23、用下面的語句所定義的數組的元素個數是（       ）。      Dim A（-3 To 5）As Integer  A6   B7   C8   D9   參考答案：D  24、Visual Basic根據計算機訪問文件的方式將文件分成三類，其中不包括（  &#

17、160;     ）。    A順序文件   BUnix文件   C二進制文件   D隨機文件   參考答案：B  25、KILL語句在VB語言中的功能是（     ）。  A清內存   B清病毒   C刪除在磁盤上的文件   D清屏幕   參考答案：C  26、以下的屬性和方法中，可重定義坐標系的是（       ）。  ADrawstyle屬性

18、    BDrawWidth屬性   CScale屬性   DScaleMode屬性   參考答案：B  27、當使用Line方法畫直線后，當前坐標在（       ）。  A（0，0）   B直線起點   C直線終點   D容器的中心   參考答案：A  28、設置對象的邊框類型的屬性是（      ）。  ADrawstyle   BBorderstyle

19、60; CDrawWidth   DScaleMode   參考答案：B  29、為了清除圖片框Picture1中的圖形，應采用的正確方法是（       ）。  A選擇圖片框，然后按Del鍵   B執行語句Picture1.Pictyre=LoadPicture (“”)   C執行語句Picture1.Pictyre=“”   D選擇圖片框，在窗口屬性中選擇Picture屬性條，然后按回車鍵   參考答案：B  30、要繪制多種形狀的圖形，需要設置Sh

20、ape控件的（      ）屬性。  AShape    BBordrestyle    CFillStyle    DStyle   參考答案：A 單選題：（共6道試題，每題5分）1、 下面程序段（    ）能夠正確實現條件：X<Y,則A=15，否則A=-15。    AIf X<Y Then A=15     A=-15   

21、60; Print A  BIf X<Y Then A=15: Print A     A=-15: Print A  CIf X<Y Then A=15: Print A         ElseA=-15: Print   DIf X<Y Then A=15Else: A=-15Print A   參考答案：C  2、 下面程序段的執行結果為（      ）A =

22、75If A > 60 Then  I = 1ElseIf A > 70 Then  I = 2ElseIf A > 80 Then  I = 3ElseIf A > 90 Then  I = 4End IfPrint "I=" I   A1   B2   C3   D4   參考答案：B  3、使用For循環語句，程序如下，程序運行后，單擊窗體，輸出結果為（       ）Priv

23、ate Sub Form_Click( )   Static Sum As Integer   For I =1 To 6        Sum = Sum + I       Next I       Print Sum     End Sub   A16   B20   C6   D21   參考答案：D4、 程序運行結果為（     ）Option ExplicitPrivate Sub Command1_Click() Dim a, b As Integer a = 3.6 b = 3.6 Text1.Text = a Text2.Tex