1、2011年 9月全國計算機等級考試二級筆試試卷Visual Basic語言程序設計（考試時間90 分鐘，滿分100分） 一、選擇題（每小題2分，共70分） 下列各題A） 、B） 、C） 、D）四個選項中，只有一個選項是正確的。請將正確選項填涂在答題卡相應位置上，答在試卷上不得分。 （1）下列敘述中正確的是（ ） 。A）算法就是程序B）設計算法時只需要考慮數據結構的設計C）設計算法時只需要考慮結果的可靠性D）以上三種說法都不對（2）下列關于線性鏈表的敘述中，正確的是A）各數據結點的存儲空間可以不連續，但它們的存儲順序與邏輯順序必須一致B）各數據結點的存儲順序與邏輯順序可以不一致，但它們的存儲空間

2、必須連續C）進行插入與刪除時，不需要移動表中的元素D）以上三種說法都不對（3）下列關于二叉樹的敘述中，正確的是A）葉子結點總是比度為2的結點少一個B）葉子結點總是比度為2的結點多一個C）葉子結點數是度為2的結點數的兩倍D）度為2的結點數是度為1的結點數的兩倍（4）軟件按功能可以分為應用軟件、系統軟件和支撐軟件（或工具軟件）。下面屬于應用軟件的是A）學生成績管理系統B）C語言編譯程序C）UNIX操作系統D）數據庫管理系統（5）某系統總體結構圖如下圖所示：該系統總體結構圖的深度是A）7B）6C）3D）2（6）程序調試的任務是A）設計測試用例B）驗證程序的正確性C）發現程序中的錯誤D）診斷和改正程序

3、中的錯誤（7）下列關于數據庫設計的敘述中，正確的是A）在需求分析階段建立數據字典B）在概念設計階段建立數據字典C）在邏輯設計階段建立數據字典D）在物理設計階段建立數據字典（8）數據庫系統的三級模式不包括A）概念模式B）內模式C）外模式D）數據模式（9）有三個關系R、S和T如下：RSTABCABCABCa12a12c31b21b21c31則由關系R和S得到關系T的操作是A）自然連接B）差C）交D）并（10）下列選項中屬于面向對象設計方法主要特征的是A）繼承B）自頂向下C）模塊化D）逐步求精（11）以下描述中錯誤的是A）窗體的標題通過其Caption屬性設置B）窗體的名稱（Name屬性）可以在運行

4、期間修改C）窗體的背景圖形通過其Picture屬性設置D）窗體最小化時的圖標通過其Icon屬性設置（12）在設計階段，當按Ctrl+R鍵時，所打開的窗口是A）代碼窗口B）工具箱窗口C）工程資源管理器窗口D）屬性窗口（13）設有如下變量聲明語句：Dim a, b As Boolean則下面敘述中正確的是A）a和b都是布爾型變量B）a是變體型變量，b是布爾型變量C）a是整型變量，b是布爾型變量D）a和b都是變體型變量（14）下列可以作為Visual Basic變量名的是A）A#AB）4ABCC）?xyD）Print_Text（15）假定一個滾動條的LargeChange屬性值為100，則100表示

5、A）單擊滾動條箭頭和滾動框之間某位置時滾動框位置的變化量B）滾動框位置的最大值C）拖動滾動框時滾動框位置的變化量D）單擊滾動條箭頭時滾動框位置的變化量（16）在窗體上畫一個命令按鈕，然后編寫如下事件過程：Private Sub Command1_Click() MsgBox Str(123 + 321)End Sub程序運行后，單擊命令按鈕，則在信息框中顯示的提示信息為A）字符串“123+321”B）字符串“444”C）數值“444”D）空白（17）假定有以下程序：Private Sub Form_Click() a = 1: b = a Do Until a >= 5 x = a *

6、b Print b; x a = a + b b = b + a LoopEnd Sub程序運行后，單擊窗體，輸出結果是A）11B）11C）11D）1123243836（18）在窗體上畫一個名稱為List1的列表框，列表框中顯示若干城市的名稱。當單擊列表框中的某個城市名時，該城市名消失。下列在List_Click事件過程中能正確實現上述功能的語句是A）List1.RemoveItem List1.TextB）List1.RemoveItem List1.ClearC）List1.RemoveItem List1.ListCountD）List1.RemoveItem List1.ListInd

7、ex（19）列表框中的項目保存在一個數組中，這個數組的名字是A）ColumnB）StyleC）ListD）MultiSelect（20）有人編寫了如下的程序：Private Sub Form_Click() Dim s As Integer, x As Integer s = 0 x = 0 Do While s = 10000 x = x + 1 s = s + x 2 Loop Print sEnd Sub上述程序的功能是：計算s=1+22+32+n2+，直到s>10000為止。程序運行后，發現得不到正確的結果，必須進行修改。下列修改中正確的是A）把x = 0改為x = 1B）把Do

8、 While s = 10000改為Do While s <= 10000C）把Do While s = 10000改為Do While s > 10000D）交換x = x + 1和s = s + x 2的位置（21）設有如下程序：Private Sub Form_Click() Dim s As Long, f As Long Dim n As Integer, i As Integer f = 1 n = 4 For i = 1 To n f = f * i s = s + f Next i Print sEnd Sub程序運行后，單擊窗體，輸出結果是A）32B）33C）34

9、D）35（22）閱讀下面的程序段： a = 0 For i = 1 To 3 For j = 1 To i For k = j To 3 a = a + 1 Next k Next j Next i執行上面的程序段后，a的值為A）3B）9C）14D）21（23）設有如下程序：Private Sub Form_Click() Cls a$ = "123456" For i = 1 To 6 Print Tab(12 - i); Next iEnd Sub 程序運行后，單擊窗體，要求結果如圖所示，則在 處應填入的內容為A）Left(a$, i)B）Mid(a$, 8 - i,

10、i)C）Right(a$, i)D）Mid(a$, 7, i)（24）設有如下程序：Private Sub Form_Click() Dim i As Integer, x As String, y As String x = "ABCDEFG" For i = 4 To 1 Step -1 y = Mid(x, i, i) + y Next i Print yEnd Sub程序運行后，單擊窗體，輸出結果是A）ABCCDEDEFGB）AABBCDEFGC）ABCDEFGD）AABBCCDDEEFFGG（25）設有如下程序：Private Sub Form_Click() D

11、im ary(1 To 5) As Integer Dim i As Integer Dim sum As Integer For i = 1 To 5 ary(i) = i + 1 sum = sum + ary(i) Next i Print sumEnd Sub程序運行后，單擊窗體，則在窗體上顯示的是A）15B）16C）20D）25（26）有一個數列，它的前3個數為0，1，1，此后的每個數都是其前面3個數之和，即0，1，1，1，2，4，7，13，24，要求編寫程序輸出該數列中所有不超過1000的數。某人編寫程序如下：Private Sub Form_Click() Dim i As In

12、teger, a As Integer, b As Integer Dim c As Integer, d As Integer a = 0: b = 1: c = 1 d = a + b + c i = 5 While d <= 1000 Print d; a = b: b = c: c = d d = a + b + c i = i + 1 WendEnd Sub運行上面的程序，發現輸出的數列不完整，應進行修改。以下正確的修改是A）把While d <= 1000改為While d > 1000B）把i = 5改為i = 4C）把i = i + 1移到While d &l

13、t;= 1000的下面D）在i = 5的上面增加一個語句：Print a; b; c;（27）下面的語句用Array函數為數組變量a的各元素賦整數值：a = Array(1, 2, 3, 4, 5, 6, 7, 8, 9)針對a的聲明語句應該是A）Dim aB）Dim a As IntegerC）Dim a(9) As IntegerD）Dim a() As Integer（28） 下列描述中正確的是A）Visual Basic只能通過過程調用執行通用過程B）可以在Sub過程的代碼中包含另一個Sub過程的代碼C）可以像通用過程一樣指定事件過程的名字D）Sub過程和Function過程都有返回值

14、（29）閱讀程序：Function fac(ByVal n As Integer) As Integer Dim temp As Integer temp = 1 For i% = 1 To n temp = temp * i% Next i% fac = tempEnd FunctionPrivate Sub Form_Click() Dim nsum As Integer nsum = 1 For i% = 2 To 4 nsum = nsum + fac(i%) Next i% Print nsumEnd Sub程序運行后，單擊窗體，輸出結果是A）35B）31C）33D）37（30）在窗

15、體上畫一個命令按鈕和一個標簽，其名稱分別為Command1和Label1，然后編寫如下代碼：Sub S(x As Integer, y As Integer) Static z As Integer y = x * x + z z = yEnd SubPrivate Sub Command1_Click() Dim i As Integer, z As Integer m = 0 z = 0 For i = 1 To 3 S i, z m = m + z Next i Label1.Caption = Str(m)End Sub程序運行后，單擊命令按鈕，在標簽中顯示的內容是A）50B）20C）

16、14D）7（31）以下說法中正確的是A）MouseUp事件是鼠標向上移動時觸發的事件B）MouseUp事件過程中的x，y參數用于修改鼠標位置C）在MouseUp事件過程中可以判斷用戶是否使用了組合鍵D）在MouseUp事件過程中不能判斷鼠標的位置（32）假定已經在菜單編輯器中建立了窗體的彈出式菜單，其頂級菜單項的名稱為a1，其“可見”屬性為False。程序運行后，單擊鼠標左鍵或右鍵都能彈出菜單的事件過程是A）Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If B

17、utton = 1 And Button = 2 Then PopupMenu a1 End IfEnd SubB）Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) PopupMenu a1End SubC）Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 1 Then PopupMenu a1 End IfEnd

18、 SubD）Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 2 Then PopupMenu a1 End IfEnd Sub（33）在窗體上畫一個名稱為CD1的通用對話框，并有如下程序：Private Sub Form_Load() CD1.DefaultExt = "doc" CD1.FileName = "c:file1.txt" CD1.Filter = "應用程序(*.exe)|*

19、.exe"End Sub程序運行時，如果顯示了“打開”對話框，在“文件類型”下拉列表框中的默認文件類型是A）應用程序(*.exe)B）*.docC) *.txtD) 不確定（34）以下描述中錯誤的是A）在多窗體應用程序中，可以有多個當前窗體B）多窗體應用程序的啟動窗體可以在設計時設定C）多窗體應用程序中每個窗體作為一個磁盤文件保存D）多窗體應用程序可以編譯生成一個EXE文件（35）以下關于順序文件的敘述中，正確的是A）可以用不同的文件號以不同的讀寫方式同時打開同一個文件B）文件中各記錄的寫入順序與讀出順序是一致的C）可以用Input#或Line Input#語句向文件寫記錄D）如果用

20、Append方式打開文件，則既可以在文件末尾添加記錄，也可以讀取原有記錄二、填空題(每空2分，共30 分) 請將每空的正確答案寫在答題卡【l】至【15】序號的橫線上，答在試卷上不得分。（1）數據結構分為線性結構與非線性結構，帶鏈的棧屬于 【1】 線性結構 。（2）在長度為n的順序存儲的線性表中插入一個元素，最壞情況下需要移動表中 【2】 n 個元素。（3）常見的軟件開發方法有結構化方法和面向對象方法。對某應用系統經過需求分析建立數據流圖（DFD），則應采用 【3】結構化 方法。（4）數據庫系統的核心是 【4】 數據庫管理系統 。（5）在進行關系數據庫的邏輯設計時，E-R圖中的屬性常被轉換為關系

21、中的屬性，聯系通常被轉換為 【5】關系 。（6）為了使標簽能自動調整大小以顯示標題（Caption屬性）的全部文本內容，應把該標簽的 【6】AutoSize 屬性設置為True。（7）在窗體上畫一個命令按鈕，其名稱為Command1，然后編寫如下事件過程：Private Sub Command1_Click() x = 1 Result = 1 While x <= 10 Result = 【7】Result*x x = x + 1 Wend Print ResultEnd Sub上述事件過程用來計算10的階乘，請填空。（8）在窗體上畫一個命令按鈕，其名稱為Command1，然后編寫如下

22、事件過程：Private Sub Command1_Click() t = 0: m = 1: Sum = 0 Do t = t + 【8】 m Sum = Sum + 【9】 t m = m + 2 Loop While 【10】m<=39 Print SumEnd Sub該程序的功能是，單擊命令按鈕，則計算并輸出以下表達式的值：1+(1+3)+(1+3+5)+.+(1+3+5+.+39) 請填空。（9）在窗體上畫一個命令按鈕（其Name屬性為Command1），然后編寫如下代碼：Private Sub Command1_Click() Dim M(10) As Integer For

23、 k = 1 To 10 M(k) = 12 - k Next k x = 6 Print M(2 + M(x)End Sub程序運行后，單擊命令按鈕，輸出結果是 【11】 4 。（10）在窗體上畫一個命令按鈕，其名稱為Command1，然后編寫如下事件過程：Private Sub Command1_Click() Dim n As Integer n = Val(InputBox("請輸入一個整數：") If n Mod 3 = 0 And n Mod 2 = 0 And n Mod 5 = 0 Then Print n + 10 End IfEnd Sub程序運行后，單擊命令按鈕，在輸入對話框中輸入60，則輸出結果是 【12】70 。（11）在窗體上畫一個命令按鈕，其名稱為Command1，然后編寫如下事件過程：Privat