2008年4月二級VB真卷及筆試參【未來教育】

1、二級 Visual Basic 語言程序設計試卷 第 1 頁（共 11 頁） 2008 年 4 月筆試試卷參考答案 一、選擇題 （ 1 ） C ） （ 2 ） A ） （ 3 ） B ） （ 4 ） B ） （ 5 ） A ） （ 6 ） D ） （ 7 ） B ） （ 8 ） C ） （ 9 ） D ） （ 10 ） C ） （ 11 ） D ） （ 12 ） A ） （ 13 ） B ） （ 14 ） C ） （ 15 ） B ） （ 16 ） D ） （ 17 ） C ） （ 18 ） A ） （ 19 ） C ） （ 20 ） A ） （ 21 ） C ） （ 22 ） B ） （ 2

2、3 ） A ） （ 24 ） D ） （ 25 ） A ） （ 26 ） D ） （ 27 ） C ） （ 28 ） C ） （ 29 ） B ） （ 30 ） A ） （ 31 ） B ） （ 32 ） C ） （ 33 ） B ） （ 34 ） D ） （ 35 ） B ） 二、填空題 （ 1 ）【 1 】輸出 （ 2 ）【 2 】 16 （ 3 ）【 3 】 24 （ 4 ）【 4 】關系 （ 5 ）【 5 】數(shù)據(jù)定義語言 （ 6 ）【 6 】 x>5( 或 x>6 或 x>=6 或 x=7) （ 7 ）【 7 】 16 （ 8 ）【 8 】 a() 【 9 】 10

3、【 10 】 n=n-1 （ 9 ）【 11 】 All Files(*.*) 【 12 】 d:temptel.txt （ 10 ）【 13 】 For Input 【 14 】 #2 【 15 】 Not EOF(2) 機密啟用前 2008 年 4 月全國計算機等級考試二級筆試試卷 Visual Basic 語言程序設計 26 注意事項 一、考生應嚴格遵守考場規(guī)則，得到監(jiān)考人員指令后方可作答。 二、考生拿到試卷后應首先將自己的姓名、準考證號等內(nèi)容涂寫在答題卡的相應位置上。 三、選擇題答案必須用鉛筆填涂在答題卡的相應位置上， 填空題的答案必須用藍、 黑色鋼筆或圓珠筆寫在答題卡的相應位置上，答

4、案寫在試卷上無效。 四、注意字跡清楚，保持卷面整潔。 五、考試結束將試卷和答題卡放在桌上，不得帶走。待監(jiān)考人員收畢清點后，方可離場。 * * * 版權所有，任何單位或個人不得保留、復制和出版，違者必究 * * * 教育部考試中心 二 00 八年二月制 二級 Visual Basic 語言程序設計試卷 第 1 頁（共 10 頁） 2008 年 4 月全國計算機等級考試二級筆試試卷 公共基礎知識和 Visual Basic 語言程序設計 （考試時間 90 分鐘，滿分 100 分） 一、選擇題 ( 每小題 2 分， 共 70 分 ) （ 1 ）程序流程圖中帶有箭頭的線段表示的是（ ）。 A ）圖元關

5、系 B ）數(shù)據(jù)流 C ）控制流 D ）調用關系 （ 2 ）結構化程序設計的基本原則不包括（ ）。 A ）多元性 B ）自頂向下 C ）模塊化 D ）逐步求精 （ 3 ）軟件設計中模塊劃分應遵循的準則是（ ）。 A ）低內(nèi)聚低耦合 B ）高內(nèi)聚低耦合 C ）低內(nèi)聚高耦合 D ）高內(nèi)聚高耦合 （ 4 ）在軟件開發(fā)中，需求分析階段產(chǎn)生的主要文檔是（ ）。 A ）可行性分析報告 B ）軟件需求規(guī)格說明書 C ）概要設計說明書 D ）集成測試計劃 （ 5 ）算法的有窮性是指（ ）。 A ）算法程序的運行時間是有限的 B ）算法程序所處理的數(shù)據(jù)量是有限的 C ）算法程序的長度是有限的 D ）算法只能被有限

6、的用戶使用 （ 6 ） 對長度為 n 的線性表排序， 在最壞情況下， 比較次數(shù)不是 n(n-1)/2 的排序方法是（ ）。 A ）快速排序 B ）冒泡排序 C ）簡單插入排序 D ）堆排序 （ 7 ）下列關于棧的敘述正確的是（ ）。 A ）棧按“先進先出”組織數(shù)據(jù) B ）棧按“先進后出”組織數(shù)據(jù) C ）只能在棧底插入數(shù)據(jù) D ）不能刪除數(shù)據(jù) （ 8 ）在數(shù)據(jù)庫設計中，將 E-R 圖轉換成關系數(shù)據(jù)模型的過程屬于（ ）。 A ）需求分析階段 B ）概念設計階段 C ）邏輯設計階段 D ）物理設計階段 （ 9 ）有三個關系 R 、 S 和 T 如下： R S T B C D a 0 k1 b 1 n

7、1 由關系 R 和 S 通過運算得到關系 T ，則所使用的運算為（ ）。 A ）并 B ）自然連接 C ）笛卡爾積 D ）交 B C D a 0 k1 B C D f 3 h2 a 0 k1 n 2 x1 二級 Visual Basic 語言程序設計試卷 第 2 頁（共 10 頁） （ 10 ）設有表示學生選課的三張表，學生 S （學號，姓名，性別，年齡，身份證號），課程 C （課號， 課名）， 選課 SC （學號， 課號， 成績）， 則表 SC 的關鍵字（鍵或碼） 為（ ）。 A ）課號，成績 B ）學號，成績 C ）學號，課號 D ）學號，姓名，成績 （ 11 ）以下敘述中錯誤的是（ ）。

8、 A ）標準模塊文件的擴展名是 .bas B ）標準模塊文件是純代碼文件 C ）在標準模塊中聲明的全局變量可以在整個工程中使用 D ）在標準模塊中不能定義過程 （ 12 ）在 Visual Basic 中，表達式 3 *25 Mod 3 的值是（ ）。 A ） 1 B ） 0 C ） 3 D ）出現(xiàn)錯誤提示 （ 13 ）以下選項中，不合法的 Visual Basic 的變量名是（ ）。 A ） a5b B ） _xyz C ） a_b D ） andif （ 14 ）以下數(shù)組定義語句中，錯誤的是（ ）。 A ） Static a(10) As Integer B ） Dim c(3,1 To

9、4) C ） Dim d(-10) D ） Dim b(0 To 5, 1 To 3)As Integer （ 15 ）現(xiàn)有語句： y=IIf(x>0,x Mod 3,0) 設 x=10 ，則 y 的值是（ ）。 A ） 0 B ） 1 C ） 3 D ）語句有錯 （ 16 ）為了使文本框同時具有垂直和水平滾動條，應先把 multiLine 屬性設置為 True ，然后再把 ScrollBars 屬性設置為（ ）。 A ） 0 B ） 1 C ） 2 D ） 3 （ 17 ）文本框 Text1 的 KeyDown 事件過程如下： Private Sub Text 1_KeyDown(Ke

10、yCode As Integer, Shift As Integer) End Sub 其中參數(shù) KeyCode 的值表示的是發(fā)生此事件時（ ）。 A ）是否按下了 Alt 鍵或 Ctrl 鍵 B ）按下的是哪個數(shù)字鍵 C ）所按的鍵盤鍵的鍵碼 D ）按下的是哪個鼠標鍵 （ 18 ） 窗體上有一個名稱為 HScroll 1 的滾動條， 程序運行后， 當單擊滾動條兩端的箭頭時，立即在窗體上顯示滾動框的位置（即刻度值）。 下面能夠實現(xiàn)上述操作的事件過程是（ ）。 A ） Private Sub HScroll 1_Change() B ） Private Sub HScroll 1_Change(

11、) Print HScroll1.Value Print HScroll1.SmallChange End Sub End Sub C ） Private Sub HScroll1_Scroll() D ） Private Sub HScroll1_Scroll() Print HScroll1.Value Print HScroll1.SmallChange End Sub End Sub （ 19 ）若已把一個命令按鈕的 Default 屬性設置為 True ，則下面可導致按鈕的 Click 事件過程被調用的操作是（ ）。 A ）用鼠標右鍵單擊此按鈕 B ）按鍵盤上的 Esc 鍵 C ）按

12、鍵盤上的回車鍵 D ）用鼠標右鍵雙擊此按鈕 （ 20 ）要使兩個單選按鈕屬于同一個框架，正確的操作是（ ）。 A ）先畫一個框架，再在框架中畫兩個單選按鈕 B ）先畫一個框架，再在框架外畫兩個單選按鈕，然后把單選按鈕拖到框架中 C ）先畫兩個單選按鈕，再用框架將單選按鈕框起來 D ）以上三種方法都正確 （ 21 ）能夠存放組合框的所有項目內(nèi)容的屬性是（ ）。 A ） Caption B ） Text C ） List D ） Selected （ 22 ）設窗體上有一個標簽 Label 1 和一個計時器 Timer1 ， Timer1 的 Interval 屬性被設置為 1000 ， Enab

13、led 屬性被設置為 True 。 要求程序運行時每秒在標簽中顯示一次系統(tǒng)當前時間。以下可以實現(xiàn)上述要求的事件過程是（ ）。 A ） Private Sub Timer 1_Timer() B ） Private Sub Timer1_Timer() =True =Time$ End Sub End Sub C ） Private Sub Timer 1_Timer() D ） Private Sub Timer 1_Timer() =1 For k = 1 To Timer1.Interval End Sub =Timer 二級 Visual Basic 語言程序設計試卷 第 4 頁（共 1

14、0 頁） a = Right(x, 11) b = Mid(x,7,5) c = MsgBox(a, ,b) End Sub 運行程序后單擊命令按鈕，以下敘述中錯誤的是（ ）。 A ）信息框的標題是 Basic B ）信息框中的提示信息是 Programming C ） c 的值是函數(shù)的返回值 D ） MsgBox 的使用格式有錯 （ 25 ）設工程文件包含兩個窗體文件 Form1.frm 、 Form2.frm 及一個標準模塊文件 Module1.bas 。兩個窗體上分別只有一個名稱為 Command1 的命令按鈕。 Form1 的代碼如下： Public x As Integer Priv

15、ate Sub Form_Load() x = 1 y = 5 End Sub Private Sub Command1_Click() Form2.Show End Sub Form2 的代碼如下： Private Sub Command1_Click() Print Form1.x, y End Sub Module1 的代碼如下： Public y As Integer 運行以上程序，單擊 Form1 的命令按鈕 Command1 ，則顯示 Form2 ；再單擊 Form2 上的命令按鈕 Command1 ，則窗體上顯示的是（ ）。 A ） 1 5 B ） 0 5 C ） 0 0 D ）

16、程序有錯 （ 26 ）窗體上有一個名稱為 Text 1 的文本框，一個名稱為 Command1 的命令按鈕。窗體文件的程序如下： Private Type x a As Integer b As Integer End Type Private Sub Command1_Click() Dim y As x = InputBox("") If 2 = / 2 Then = * Else = Fix( / 2) 二級 Visual Basic 語言程序設計試卷 第 5 頁（共 10 頁） End If Text1.Text = End Sub 對以上程序，下列敘述中錯誤的是（

17、 ）。 A ） x 是用戶定義的類型 B ） InputBox 函數(shù)彈出的對話框中沒有提示信息 C ）若輸入的是偶數(shù)， 的值為該偶數(shù)的平方 D ） Fix( / 2) 把 / 2 的小數(shù)部分四舍五入，轉換為整數(shù)返回 （ 27 ）窗體上有一個名 稱為 CD1 的通用對話框控件和由四個命令按鈕組成的控件數(shù) Command1 ，其下標從左到右分別為 0 、 1 、 2 、 3 ， 窗體外觀如圖所示。 命令按鈕的事件過程如下： Private Sub Command1_Click(Index As Integer) Select Case Index Case 0 CD1.Action = 1 Cas

18、e 1 CD1.ShowSave Case 2 CD1.Action = 5 Case 3 End End Select End Sub 對上述程序，下列敘述中錯誤的是（ ）。 A ）單擊“打開”按鈕，顯示打開文件的對話框 B ）單擊“保存”按鈕，顯示保存文件的對話框 C ）單擊“打印”按鈕，能夠設置打印選項，并執(zhí)行打印操作 D ）單擊“退出”按鈕，結束程序的運行 （ 28 ） 窗體上有兩個水平滾動條 HV 、 HT ， 還有一個文本框 Text1 和一個標題為“計算” 的命令按鈕 Command1 ，并編寫了以下程序： Private Sub Command1_Click() 二級 Visu

19、al Basic 語言程序設計試卷 第 6 頁（共 10 頁） Call cale(, ) End Sub Public Sub cale(x As Integer, y As Integer) Text1.Text = x * y End Sub 運行程序， 單擊“計算”按鈕，可根據(jù)速度與時間計算出距離，并顯示計算結果。對以上程序，下列敘述中正確的是（ ）。 A ）過程調用語句不對，應為 cale(HV.HT) B ）過程定義語句的形式參數(shù)不對，應為 Sub cale(x As Control, y As Control) C ）計算結果在文本框中顯示出來 D ）程序不能正確運行 （ 29

20、）現(xiàn)有如下程序： Private Sub Command1_Click() s = 0 For i = 1 To 5 s = s + f(5 + i) Next Print s End Sub Public Function f(x As Integer) If x >= 10 Then t = x + 1 Else t = x + 2 End If f = t End Function 運行程序，則窗體上顯示的是（ ）。 A ） 38 B ） 49 C ） 61 D ） 70 （ 30 ） 窗體上有一個用菜單編輯器設計的菜單。 運行程序， 并在窗體上單擊鼠標右鍵， 則彈出一個快捷菜單。

21、如圖所示。 以下敘述中錯誤的是（ ）。 A ） 在設計“粘貼” 菜單項時， 在菜單編輯器窗口中設置了“有效” 屬性（有“ ”） B ）菜單中的橫線是在該菜單項的標題輸入框中輸入了一個“”（減號）字符 C ） 在設計“選中” 菜單項時， 在菜單編輯器窗口中設置了“復選” 屬性（有“”） D ） 在設計該彈出菜單的主菜單項時， 在菜單編輯器窗口中去掉了“可見”前面的“” 二級 Visual Basic 語言程序設計試卷 第 7 頁（共 10 頁） （ 31 ）窗體上有一個名稱為 Picture1 的圖片框控件，一個名稱為 Label1 的標簽控件，如圖所示。 現(xiàn)有如下程序： Public Sub

22、display(x As Control) If TypeOf x Is Label Then = " 計算機等級考試 " Else = LoadPicture("pic.jpg") End If End Sub Private Sub Label1_Click() Call display(Label1) End Sub Private Sub Picture1_Click() Call display(Picture1) End Sub 對以上程序，下列敘述中錯誤的是（ ）。 A ）程序運行時會出錯 B ）單擊圖片框，在圖片框中顯示一幅圖片 C ）過

23、程中的 x 是控件變量 D ）單擊標簽，在標簽中顯示一串文字 （ 32 ）窗體上有兩個名稱分別為 Text1 、 Text2 的文本框。 Text1 的 KeyUp 事件過程如下： Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer) Dim c As String c = UCase(Chr(KeyCode) Text2.Text = Chr(Asc(c) + 2) End Sub 當向文本框 Text1 中輸入小寫字母 a 時，文本框 Text2 中顯示的是（ ）。 A ） A B ） a C ） C D ） c （ 3

24、3 ）設窗體上有一個文本框 Text1 和一個命令按鈕 Command1 ，并有以下事件過程： Private Sub Command1_Click() Dim s As String, ch As String s = "" For k = 1 To Len(Text1) ch = Mid(Text1, k, 1) 二級 Visual Basic 語言程序設計試卷 第 8 頁（共 10 頁） s = ch + s Next k Text1.Text = s End Sub 程序執(zhí)行時， 在文本框中輸入“ Basic ”， 然后單擊命令按鈕， 則 Text1 中顯示的是（

25、）。 A ） Basic B ） cisaB C ） BASIC D ） CISAB （ 34 ）某人編寫了如下程序，用來求 10 個整數(shù)（整數(shù)從鍵盤輸入）中的最大值： Private Sub Command1_Click() Dim a(10) As Integer, max As Integer For k = 1 To 10 a(k) = InputBox(" 輸入一個整數(shù) ") Next k max =0 For k = 1 To 10 If a(k) > max Then max = a(k) End If Next k Print max End Sub

26、運行程序時發(fā)現(xiàn)， 當輸入 10 個正數(shù)時， 可以得到正確結果， 但輸入 10 個負數(shù)時結果是錯誤的。程序需要修改。下面的修改中可以得到正確運行結果的是（ ）。 A ）把 If a(k)>max Then 改為 If a(k)B ）把 max=a(k) 改為 a(k)=max C ）把第 2 個循環(huán)語句 For k=1 To 10 改為 For k = 2 To 10 D ）把 max=0 改為 max=a(10) （ 35 ）已知在 4 行 3 列的全局數(shù)組 score(4,3) 中存放了 4 個學生 3 門課程的考試成績（均為整數(shù)），現(xiàn)需要計算每個學生的總分，某人編寫程序如下： Opt

27、ion Base 1 Private Sub Command1_Click() Dim sum As Integer sum = 0 For i = 1 To 4 For j = 1 To 3 sum = sum + score(i, j) Next j Print " 第 " & i & " 個學生的總分是： " sum Next i End Sub 運行此程序時發(fā)現(xiàn)， 除第 1 個人的總分計算正確外， 其他人的總分都是錯誤的， 程序需要修改。以下修改方案中正確的是（ ）。 A ）把外層循環(huán)語句 For i = 1 To 4 改為 Fo

28、r i = 1 To 3 內(nèi)層循環(huán)語句 For j = 1 To 3 改為 For j = 1 To 4 B ）把 sum = 0 移到 For i = 1 To 4 和 For j =1 To 3 之間 二級 Visual Basic 語言程序設計試卷 第 9 頁（共 10 頁） C ）把 sum = sum +score(i, j) 改為 sum = sum + score(j,i) D ）把 sum = sum +score(i, j) 改為 sum = score(i,j) 二、填空題 ( 每空 2 分， 共 30 分 ) （ 1 ）測試用例包括輸入值集和 【 1 】 值集。 （ 2

29、）深度為 5 的滿二叉樹有 【 2 】 個葉子結點。 （ 3 ） 設某循環(huán)隊列的容量為 50 ， 頭指針 front=5 （指向隊頭元素的前一位置）， 尾指針 rear=29 （指向隊尾元素），則該循環(huán)隊列中共有 【 3 】 個元素。 （ 4 ）在關系數(shù)據(jù)庫中，用來表示實體之間聯(lián)系的是 【 4 】 。 （ 5 ） 在數(shù)據(jù)庫管理系統(tǒng)提供的數(shù)據(jù)定義語言、 數(shù)據(jù)操縱語言和數(shù)據(jù)控制語言中， 【 5 】 負責數(shù)據(jù)的模式定義與數(shù)據(jù)的物理存取構建。 （ 6 ）設有以下的循環(huán)： x = 1 Do x = x + 2 Print x Loop Until 【 6 】 要求程序運行時執(zhí)行 3 次循環(huán)體，請?zhí)羁铡?

30、（ 7 ）窗體上命令按鈕 Command1 的事件過程如下： Private Sub Command1_Click() Dim total As Integer total = s(1) + s(2) Print total End Sub Private Function s(m As Integer) As Integer Static x As Integer For i = 1 To m x = x + 1 Next i s = x End Function 運行程序，第 3 次單擊命令按鈕 Command1 時， 輸出結果為 【 7 】 。 （ 8 ）在窗體上畫一個名稱為 Command1 的命令按鈕，然后編寫如下程序： Option Base 1 Private Sub Command1_Click() Dim a(10) As Integer For i = 1 To 10 a(i) =