全國計算機等級考試二級VB語言筆試試題及答案

1、2005 年 9 月全國計算機等級考試二級筆試試卷公共基礎知識和Visual Basic 語言程序設計（考試時間90 分鐘，滿分100 分 ）一、選擇題（每小題 2 分 ,共 70 分 ）下列各題A）、 B）、 C）、 D）四個選項中，只有一個選項是正確的。請將正確選項填涂在答題卡相應位置上，答在試卷上不得分。（ 1 ）下列敘述中正確的是C 。A程序設計就是編制程序B程序的測試必須由程序員自己去完成C程序經調試改錯后還應進行再測試D程序經調試改錯后不必進行再測試（ 2）下列數據結構中，能用二分法進行查找的是A 。A順序存儲的有序線性表B 線性鏈表C二叉鏈表D有序線性鏈表（ 3）下列關于棧的描述

2、正確的是C 。A在棧中只能插入元素而不能刪除元素B 在棧中只能刪除元素而不能插入元素C棧是特殊的線性表，只能在一端插入或刪除元素D 棧是特殊的線性表，只能在一端插入元素，而在另一端刪除元素（ 4）下列敘述中正確的是D 。A一個邏輯數據結構只能有一種存儲結構B 數據的邏輯結構屬于線性結構，存儲結構屬于非線性結構C一個邏輯數據結構可以有多種存儲結構，且各種存儲結構不影響數據處理的效率D 一個邏輯數據結構可以有多種存儲結構，且各種存儲結構影響數據處理的效率（ 5）下列描述中正確的是C 。A軟件工程只是解決軟件項目的管理問題B 軟件工程主要解決軟件產品的生產率問題C軟件工程的主要思想是強調在軟件開發(fā)過

3、程中需要應用工程化原則D 軟件工程只是解決軟件開發(fā)中的技術問題（ 6）在軟件設計中，不屬于過程設計工具的是D 。A PDL（ 過程設計語言）B PAD 圖C N-S 圖D DFD 圖（ 7）下列敘述中正確的是A 。A軟件交付使用后還需要進行維護B軟件一旦交付使用就不需要再進行維護C軟件交付使用后其生命周期就結束D軟件維護是指修復程序中被破壞的指令（ 8）數據庫設計的根本目標是要解決A 。A數據共享問題B數據安全問題C大量數據存儲問題D 簡化數據維護（ 9）設有如下關系表:RSTA T R SB T R SC T R× SD T R/SABCABCABC1123131122232233

4、13則下列操作中正確的是B（ 10 ）數據庫系統(tǒng)的核心是B。A數據模型B數據庫管理系統(tǒng)C數據庫D數據庫管理員（ 11）假定一個Visual Basic 應用程序由一個窗體模塊和一個標準模塊構成。為了保存該應用程序，以下正確的操作是B 。A只保存窗體模塊文件B 分別保存窗體模塊、標準模塊和工程文件C只保存窗體模塊和標準模塊文件D 只保存工程文件（ 12 ）為了清除窗體上的一個控件，下列正確的操作是C 。A按回車鍵B按 Esc鍵C選擇（單擊）要清除的控件，然后按Del 鍵D 選擇（單擊）要清除的控件，然后按回車鍵（ 13 ）以下敘述中錯誤的是C 。A打開一個工程文件時，系統(tǒng)自動裝入與該工程有關的窗

5、體、標準模塊等文件B 當程序運行時，雙擊一個窗體，則觸發(fā)該窗體的DblClick 事件C Visual Basic 應用程序只能以解釋方式執(zhí)行D 事件可以由用戶引發(fā)，也可以由系統(tǒng)引發(fā)（ 14 ）設 a=2, b=3, c=4, d=5, 下列表達式的值是D。Not a<=c Or 4*c=b2 And b<>a+cA -1 B 1C TrueD False( 15) 設 a= 5， b =10， 則執(zhí)行 c =Int(b - a)* Rnd +a) +1 后， c值的范圍為CA 5 10 B 69 C6 10 D 59( 16 )在窗體上畫一個命令按鈕，名稱為Command1

6、 ，然后編寫如下事件過程：Private Sub Command1_Click()a$ = "software and hardware"b$ = Right(a$, 8)c$ = Mid(a$, 1, 8)MsgBox a$, b$, c$, 1End Sub運行程序，單擊命令按鈕，則在彈出的信息框的標題欄中顯示的是A software and hardwareB softwareC hardware D -1Command1 和 Text1 ，把文本8 和 10，則文本框中顯示的內( 17 )在窗體上畫一個命令按鈕和一個文本框，其名稱分別為框的 Text 屬性設置為空白

7、，然后編寫如下事件過程：Private Sub Command1_Click()a = InputBox("Enter an integer")b = InputBox("Enter an integer")Text1.Text = b + aEnd Sub程序運行后，單擊命令按鈕，如果在輸入對話框中分別輸入容是A 。A 108B 18C 810D出錯( 18 )在窗體上畫兩個文本框，其名稱分別為Text1 和Text2，然后編寫如下程序：Private Sub Form_Load()ShowText1.Text = ""Text2.

8、Text = ""Text1.SetFocusEnd SubPrivate Sub Text1_Change()Text2.Text = Mid(Text1.Text, 8)End Sub程序運行后，如果在文本框Text1 中輸入 BeijingChina ，則在文本框Text2 中顯示的內容是B 。A BeijingChina B China C BeijingD BeijingC( 19 )在窗體上畫一個列表框和一個命令按鈕，其名稱分別為List1 和 Command1 ，然后編寫如下事件過程：Private Sub Form_Load()List1.AddItem &

9、quot;Item 1"List1.AddItem "Item 2"List1.AddItem "Item 3"End SubPrivate Sub Command1_Click()List1.List(List1.ListCount) = "AAAA"End Sub程序運行后，單擊命令按鈕，其結果為B 。A把字符串“AAAA ”添加到列表框中，但位置不能確定B 把字符串“AAAA ”添加到列表框的最后(即“Item 3”的后面)C把列表框中原有的最后一項改為“AAAA ”D 把字符串“AAAA ”插入到列表框的最前面(即“

10、Item 1 ”的前面)( 20)假定有如下事件過程：Private Sub Form_Click()Dim x As Integer, n As Integerx = 1n = 0Do While x < 28x = x * 3n = n + 1LoopPrint x, nEnd Sub程序運行后，單擊窗體，輸出結果是A 。A 81 4 B 56 3C 28 1 D 243 5( 21 )有如下程序：Private Sub Form_Click()Dim Check, CounterCheck = TrueCounter = 0DoDo While Counter < 20Cou

11、nter = Counter + 1If Counter = 10 ThenCheck = FalseExit DoEnd IfLoopLoop Until Check = FalsePrint Counter, CheckEnd Sub程序運行后，單擊窗體，輸出結果為D 。FalseA 15 0 B 20 -1 C 10 True D 10( 22)有如下程序：Private Sub Form_Click()Dim i As Integer, sum As Integersum = 0For i = 2 To 10If i Mod 2 <> 0 And i Mod 3 = 0 T

12、hensum = sum + iEnd IfNext iPrint sumEnd Sub程序運行后，單擊窗體，輸出結果為A 12B 30C 24 D 18( 23) 在窗體上畫一個名稱為Text1 的文本框和一個名稱為Command1 的命令按鈕，然后編寫如下事件過程：Private Sub Command1_Click()Dim array1(10, 10) As IntegerDim i As Integer, j As IntegerFor i = 1 To 3For j = 2 To 4array1(i, j) = i + jNext jNext iText1.Text = array

13、1(2, 3) + array1(3, 4)End Sub程序運行后，單擊命令按鈕，在文本框中顯示的值是A。A 12B 13C 14D 15( 24)在窗體上畫一個命令按鈕，其名稱為Command1 ，然后編寫如下事件過程：Private Sub Command1_Click()Dim a1(4, 4), a2(4, 4)For i = 1 To 4For j = 1 To 4a1(i, j) = i + ja2(i, j) = a1(i, j) + i + jNext jNext iPrint a1(3, 3); a2(3, 3)End Sub程序運行后，單擊命令按鈕，在窗體上輸出的是D 。

14、A 6 6B 10 5C 7 21 D 6 12( 25)有如下程序：Option Base 1Private Sub Form_Click()Dim arr, SumSum = 0arr = Array(1, 3, 5, 7, 9, 11, 13, 15, 17, 19)For i = 1 To 10If arr(i) / 3 = arr(i) 3 ThenSum = Sum + arr(i)End IfNext iPrint SumEnd Sub程序運行后，單擊窗體，輸出結果為C 。A 25 B 26 C 27 D 28( 26)在窗體上畫一個命令按鈕，然后編寫如下事件過程：Private

15、 Sub Command1_Click()Dim a(5) As StringFor i = 1 To 5a(i) = Chr(Asc("A") + (i - 1)Next iFor Each b In aPrint b;NextEnd Sub程序運行后，單擊命令按鈕，輸出結果是A 。A ABCDEB 1 2 3 4 5C abcde D出錯信息( 27)以下關于函數過程的敘述中，正確的是D 。A如果不指明函數過程參數的類型，則該參數沒有數據類型B 函數過程的返回值可以有多個C當數組作為函數過程的參數時，既能以傳值方式傳遞，也能以引用方式傳遞D 函數過程形參的類型與函數返回

16、值的類型沒有關系( 28)函數過程F1 的功能是：如果參數b 為奇數，則返回值為1，否則返回值為0。以下能正確實現上述功能的代碼是B 。A Function F1(b As Integer)If b Mod 2 = 0 ThenReturn 0ElseReturn 1End IfEnd FunctionB Function F1(b As Integer)If b Mod 2 = 0 ThenF1 = 0ElseF1 = 1End IfEnd FunctionC Function F1(b As Integer)If b Mod 2 = 0 ThenF1 = 1ElseF1 = 0End If

17、End FunctionD Function F1(b As Integer)If b Mod 2 <> 0 ThenReturn 0ElseReturn 1End IfEnd Function( 29)以下關于KeyPress事件過程中參數KeyAscii 的敘述中正確的是AA KeyAscii 參數是所按鍵的ASCII 碼 B KeyAscii 參數的數據類型為字符串C KeyAscii 參數可以省略D KeyAscii 參數是所按鍵上標注的字符( 30)設窗體上有一個名為Text1 的文本框，并編寫如下程序：Private Sub Form_Load()ShowText1.T

18、ext = ""Text1.SetFocusEnd SubPrivate Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)Print "程序設計"End SubPrivate Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)Print "Visual Basic"End Sub程序運行后，如果在文本框中輸入字母“a”，然后單擊窗體，則在窗體上顯示的內容是C 。A V

19、isual Basic B 程序設計C Visual Basic 程序設計D a 程序設計( 31 )假定有下表所列的菜單結構：名稱層次appear1（主菜單）bigicon2（子菜單）smallicon2（子菜單）要求程序運行后，如果單擊菜單項“大圖標”，則在該菜單項前添加一個“” 。以下正確的事件過程是C 。A Private Sub bigicon_Click（）bigicon.Checked = FalseEnd SubB Private Sub bigicon_Click()Me. appear.bigicon.Checked = True End SubC Private Sub

20、bigicon_Click() bigicon.Checked = TrueEnd SubD Private Sub bigicon_Click() appear.bigicon.Checked = TrueEnd Sub( 32)假定通用對話框的名稱為CommonDialog1 ，命令按鈕的名稱為Command1 ，則單擊命令按鈕后，能使打開的對話框的標題為“New Title ”的事件過程是 C。A Private Sub Command1_Click()CommonDialog1.DialogTitle = "New Title"CommonDialog1.ShowP

21、rinterEnd SubB Private Sub Command1_Click()CommonDialog1.DialogTitle = "New Title"CommonDialog1.ShowFontEnd SubC Private Sub Command1_Click()CommonDialog1.DialogTitle = "New Title"CommonDialog1.ShowOpenEnd SubD Private Sub Command1_Click()CommonDialog1.DialogTitle = "New Tit

22、le"CommonDialog1.ShowColorEnd Sub( 33)如果一個工程含有多個窗體及標準模塊，則以下敘述中錯誤的是D。A任何時刻最多只有一個窗體是活動窗體B 不能把標準模塊設置為啟動模塊C用Hide 方法只是隱藏一個窗體，不能從內存中清除該窗體D 如果工程中含有Sub Main 過程，則程序一定首先執(zhí)行該過程( 34)假定在工程文件中有一個標準模塊，其中定義了如下記錄類型Type BooksName As String * 10TelNum As String * 20End Type要求當執(zhí)行事件過程Command1_Click 時，在順序文件Person.txt

23、 中寫入一條記錄。下列能夠完成該操作的事件過程是A 。A Private Sub Command1_Click()Dim B As BooksOpen "c:Person.txt" For Output As #1B.Name = InputBox（" 輸入姓名"）B.TelNum = InputBox（" 輸入電話號碼"）Write #1, B.Name, B.TelNumClose #1End SubB Private Sub Command1_Click（）Dim B As BooksOpen "c:Person.tx

24、t" For Input As #1B.Name = InputBox（" 輸入姓名"）B.TelNum = InputBox（" 輸入電話號碼"）Print #1, B.Name, B.TelNumClose #1End SubC Private Sub Command1_Click（）Dim B As BooksOpen "c:Person.txt" For Output As #1Name = InputBox（" 輸入姓名"）TelNum = InputBox（" 輸入電話號碼"

25、;）Write #1, BClose #1End SubD Private Sub Command1_Click（）Dim B As BookOpen "c:Person.txt" For Input As #1Name = InputBox（" 輸入姓名"）TelNum = InputBox（" 輸入電話號碼"）Print #1, B.Name, B.TelNumClose #1End Sub（ 35）目錄列表框的Path 屬性的作用是B 。A 顯示當前驅動器或指定驅動器上的某目錄下的文件名B 顯示當前驅動器或指定驅動器上的目錄結構

26、C顯示根目錄下的文件名D 顯示指定路徑下的文件2 分，共 30 分）請將每空的正確答案寫在答題卡【1】【15】序號的橫線上，答在試卷上不得分。（ 1 ）數據管理技術發(fā)展過程經過人工管理、文件系統(tǒng)和數據庫系統(tǒng)三個階段，其中數據獨立性最高的階段是【 1】。（ 2）算法復雜度主要包括時間復雜度和【 2】復雜度。（ 3）在進行模塊測試時，要為每個被測試的模塊另外設計兩類模塊：驅動模塊和承接模塊（樁模塊）。其中【 3】的作用是將測試數據傳送給被測試的模塊，并顯示被測試模塊所產生的結果。（ 4）一棵二叉樹第六層（根結點為第一層）的結點數最多為【 4】個。（ 5）數據結構分為邏輯結構和存儲結構，循環(huán)隊列屬于

27、【 5】結構。（ 6）設有以下函數過程：Function fun（m As Integer） As IntegerDim k As Integer, sum As Integersum = 0For k = m To 1 Step -2 sum = sum + kNext kfun = sumEnd Function若在程序中用語句s = fun（10） 調用此函數，則s的值為【 6】。（ 7）在窗體上畫一個命令按鈕和一個文本框，然后編寫命令按鈕的Click 事件過程。程序運行后，在文本框中輸入一串英文字母（不區(qū)分大小寫），單擊命令按鈕，程序可找出未在文本框中輸入的其他所有英文字母，并以大寫方

28、式降序顯示到Text1 中。例如，若在Text1中 輸 入 的 是 abDfdb ， 則 單 擊 Command1 按 鈕 后 Text1 中 顯 示 的 字 符 串 是 ZYXWVUTSRQPONMLKJIHGEC 。請?zhí)羁铡rivate Sub Command1_Click（ ）Dim str As String, s As String, c As Stringstr = UCase（Text1）s = ""c = "Z"While c >= "A"If InStr（str, c） = 0 Thens =【 7】End

29、Ifc = Chr$（Asc（c） 【 8】）WendIf s <> "" ThenText1 = sEnd IfEnd Sub（ 8）在 n 個運動員中選出任意r 個人參加比賽，有很多種不同的選法，選法的個數可以用公式計算。下圖窗體中3 個文本框的名稱依次是Text1 、 Text2、 Text3。程序運行時在Text1 、 Text2 中分別輸入n 和 r 的值， 單擊 Command1 按鈕即可求出選法的個數，并顯示在Text3 文本框中（見下圖）。請?zhí)羁?。Private Sub Command1_Click( )Dim r As Integer, n A

30、s Integern = Text1r = Text2Text3 = fun(n) / fun( 【 9】) / fun(r)End SubFunction fun(n As Integer) as longDim t As Long【 10】For k = 1 To nt = t * kNextfun = tEnd Function（ 9）以下是一個比賽評分程序。在窗體上建立一個名為Text1 的文本框數組，然后畫一個名為 Text2 的文本框和名為Command1 的命令按鈕。運行時在文本框數組中輸入7 個分數，單擊“計算得分”命令按鈕，則最后得分顯示在 Text2 文本框中（去掉一個最高

31、分和一個最低分后的平均分即為最后得分），如圖所示。請?zhí)羁?。Private Sub Command1_Click( )Dim k As IntegerDim sum As Single, max As Single, min As Singlesum = Text1(0)max = Text1(0)min =【 11】For k =【 12】To 6If max < Text1(k) Thenmax = Text1(k)End IfIf min > Text1(k) Thenmin = Text1(k)End Ifsum = sum + Text1(k)Next kText2 = (

32、【 13】) / 5End Sub10 ）如圖所示，在列表框List1 中已經有若干人的簡單信息，運行時在Text1 文本框（即“”“”Text2 文本框中。若有多個匹配的列表項，則只顯示第1 個匹配項；若未找到，則在Text2 中顯示“查無此人”。請?zhí)羁?。Private Sub Command1_Click()Dim k As Integer, n As Integer, found As Boolean found = Falsen = Len( 【 14】)k = 0While k < List1.ListCount And Not foundIf Text1 = Left$(Li

33、st1.List(k), n) ThenText2 =【 15】found = TrueEnd Ifk = k + 1WendIf Not found ThenText2 = "查無此人"End IfEnd Sub2005 年 9 月全國計算機等級考試二級VB 筆試試卷（含參考答案）1- 5】CACDC 【6-10】DAABB11-15】BCCDC 【 16-20】CABBA21-25】DAADC 【 26-30】ADBAC31-35】CCDAB填空題1】數據庫系統(tǒng)【 2】空間【 3】驅動模塊4】 32 【 5】存儲結構【 6】 307】 s&c 【 8】 -1 【

34、 9】 n-r10】 t=1 【 11】 text1(0) 【 12】 113】 ( sum-max-min )【 14】 text1.text 【 15】 list1.list(k)人與人之間的距離雖然摸不著，看不見，但的的確確是一桿實實在在的秤。真與假，善與惡，美與丑，盡在秤桿上可以看出；人心的大小，胸懷的寬窄，撥一撥秤砣全然知曉。人與人之間的距離，不可太近與人太近了，常?？慈瞬磺?。一個人既有優(yōu)點，也有缺點，所謂人無完人，金無赤足是也。初識時，走得太近就會模糊了不足，寵之；時間久了，原本的美麗之處也成了瑕疵，嫌之。與人太近了，便隨手可得，有時得物，據為己有，太過貪財；有時得人，為己所用，也許貪色。貪財也好，貪色亦罷，都是一種貪心。與人太近了，最可悲的就是會把自己丟在別人身上，找不到自己的影子，忘了回家的路。這世上，根本沒有零距離的人際關系，因為人總是有一份自私的，人與人之間太近的距離，易滋生事端，恩怨相隨。所以，人與人相處的太近了，便漸漸相遠。人與人之間的距離也不可太遠。太遠了，就像放飛的風箏，過高斷線。太遠了，就像南徙的大雁，失群哀鳴。太遠了，就像失聯(lián)的旅人，形單影只。人與人之間的距離，有時，先遠后近；有時，先近后遠。這每次的變化之中，總是有一個難以忘記的