1、WORD格式2005年9月全國計算機(jī)等級考試二級筆試試卷公共基礎(chǔ)知識和Visual Basic 語言程序設(shè)計專業(yè)資料整理(考試時間90 分鐘，滿分100 分)一、選擇題 (每小題 2 分,共 70 分 )下列各題A) 、 B) 、C)、 D) 四個選項(xiàng)中，只有一個選項(xiàng)是正確的。請將正確選項(xiàng)填涂在答題卡相應(yīng)位置上，答在試卷上不得分。（1）下列敘述中正確的是A 程序設(shè)計就是編制程序C程序經(jīng)調(diào)試改錯后還應(yīng)進(jìn)行再測試C。B程序的測試必須由程序員自己去完成D程序經(jīng)調(diào)試改錯后不必進(jìn)行再測試（2）下列數(shù)據(jù)結(jié)構(gòu)中，能用二分法進(jìn)行查找的是 A 順序存儲的有序線性表 B 線性鏈表AC二叉鏈表。D有序線性鏈表（3）

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

3、過程中需要應(yīng)用工程化原則D軟件工程只是解決軟件開發(fā)中的技術(shù)問題（6）在軟件設(shè)計中，不屬于過程設(shè)計工具的是D。A PDL( 過程設(shè)計語言 )B PAD 圖C N-S 圖 D DFD 圖（7）下列敘述中正確的是A。A 軟件交付使用后還需要進(jìn)行維護(hù)B軟件一旦交付使用就不需要再進(jìn)行維護(hù)C軟件交付使用后其生命周期就結(jié)束D軟件維護(hù)是指修復(fù)程序中被破壞的指令（8）數(shù)據(jù)庫設(shè)計的根本目標(biāo)是要解決A。A 數(shù)據(jù)共享問題B數(shù)據(jù)安全問題C大量數(shù)據(jù)存儲問題 D 簡化數(shù)據(jù)維護(hù)（9）設(shè)有如下關(guān)系表 :RSTABCABCABC112313112223223313則下列操作中正確的是B。ATRSBTRSC TR×SDT

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

5、時，雙擊一個窗體，則觸發(fā)該窗體的DblClick 事件C Visual Basic 應(yīng)用程序只能以解釋方式執(zhí)行D事件可以由用戶引發(fā)，也可以由系統(tǒng)引發(fā)（14）設(shè) a=2, b=3, c=4, d=5,下列表達(dá)式的值是D。Not a<=c Or 4*c=b2 And b<>a+cA -1B 1C TrueD False（15）設(shè) a = 5，b = 10 ，則執(zhí)行c = Int(b - a) * Rnd + a) + 1后，c 值的范圍為C。A 510B 69C 6 10D 5 9（16）在窗體上畫一個命令按鈕，名稱為Command1 ，然后編寫如下事件過程：Private Su

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

7、= InputBox("Enter an integer")b = InputBox("Enter an integer")Text1.Text = b + aEnd Sub程序運(yùn)行后，單擊命令按鈕，如果在輸入對話框中分別輸入容是A。8 和10，則文本框中顯示的內(nèi)A108B 18C810D出錯（18）在窗體上畫兩個文本框，其名稱分別為Text1 和Text2，然后編寫如下程序：Private Sub Form_Load()ShowText1.Text = ""Text2.Text = ""Text1.SetFocu

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

9、m 2"List1.AddItem "Item 3"End SubPrivate Sub Command1_Click()List1.List(List1.ListCount) = "AAAA"End Sub程序運(yùn)行后，單擊命令按鈕，其結(jié)果為B。A 把字符串“ AAAA ”添加到列表框中，但位置不能確定B把字符串“AAAA ”添加到列表框的最后（即“Item 3”的后面）C把列表框中原有的最后一項(xiàng)改為“AAAA ”D把字符串“ AAAA ”插入到列表框的最前面（即“Item 1”的前面）（20）假定有如下事件過程：Private Sub For

10、m_Click()Dim x As Integer, n As Integerx = 1n = 0Do While x < 28x = x * 3n = n + 1LoopPrint x, nEnd Sub程序運(yùn)行后，單擊窗體，輸出結(jié)果是A。A814B563C 281D2435（21）有如下程序：Private Sub Form_Click()Dim Check, CounterCheck = TrueCounter = 0DoDo While Counter < 20Counter = Counter + 1If Counter = 10 ThenCheck = FalseExi

11、t DoEnd IfLoopLoop Until Check = FalsePrint Counter, CheckEnd Sub程序運(yùn)行后，單擊窗體，輸出結(jié)果為D。A 150B 20-1C 10TrueD 10False（22）有如下程序：Private Sub Form_Click()Dim i As Integer, sumAs Integersum = 0For i = 2 To 10If i Mod 2 <> 0 And i Mod 3 = 0 Thensum = sum + iEnd IfNext iPrint sumEnd Sub4程序運(yùn)行后，單擊窗體，輸出結(jié)果為A。

12、A12B 30C24D 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 = array1(2, 3) + array1(3, 4)End Sub程序運(yùn)行后，單擊命令按鈕，在文本框中顯示的值是A。A12B 13C14D

13、15（24）在窗體上畫一個命令按鈕，其名稱為Command1 ，然后編寫如下事件過程：Private Sub Command1_Click()Dim a1(4, 4), a2(4, 4)For i = 1 To4For j = 1 To4a1(i, j) = i + ja2(i, j) = a1(i, j) + i + jNext jNext iPrint a1(3, 3); a2(3, 3)End Sub程序運(yùn)行后，單擊命令按鈕，在窗體上輸出的是D。A 66B 105C 721D 612（25）有如下程序：Option Base 1Private Sub Form_Click()Dim ar

14、r, 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程序運(yùn)行后，單擊窗體，輸出結(jié)果為C。A 25B 26C27D 28（26）在窗體上畫一個命令按鈕，然后編寫如下事件過程：Private Sub Command1_Click()Dim a(5) As StringFor i = 1 To 5a(i) = Chr(Asc("A") +

15、 (i - 1)Next iFor Each b In aPrint b;NextEnd Sub程序運(yùn)行后，單擊命令按鈕，輸出結(jié)果是A。A ABCDEB 1 2 3 4 5C abcdeD出錯信息（27）以下關(guān)于函數(shù)過程的敘述中，正確的是D。A 如果不指明函數(shù)過程參數(shù)的類型，則該參數(shù)沒有數(shù)據(jù)類型B函數(shù)過程的返回值可以有多個C當(dāng)數(shù)組作為函數(shù)過程的參數(shù)時，既能以傳值方式傳遞，也能以引用方式傳遞D函數(shù)過程形參的類型與函數(shù)返回值的類型沒有關(guān)系（28）函數(shù)過程F1 的功能是：如果參數(shù)b 為奇數(shù)，則返回值為1，否則返回值為0。以下能正確實(shí)現(xiàn)上述功能的代碼是B。A Function F1(b As Inte

16、ger)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=06End IfEnd FunctionD Function F1(b As Integer)If b Mod 2 <> 0 ThenReturn 0ElseReturn 1End IfEnd Fun

17、ction（29）以下關(guān)于KeyPress 事件過程中參數(shù)KeyAscii的敘述中正確的是A。A KeyAscii C KeyAscii參數(shù)是所按鍵的參數(shù)可以省略ASCII碼B KeyAscii D KeyAscii參數(shù)的數(shù)據(jù)類型為字符串參數(shù)是所按鍵上標(biāo)注的字符（30）設(shè)窗體上有一個名為Text1 的文本框，并編寫如下程序：Private Sub Form_Load()ShowText1.Text = ""Text1.SetFocusEnd SubPrivate Sub Form_MouseUp(Button As Integer, Shift As Integer, X

18、As Single, Y As Single)Print " 程序設(shè)計 "End SubPrivate Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)Print "Visual Basic"End Sub程序運(yùn)行后，如果在文本框中輸入字母“a”，然后單擊窗體，則在窗體上顯示的內(nèi)容是C 。A Visual BasicB 程序設(shè)計CVisual Basic 程序設(shè)計D a 程序設(shè)計（ 31）假定有下表所列的菜單結(jié)構(gòu)：名稱層次appear1（主菜單）bigicon2（子菜單）smallicon2（

19、子菜單）要求程序運(yùn)行后，如果單擊菜單項(xiàng)“大圖標(biāo)”，則在該菜單項(xiàng)前添加一個“”。以下正確的事件過程是C。A Private Sub bigicon_Click()bigicon.Checked = FalseEnd SubB Private Sub bigicon_Click()Me. appear.bigicon.Checked = TrueEnd SubC Private Sub bigicon_Click()bigicon.Checked = TrueEnd SubD Private Sub bigicon_Click()appear.bigicon.Checked = TrueEnd S

20、ub（32）假定通用對話框的名稱為CommonDialog1 ，命令按鈕的名稱為Command1，則單擊命令按鈕后，能使打開的對話框的標(biāo)題為“New Title ”的事件過程是C。A Private Sub Command1_Click()CommonDialog1.DialogTitle = "New Title"CommonDialog1.ShowPrinterEnd SubB Private Sub Command1_Click()CommonDialog1.DialogTitle = "New Title"CommonDialog1.ShowFo

21、ntEnd SubC Private Sub Command1_Click()CommonDialog1.DialogTitle = "New Title"CommonDialog1.ShowOpenEnd SubD Private Sub Command1_Click()CommonDialog1.DialogTitle = "New Title"CommonDialog1.ShowColorEnd Sub（33）如果一個工程含有多個窗體及標(biāo)準(zhǔn)模塊，則以下敘述中錯誤的是D。A 任何時刻最多只有一個窗體是活動窗體B不能把標(biāo)準(zhǔn)模塊設(shè)置為啟動模塊C用 Hid

22、e 方法只是隱藏一個窗體，不能從內(nèi)存中清除該窗體D如果工程中含有Sub Main 過程，則程序一定首先執(zhí)行該過程（34）假定在工程文件中有一個標(biāo)準(zhǔn)模塊，其中定義了如下記錄類型Type BooksName As String * 10TelNum As String * 20End Type要求當(dāng)執(zhí)行事件過程Command1_Click 時，在順序文件Person.txt 中寫入一條記錄。下列能夠完成該操作的事件過程是A。A Private Sub Command1_Click()Dim B As BooksOpen "c:Person.txt" For Output As

23、#18B.Name = InputBox(" 輸入姓名 ")B.TelNum = InputBox(" 輸入電話號碼")Write #1, B.Name, B.TelNumClose #1End SubB Private Sub Command1_Click()Dim B As BooksOpen "c:Person.txt" For Input As #1B.Name = InputBox(" 輸入姓名 ")B.TelNum = InputBox(" 輸入電話號碼")Print #1, B.N

24、ame, B.TelNumClose #1End SubC Private Sub Command1_Click()Dim B As BooksOpen "c:Person.txt" For Output As #1Name = InputBox(" 輸入姓名 ")TelNum = InputBox(" 輸入電話號碼")Write #1, BClose #1End SubD Private Sub Command1_Click()Dim B As BookOpen "c:Person.txt" For Input

25、As #1Name = InputBox(" 輸入姓名 ")TelNum = InputBox(" 輸入電話號碼")Print #1, B.Name, B.TelNumClose #1End Sub（35）目錄列表框的Path 屬性的作用是B。A 顯示當(dāng)前驅(qū)動器或指定驅(qū)動器上的某目錄下的文件名B 顯示當(dāng)前驅(qū)動器或指定驅(qū)動器上的目錄結(jié)構(gòu)C顯示根目錄下的文件名D 顯示指定路徑下的文件2 分，共 30 分）請將每空的正確答案寫在答題卡【1】【 15】序號的橫線上，答在試卷上不得分。（1）數(shù)據(jù)管理技術(shù)發(fā)展過程經(jīng)過人工管理、文件系統(tǒng)和數(shù)據(jù)庫系統(tǒng)三個階段，其中數(shù)據(jù)獨(dú)

26、立性最高的階段是【1】。（2）算法復(fù)雜度主要包括時間復(fù)雜度和【 2】復(fù)雜度。（3）在進(jìn)行模塊測試時，要為每個被測試的模塊另外設(shè)計兩類模塊：驅(qū)動模塊和承接模塊（樁模塊）。其中 【 3】 的作用是將測試數(shù)據(jù)傳送給被測試的模塊，并顯示被測試模塊所產(chǎn)生的結(jié)果。（4）一棵二叉樹第六層（根結(jié)點(diǎn)為第一層）的結(jié)點(diǎn)數(shù)最多為【 4】個。（5）數(shù)據(jù)結(jié)構(gòu)分為邏輯結(jié)構(gòu)和存儲結(jié)構(gòu)，循環(huán)隊(duì)列屬于【 5】結(jié)構(gòu)。（6）設(shè)有以下函數(shù)過程：Function fun(m As Integer) As IntegerDim k As Integer, sum As Integersum = 0For k = m To 1 Step-2

27、sum = sum + kNext kfun = sumEnd Function若在程序中用語句s = fun(10)調(diào)用此函數(shù)，則s 的值為【 6】。（7）在窗體上畫一個命令按鈕和一個文本框，然后編寫命令按鈕的Click事件過程。程序運(yùn)行后，在文本框中輸入一串英文字母（不區(qū)分大小寫），單擊命令按鈕，程序可找出未在文本框中輸入的其他所有英文字母，并以大寫方式降序顯示到Text1 中。例如，若在Text1中 輸 入 的 是abDfdb ， 則 單 擊Command1按 鈕 后Text1中 顯 示 的 字 符 串 是ZYXWVUTSRQPONMLKJIHGEC。請?zhí)羁铡rivate Sub Co

28、mmand1_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 Ifc = Chr$(Asc(c)【 8】)WendIf s <> "" ThenText1 = sEnd IfEnd Sub（8） 在 n 個運(yùn)動員中選出任意r 個人參加比賽，有很多種不同的選法，選法的個數(shù)可以用公式計算。

29、下圖窗體中3 個文本框的名稱依次是Text1、 Text2、Text3。程10序運(yùn)行時在 Text1、Text2 中分別輸入 n 和 r 的值，單擊 Command1 按鈕即可求出選法的個數(shù)，并顯示在 Text3 文本框中 (見下圖 )。請?zhí)羁?。Private Sub Command1_Click( )Dim r As Integer, n As Integern = Text1r = Text2Text3 = fun(n) / fun(【 9】End Sub) / fun(r)【 10】For k = 1 To nt = t * kNextfun = tEnd Function（9）以下是一

30、個比賽評分程序。在窗體上建立一個名為 Text1 的文本框數(shù)組，然后畫一個名為 Text2 的文本框和名為 Command1 的命令按鈕。運(yùn)行時在文本框數(shù)組中輸入 7 個分?jǐn)?shù)，單擊“計算得分”命令按鈕，則最后得分顯示在 Text2 文本框中（去掉一個最高分和一個最低分后的平均分即為最后得分） ，如圖所示。請?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】T

31、o 6If max < Text1(k) Thenmax = Text1(k)End IfIf min > Text1(k) Thenmin = Text1(k)End Ifsum = sum + Text1(k)Next kText2 = (【 13】) / 5End Sub（10）如圖所示，在列表框List1 中已經(jīng)有若干人的簡單信息，運(yùn)行時在Text1 文本框（即“查找對象”右邊的文本框）輸入一個姓或姓名，單擊“查找”按鈕，則在列表框中進(jìn)行查找，若找到，則把該人的信息顯示在Text2 文本框中。若有多個匹配的列表項(xiàng)，則只顯示第1 個匹配項(xiàng)；若未找到，則在Text2 中顯示“查

32、無此人” 。請?zhí)羁?。Private Sub Command1_Click()Dim k As Integer, n As Integer, found As Booleanfound = Falsen = Len(【 14】)k = 0While k < List1.ListCount And Not foundIf Text1 = Left$(List1.List(k), n) ThenText2 =【15】found = TrueEnd Ifk = k + 1WendIfNot found ThenText2 = " 查無此人 "End IfEnd Sub1220

33、05 年 9 月全國計算機(jī)等級考試二級VB 筆試試卷（含參考答案）1- 5】 CACDC【 6-10】 DAABB11-15】 BCCDC【 16-20】 CABBA21-25】 DAADC【 26-30 】 ADBAC31-35】 CCDAB填空題1】數(shù)據(jù)庫系統(tǒng)【 2】空間【 3】驅(qū)動模塊4】 32 【 5】存儲結(jié)構(gòu)【 6】 307】 s&c 【 8】 -1 【 9】 n-r10】 t=1 【 11】 text1(0) 【 12】 113】（ sum-max-min ） 【 14】 text1.text 【 15】 list1.list(k)人與人之間的距離雖然摸不著，看不見，但的的

34、確確是一桿實(shí)實(shí)在在的秤。真與假，善與惡，美與丑，盡在秤桿上可以看出；人心的大小，胸懷的寬窄，撥一撥秤砣全然知曉。人與人之間的距離，不可太近。與人太近了，常?？慈瞬磺?。一個人既有優(yōu)點(diǎn)，也有缺點(diǎn)，所謂人無完人，金無赤足是也。初識時，走得太近就會模糊了不足，寵之；時間久了，原本的美麗之處也成了瑕疵，嫌之。與人太近了，便隨手可得，有時得物，據(jù)為己有，太過貪財；有時得人，為己所用，也許貪色。貪財也好，貪色亦罷，都是一種貪心。與人太近了，最可悲的就是會把自己丟在別人身上，找不到自己的影子，忘了回家的路。這世上，根本沒有零距離的人際關(guān)系，因?yàn)槿丝偸怯幸环葑运降模伺c人之間太近的距離，易滋生事端，恩怨相隨。所以，人與人相處的太近了，便漸漸相遠(yuǎn)。人與人之間的距離也不可太遠(yuǎn)。太遠(yuǎn)了，就像放飛的風(fēng)箏，過高斷線。太遠(yuǎn)了，就像南徙的大雁，失群哀鳴。太遠(yuǎn)了，就像失聯(lián)的旅人，形單影只。14人與人之間的距離，有時，先遠(yuǎn)后近；有時，先近后遠(yuǎn)。這每次的變化之中，總是有一個難以忘記的故事或者一段難以割舍的情。