2005-2010歷年全國計算機等級考試二級-筆試真題及答案

1、2005 年 4 月等級二級 VB(時間 90 分鐘，滿分 100 分）一、選擇題(1)(35)每小題 2 分，共 70 分)下列各題 A)、B)、C)、D)四個選項中，只有一個選項是正確的，請將正確選項涂寫在答題卡相應(yīng)位置上，答在試卷上不得分。(1)數(shù)據(jù)的結(jié)構(gòu)是指A)在外存中的數(shù)據(jù)B) 數(shù)據(jù)所占的空間量C) 數(shù)據(jù)在計算機中的順序方式D) 數(shù)據(jù)的邏輯結(jié)構(gòu)在計算機中的表示(2)下列關(guān)于棧的描述中錯誤的是A)棧是先進后出的線性表B) 棧只能順序D) 對棧的C) 棧具有棧底指針作用與刪除操作中，不需要改變(3)對于長度為 n 的線性表，在情況下，下列各排序法所對應(yīng)的比較次數(shù)中正確的是A) 冒泡排序為

2、 n/2C) 快速排序為 nB) 冒泡排序為 nD) 快速排序為 n(n-1)/2(4)對于長度為 n 的線性表進行順序查找，在情況下所需要的比較次數(shù)為A) log2nB) n/2C) nD) n+1(5)下列對于線性鏈表的描述中正確的是A)B)C)D)空間不一定是連續(xù)，且各元素的順序是任意的空間不一定是連續(xù)，且前件元素一定在后件元素的前面空間必須連續(xù)，且前件元素一定空間必須連續(xù)，且各元素的在后件元素的前面順序是任意的(6)下列對于測試的描述中正確的是A)B)C)D)測試的目的是證明程序是否正確 測試的目的是使程序運行結(jié)果正確測試的目的是盡可能多地發(fā)現(xiàn)程序中的錯誤測試的目的是使程序符合結(jié)構(gòu)化原

3、則(7)為了使模塊盡可能獨立，要求A)模塊的內(nèi)聚程度要盡量高，且各模塊間的耦合程度要盡量強 B)模塊的內(nèi)聚程度要盡量高，且各模塊間的耦合程度要盡量弱模塊的內(nèi)聚程度要盡量低，且各模塊間的耦合程度要盡量弱模塊的內(nèi)聚程度要盡量低，且各模塊間的耦合程度要盡量強(8)下列描述中正確的是A)B)C)D)程序就是開發(fā)不受計算機系統(tǒng)的限制 既是邏輯實體，又是物理實體是程序、數(shù)據(jù)與相關(guān)文檔的集合(9)數(shù)據(jù)獨立性是數(shù)據(jù)庫技術(shù)的重要特點之一。所謂數(shù)據(jù)獨立性是指A)B)C)D)數(shù)據(jù)與程序獨立存放不同的數(shù)據(jù)被存放在不同的文件中不同的數(shù)據(jù)只能被對應(yīng)的應(yīng)用程序所使用以上三種說法都不對(10) 用樹形結(jié)構(gòu)表示實體之間聯(lián)系的模

4、型是A) 關(guān)系模型B) 網(wǎng)狀模型C) 層次模型D) 以上三個都是11、在窗體（名稱為 Form1）上畫一個名稱為 Text1 的文本框和一個名稱為d1令按鈕，然后編寫一個事件過程。程序運行以后，如果在文本框中輸入一個字符，則把命令按鈕的標(biāo)題設(shè)置為“計算機等級A)Private Sub Text1_Change()d1.Caption=”計算機等級End Sub”。以下能實現(xiàn)上述操作的事件過程是：”B)Private Subd1_Click()Caption=”計算機等級”End SubPrivate Sub Form1_Click()Text1.Caption=”計算機等級End SubC)”

5、D)Private Subd1_Click()Text1.Text=”計算機等級End Sub”(12)設(shè) a=5,b=4,c=3,d=2，下列表達式的值是 32*b Or a=c And bc Or cdA) 1B)TrueC) FalseD) 2(13)設(shè) a=”VisualBasic”, 則以下使變量b 的值為”VisualBasic”的語句是A)b=Left(a,10)B)b=Mid(a,10)C)b=Right(a,10)D)b=Mid(a,11,10)(14)假定有如下的窗體事件過程：Private Sub Form_Click()a$ = b$ = Right(a$, c = M

6、id(a$, 1, MsgBox a$, 34,End SubVisual Basic 5)9)b$, c$, 5程序運行后單擊窗體，則在彈出的信息框中的標(biāo)題欄中顯示的信息是：A)VisualB)C)BasicD)5(15)設(shè) a=”a”,b=”b”,c=”c”,d=”d”,執(zhí)行語句 x=Iif(ad),”A”,”B”)后，x的值為：A)”a”B)”b”C)”B”D)”A”(16)為了使命令按鈕(名稱為d1)右移 200，應(yīng)使用的語句是d1.Move 200A)C)d1.Move -200d1.Left=B)d1.Left+200D)d1.Left=d1.Left-200(17)在窗體上畫一個

7、文本框，然后編寫如下事件過程：Private Sub Form_Click()x = PrEndInputBox(請輸入一個整數(shù)) x + Text1.TextSub程序運行時，在文本框中輸入 456，然后單擊窗體，在輸入定”按鈕后，在窗體上顯示的內(nèi)容是：框中輸入 123，單擊“確A)123B)456C)579D)123456（18）在窗體上畫一個文本框和一個計時器控件，名稱分別為 Text1 和 Timer1,在屬性窗口中把計時器的erval 屬性設(shè)置為 1000，Enabled 屬性設(shè)置為 False,程序運行后，如果單擊命令按鈕，則每隔一秒鐘在文本框中顯示一次當(dāng)前的時間。以下是實現(xiàn)上述操

8、作的程序：Private Sub Timer1.End Subd1_Click()Private Sub Timer1_Timer() Text1.Text = TimeEnd Sub在處應(yīng)填入的內(nèi)容是A)Enabled=TrueB)Enabled=FalseC)Visible=TrueD)Visible=False(19)假定在框 Picture1 中裝入了一個圖形，為了清除該圖形（不刪除框），應(yīng)采用的正確方法是：A)選擇框，然后按 Del 鍵B)執(zhí)行語句 Picture1.Picture=Loicture(“”)C)執(zhí)行語句 Picture1.Picture=”性，然后按回車鍵D)選擇框，

9、在屬性窗口中選擇 Picture 屬（20）在窗體上畫一個 List1 的列表框，一個名稱為 Label1 的，列表框中顯示若干個項目，當(dāng)單擊列表框中的某個項目時，在實現(xiàn)上述操作的程序是中顯示被選中的項目的名稱，下列能正確A)B)C)D)Private Private PrivatePrivateSub Sub SubSubList1_Click() List1_Click() List1_Click()List1_Click()Label1.Caption = List1.ListIndexEnd Sub Label1.Name = List1.ListIndexEnd SubLabel1.

10、Name = List1.TextEnd SubLabel1.Caption = List1.TextEnd Sub（21）在窗體上畫一個命令按鈕，名稱為d1，然后編寫如下事件過程：Private Subd1_Click()Dim i Aseger, x As For i = 1 To 6If i = 1 Then x = i If i 0 And a 10 And a 20 And a c Then d = d + x(i)c = x(i)Elsed = d - c End If Next iPrdEnd Sub程序運行后,如果單擊命令按鈕,則在窗體上輸入的內(nèi)容為A)10 B)16 C)12

11、D)20(32)設(shè)有如下程序:Private Subd1_Click()Dim c Asc = 4eger, d Asegerd = InputBox(請輸入一個整數(shù)) Do While d 0If d c Then c = c + 1 End Ifd = InputBox(請輸入一個整數(shù))LoopPrc + dEnd Sub程序運行后,單擊命令按鈕如果在輸入0,則輸出結(jié)果是: A)12B)11 C)10D)9框中依次輸入 1、2、3、4、5、6、7、8、9、(33)在窗體上畫一個名稱為框中輸入以下字符串:Visual Basic Programming然后編寫如下事件過程:d1令按鈕和一個名

12、稱為Text1 的文本框,在文本Private Subd1_Click()Open d:tempoutf.txt For Output As #1 For i = 1 To Len(Text1.Text)c = Mid(Text1.Text, i, 1)If c = A And c = Z ThenPr#1, LCase(c)End If Next i Close End Sub程序運行后,單擊命令按狃,文件 outf.txt 中的內(nèi)容是:MVBPmvbp C)MV B PD)mvb p(34)在窗體上畫一個名稱為Dim SW AsFunction func(X Aseger) As If X

13、 20 ThenY = XElseY = 20 + XEnd If func = YEnd Functiond1令按鈕,然后編寫如下程序:egerPrivate Subd1_Click()egerDimNum AsNum = InputBox()If SW ThenPrfunc(Num)End If End SubPrivate Sub Form_MouseDown(Button As Single)SW = False End SubPrivate Sub Form_MouseUp(Button As SW = TrueEnd Subeger, Shift Aseger, X As Sing

14、le, Y Aseger, Shift Aseger, X As Single, Y As Single)程序運行后,單擊命令按鈕,將顯示一個輸入行結(jié)果是:輸出 0輸出 25輸出 45無任何輸出(35) 設(shè)有如下通用過程:框,如果在框中輸入 25,則程序的執(zhí)Public Sub fun(a() As For i = 1 To 5x = x + a(i) NextEnd Subeger, x Aseger)在窗體上畫一個名稱為 Text1 的文本框和一個名稱為如下事件過程:d1令按鈕,然后編寫Private SubDim arr(5) Asd1_Click()eger, n AsegerFor

15、i = 1 To 5 arr(i) = i + i Nextfun arr, n Text1.Text = Str(n)End Sub程序運行后,單擊命令按鈕,則在文本框中顯示的內(nèi)容是A)30 B)25 C)20 D)15二、填空題(每空 2 分，共 30 分)請將每一個空的正確寫在答題卡【1】【15】序號的橫線上，答在試卷上不得分。注意：以命令關(guān)鍵字填空的必須拼寫完整。(1)(2)某二*樹中度為 2 的結(jié)點有 18 個，則該二*樹中有 【1】 個葉子結(jié)點。在面象方法中，類的實例稱為 【2】 。(3)和改正程序中錯誤的工作通常稱為 【3】 。(4)在關(guān)系數(shù)據(jù)庫中，把數(shù)據(jù)表示成二維表，每一個二維

16、表稱為 【4】 。(5)問題處理方案的正確而完整的描述稱為 【5】 。(6)以下語句的輸出結(jié)果是: 【6】Pr(12345.6789*100+0.5)/100(7)在窗體上畫一個文本框和一個 Private Sub Form_Click() Text1.Text = VB 程序設(shè)計End SubPrivate Sub Text1_Change()框,然后編寫如下兩個事件過程:Picture1.PrEnd SubVBProgramming程序運行后,單擊窗體,在文本框中顯示的內(nèi)容是【7】,而在(8)閱讀下面的程序 Private Sub Form_Click()框中顯示的內(nèi)容是【8】Dim Ch

17、eck As Check = True Counter = 5 DoDo While Counter 0PrsEnd Sub以上程序的功能是【10】,程序運行后,單擊窗體,輸出結(jié)果為【11】(10)設(shè)有如下程序: Option Base 1Private SubDim arr1 Dim Min Asd1_Click()eger, i Asegerarr1 = Array(12, 435, 76, -24, 78, 54, 866, 43)Min = 【12】For i = 2 To 8If arr1(i) MNext ihen 【13】Pr最小值是:; MinEnd Sub以上程序的功能是用

18、Array 函數(shù)建立一個含有 8 個元素的數(shù)組,然后查找并輸出該數(shù)組中的最小值,請?zhí)羁?11)在名稱為 Form1 的窗體上畫一個文本框,其名稱為 Text1,在屬性窗口中把文本框的 MultiLine 屬性設(shè)置為 True,然后編寫如下事件過程:Private Sub Form_Click()Open d:testsmtext1.txt For Input As #1 Do While Not 【14】Line Input #1, aspect$whole$ = whole$ + aspect$ + Chr(13) + Chr(10) LoopText1.Text = whole$Close

19、 #1Open d:testsmtext2.txt For Output As #1Pr#1, 【15】Close #1 End Sub上述程序的功能是,把磁盤文件 smtext1.txt 的內(nèi)容讀到內(nèi)存并在文本框中顯示出來,然后把該文本框中的內(nèi)容存入磁盤文件 smtext2.txt .請?zhí)羁找韵逻x擇題：1-5DBDCA參考6-1011-1516-2021-2526-3031-35CBDDC ABBCD CDABD ABCDB CDBBACDDDA填空題：【1】19【2】【3】【4】【5】對象程序調(diào)試關(guān)系算法【6】12345.68【7】VB 程序設(shè)計【8】 VB Programming【9】

20、10【10】 求 1-8 的和【11】36【12】 arr1(1)【13】min=arr1(i)【14】 EOF(1)【15】text1.text(或 whole$)2005 年 9 月二級 VB 試題+一、 選擇題（每小題 2 分，共 70 分）下列各題A）、B)、C)、D)四個選項中，只有一個選項是正確的。請將正確選項填涂在答題卡相應(yīng)位置上，答在試卷上不得分。（1）下列敘述中正確的是A程序設(shè)計就是編制程序B程序的測試必須由程序員自己去完成C程序經(jīng)調(diào)試改錯后還應(yīng)進行再測試D程序經(jīng)調(diào)試改錯后不必進行再測試（2）下列數(shù)據(jù)結(jié)構(gòu)中，能用二分法進行查找的是A順序的有序線性表B線性鏈表C二叉鏈表D有序線

21、性鏈表（3）下列關(guān)于棧的描述正確的是A在棧中只能元素而不能刪除元素B在棧中只能刪除元素而不能元素C棧是特殊的線性表，只能在一端或刪除元素D棧是特殊的線性表，只能在一端元素，而在另一端刪除元素（4）下列敘述中正確的是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）下列描述中正確的是A工程只是解決項目的管理問題B工程主要解決產(chǎn)品的生產(chǎn)率問題C工程的主要是強調(diào)在開發(fā)過程中需要應(yīng)用工程化原則D工程只是解決開發(fā)中的技術(shù)問題（6）在設(shè)計中，不屬

22、于過程設(shè)計工具的是APDL(過程設(shè)計語言)BPAD 圖CN-S 圖DDFD 圖（7）下列敘述中正確的是A交付使用后還需要進行B一旦交付使用就不需要再進行C交付使用后其生命周期就結(jié)束D是指修復(fù)程序中被破壞的指令（8）數(shù)據(jù)庫設(shè)計的根本目標(biāo)是要解決A數(shù)據(jù)共享問題B數(shù)據(jù)安全問題C大量數(shù)據(jù)問題D簡化數(shù)據(jù)（9）設(shè)有如下關(guān)系表:R S TA B C A B C A B C1 1 2 33 1 3則下列操作中正確的是ATRSBTRSCTRSDTR/S（10）數(shù)據(jù)庫系統(tǒng)的是A數(shù)據(jù)模型B數(shù)據(jù)庫管理系統(tǒng)C數(shù)據(jù)庫D數(shù)據(jù)庫管理員（11）假定一個 Visual Basic 應(yīng)用程序由一個窗體模塊和一個標(biāo)準(zhǔn)模塊。為了保存該

23、應(yīng)用程序，以下正確的操作是A只保存窗體模塊文件B分別保存窗體模塊、標(biāo)準(zhǔn)模塊和工程文件C只保存窗體模塊和標(biāo)準(zhǔn)模塊文件D只保存工程文件（12）為了清除窗體上的一個控件，下列正確的操作是A按回車鍵B按 Esc 鍵C選擇（單擊）要清除的控件，然后按 Del 鍵D選擇（單擊）要清除的控件，然后按回車鍵（13）以下敘述中錯誤的是A打開一個工程文件時，系統(tǒng)自動裝入與該工程有關(guān)的窗體、標(biāo)準(zhǔn)模塊等文件B當(dāng)程序運行時，雙擊一個窗體，則觸發(fā)該窗體的 DblClick 事件CVisual Basic 應(yīng)用程序只能以解釋方式執(zhí)行D事件可以由用戶，也可以由系統(tǒng)（14）設(shè)a=2, b=3, c=4, d=5, 下列表達式的

24、值是Not a=c Or 4*c=b2 And ba+cA-1B1CTrueDFalse（15）設(shè)a = 5，b = 10，則執(zhí)行c =(b - a) * Rnd + a) + 1后，c 值的范圍為A510B69C610D59（16）在窗體上畫一個命令按鈕，名稱為d1，然后編寫如下事件過程：Private Subd1_Click()a$ = software and hardwareb$ = Right(a$, 8)c$ = Mid(a$, 1, 8)MsgBox a$, , b$, c$, 1End Sub運行程序，單擊命令按鈕，則在彈出的信息框的標(biāo)題欄中顯示的是Asoftware and

25、hardwareBsoftwareChardwareD1（17）在窗體上畫一個命令按鈕和一個文本框，其名稱分別為d1 和Text1，把文本框的 Text 屬性設(shè)置為空白，然后編寫如下事件過程：Private Subd1_Click()a = InputBox(Enter aneger)b = InputBox(Enter aneger)Text1.Text = b + aEnd Sub程序運行后，單擊命令按鈕，如果在輸入框中分別輸入 8 和 10，則文本框中顯示的內(nèi)容是A108B18C810D出錯（18）在窗體上畫兩個文本框，其名稱分別為 Text1 和 Text2，然后編寫如下程序：Priv

26、ate Sub Form_Load()ShowText1.Text = Text2.Text = Text1.SetFocusEnd SubPrivate Sub Text1_Change()Text2.Text = Mid(Text1.Text, 8)End Sub程序運行后，如果在文本框 Text1 中輸入 BeijingChina，則在文本框 Text2 中顯示的內(nèi)容是ABeijingChinaBChinaCBeijingDBeijingC（19）在窗體上畫一個列表框和一個命令按鈕，其名稱分別為 List1 和d1，然后編寫如下事件過程：Private Sub Form_Load()Li

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

28、x Aseger, n Asegerx = 1n = 0Do While x 28x = x * 3n = n + 1LoopPrx, nEnd Sub程序運行后，單擊窗體，輸出結(jié)果是A81 4B56 3C28 1D243 5（21）有如下程序：Private Sub Form_Click()Dim Check, CounterCheck = TrueCounter = 0DoDo While Counter 20Counter = Counter + 1If Counter = 10 ThenCheck = FalseExit DoEnd IfLoopLoop Until Check = F

29、alsePrCounter, CheckEnd Sub程序運行后，單擊窗體，輸出結(jié)果為A15 0B20 -1C10 TrueD10 False（22）有如下程序：Private Sub Form_Click()Dim i Aseger, sum Asegersum = 0For i = 2 To 10If i Mod 2 0 And i Mod 3 = 0 Thensum = sum + iEnd IfNext iPrsumEnd Sub程序運行后，單擊窗體，輸出結(jié)果為A12B30C24D18（23）在窗體上畫一個名稱為 Text1 的文本框和一個名稱為d1令按鈕，然后編寫如下事件過程：Pri

30、vate Subd1_Click()Dim array1(10, 10) AsegerDim i Aseger, j AsegerFor i = 1 To 3For j = 2 To 4array1(i, j) = i + jNext jNext iText1.Text = array1(2, 3) + array1(3, 4)End Sub程序運行后，單擊命令按鈕，在文本框中顯示的值是A12B13C14D15（24）在窗體上畫一個命令按鈕，其名稱為d1，然后編寫如下事件過程：Private Subd1_Click()Dim a1(4, 4), a2(4, 4)For i = 1 To 4Fo

31、r j = 1 To 4a1(i, j) = i + ja2(i, j) = a1(i, j) + i + jNext jNext iPra1(3, 3); a2(3, 3)End Sub程序運行后，單擊命令按鈕，在窗體上輸出的是A6 6B10 5C7 21D6 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

32、+ arr(i)End IfNext iPrSumEnd Sub程序運行后，單擊窗體，輸出結(jié)果為A25B26C27D28（26）在窗體上畫一個命令按鈕，然后編寫如下事件過程：Private Subd1_Click()Dim a(5) As StringFor i = 1 To 5a(i) = Chr(Asc(A) + (i - 1)Next iFor Each b In aPrb;NextEnd Sub程序運行后，單擊命令按鈕，輸出結(jié)果是AABCDEB1 2 3 4 5CabcdeD出錯信息（27）以下關(guān)于函數(shù)過程的敘述中，正確的是A如果不指明函數(shù)過程參數(shù)的類型，則該參數(shù)沒有數(shù)據(jù)類型B函數(shù)過程

33、的返回值可以有多個C當(dāng)數(shù)組作為函數(shù)過程的參數(shù)時，既能以傳值方式傳遞，也能以方式傳遞D函數(shù)過程形參的類型與函數(shù)返回值的類型沒有關(guān)系（28）函數(shù)過程 F1 的功能是：如果參數(shù) b 為奇數(shù)，則返回值為 1，否則返回值為 0。以下能正確實現(xiàn)上述功能的代碼是AFunction F1(b Aseger)If b Mod 2 = 0 ThenReturn 0ElseReturn 1End IfEnd FunctionBFunction F1(b Aseger)If b Mod 2 = 0 ThenF1 = 0ElseF1 = 1End IfEnd FunctionCFunction F1(b Aseger)

34、If b Mod 2 = 0 ThenF1 = 1ElseF1 = 0End IfEnd FunctionDFunction F1(b Aseger)If b Mod 2 0 ThenReturn 0ElseReturn 1End IfEnd Function（29）以下關(guān)于 KeyPress 事件過程中參數(shù) KeyAscii 的敘述中正確的是AKeyAscii 參數(shù)是所按鍵的 ASCII 碼BKeyAscii 參數(shù)的數(shù)據(jù)類型為字符串CKeyAscii 參數(shù)可以省略DKeyAscii 參數(shù)是所按鍵上標(biāo)注的字符（30）設(shè)窗體上有一個名為 Text1 的文本框，并編寫如下程序：Private Su

35、b Form_Load()ShowText1.Text = Text1.SetFocusEnd SubPrivate Sub Form_MouseUp(Button Aseger, _Shift Aseger, X As Single, Y As Single)Pr程序設(shè)計End SubPrivate Sub Text1_KeyDown(KeyCode Aseger, Shift Aseger)PrVisual Basic;End Sub程序運行后，如果在文本框中輸入字母“a”，然后單擊窗體，則在窗體上顯示的內(nèi)容是AVisual BasicB程序設(shè)計CVisual Basic 程序設(shè)計Da 程

36、序設(shè)計（31）假定有下表所列的菜單結(jié)構(gòu)：標(biāo)題 名稱 層次顯示 appear 1（主菜單）大圖標(biāo) bigicon 2（子菜單）小圖標(biāo) smallicon 2（子菜單）要求程序運行后，如果單擊菜單項“大圖標(biāo)”，則在該菜單項前添加一個“”。以下正確的事件過程是APrivate Sub bigicon_Click()bigicon.Checked = FalseEnd SubBPrivate Sub bigicon_Click()Me. appear.bigicon.Checked = TrueEnd SubCPrivate Sub bigicon_Click()bigicon.Checked = T

37、rueEnd SubDPrivate Sub bigicon_Click()appear.bigicon.Checked = TrueEnd Sub（32）假定通用框的名稱為 CommonDialog1，命令按鈕的名稱為d1，則單擊命令按鈕后，能使打開的框的標(biāo)題為“New Title”的事件過程是APrivate Subd1_Click()CommonDialog1.DialogTitle = New TitleCommonDialog1.ShowPrerEnd SubBPrivate Subd1_Click()CommonDialog1.DialogTitle = New TitleComm

38、onDialog1.ShowFontEnd SubCPrivate Subd1_Click()CommonDialog1.DialogTitle = New TitleCommonDialog1.ShowOpenEnd SubDPrivate Subd1_Click()CommonDialog1.DialogTitle = New TitleCommonDialog1.ShowColorEnd Sub（33）如果一個工程含有多個窗體及標(biāo)準(zhǔn)模塊，則以下敘述中錯誤的是A任何時刻最多只有一個窗體是活動窗體B不能把標(biāo)準(zhǔn)模塊設(shè)置為啟動模塊C用 Hide 方法只是隱藏一個窗體，不能從內(nèi)存中清除該窗體D如果

39、工程中含有Sub Main 過程，則程序一定首先執(zhí)行該過程（34）假定在工程文件中有一個標(biāo)準(zhǔn)模塊，其中定義了如下類型Type BooksName As String * 10Num As String * 20End Type要求當(dāng)執(zhí)行事件過程d1_Click 時，在順序文件.txt 中寫入一條。下列能夠完成該操作的事件過程是APrivate Subd1_Click()Dim B As BooksOpen c:.txt For Output As #1B.Name = InputBox(輸入)B.Num = InputBox(輸入號碼)Write #1, B.Name, B.NumClose

40、#1End SubBPrivate Subd1_Click()Dim B As BooksOpen c:.txt For Input As #1B.Name = InputBox(輸入)B.Num = InputBox(輸入號碼)Pr#1, B.Name, B.NumClose #1End SubCPrivate Subd1_Click()Dim B As BooksOpen c:.txt For Output As #1Name = InputBox(輸入)Num = InputBox(輸入號碼)Write #1, BClose #1End SubDPrivate Subd1_Click()

41、Dim B As BookOpen c:.txt For Input As #1Name = InputBox(輸入)Num = InputBox(輸入號碼)Pr#1, B.Name, B.NumClose #1End Sub（35）目錄列表框的 Path 屬性的作用是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ù)獨立性最高

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

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

44、, s As String, c As Stringstr = UCase(Text1)s = c = ZWhile c = AIf InStr(str, c) = 0 Thens = 【7】End Ifc = Chr$(Asc(c) 【8】)WendIf s ThenText1 = sEnd IfEnd Sub（8） 在 n 個運動員中選出任意 r 個人參加比賽，有很多種不同的選法，選法的個數(shù)可以用公式 計算。下圖窗體中 3 個文本框的名稱依次是 Text1、Text2、Text3。程序運行時在 Text1、Text2 中分別輸入 n 和 r 的值，單擊d1 按鈕即可求出選法的個數(shù)，并顯示在

45、 Text3 文本框中(見下圖)。請?zhí)羁铡rivate Subd1_Click( )Dim r Aseger, n Asegern = Text1r = Text2Text3 = fun(n) / fun(【9】 ) / fun(r)End SubFunction fun(n Aseger) as longDim t As Long【10】For k = 1 To nt = t * kNextfun = tEnd Function（9）以下是一個比賽評分程序。在窗體上建立一個名為 Text1 的文本框數(shù)組，然后畫一個名為 Text2 的文本框和名為d1令按鈕。運行時在文本框數(shù)組中輸入7 個分

46、數(shù)，單擊“計算得分”命令按鈕，則最后得分顯示在 Text2 文本框中（去掉一個最高分和一個最低分后的平均分即為最后得分），。請?zhí)羁铡rivate Subd1_Click( )Dim k AsegerDim sum As Single, max As Single, min As Singlesum = Text1(0)max = Text1(0)min = 【11】For k = 【12】 To 6If max Text1(k) Thenmin = Text1(k)End Ifsum = sum + Text1(k)Next kText2 = (【13】 ) / 5（10），在列表框 Lis

47、t1 中已經(jīng)有若干人的簡單信息，運行時在 Text1 文本框（即“查找對象”右邊的文本框）輸入一個姓或，單擊“查找”按鈕，則在列表框中進行查找，若找到，則把該人的信息顯示在 Text2 文本框中。若有多個匹配的列表項，則只顯示第 1 個匹配項；若未找到，則在 Text2 中顯示“查無此人”。請?zhí)羁?。Private Subd1_Click()Dim k Aseger, n Aseger, found Asfound = Falsen = Len(【14】 )k = 0While k List1.ListCount And Not foundIf Text1 = Left$(List1.List(

48、k), n) ThenText2 = 【15】found = TrueEnd Ifk = k + 1WendIf Not found ThenText2 = 查無此人End IfEnd Sub 2005 年 9 月計算機等級二級 VB 筆試試卷（含參考）參考選擇題【 1- 5】 CACDC 【 6-10】 DAABB【11-15】BCCDC 【16-20】 CABBA【21-25】DAADC 【26-30】 ADBAC【31-35】CCDAB填空題【1】數(shù)據(jù)庫系統(tǒng) 【2】空間 【3】驅(qū)動模塊【4】32 【5】結(jié)構(gòu) 【6】30【7】s&c 【8】-1 【9】n-r【10】t=1 【11】text

49、1(0) 【12】1【13】（sum-max-min） 【14】text1.text 【15】list1.list(k)2006 年 4 月計算機二級 VB 筆試參考，均上機測試通過1-5 DADBA6-10DCDAC11-15 DCCDB16-20 DBDAA21-25 BCBAD26-30 BDCDA31-35 BBCCB填空題1 ，452，類34關(guān)系靜態(tài)測試5物理獨立性7 Maxarr(i)9-510511 ABCD12 DialogTitle13 Keyascii14 END15 Text1.text2006年9月二級VisualBasic程序設(shè)計筆試試卷及一、單項選擇(1) 下列選項

50、中不符合良好程序設(shè)計風(fēng)格的是 。A) )源程序要文檔化 B)數(shù)據(jù)說明的次序要規(guī)范化C) )避免goto 語句 D)模塊設(shè)計要保證高耦合、高內(nèi)聚(2)從工程管理角度，設(shè)計一般分為兩步完成，它們是 。A) )概要設(shè)計與詳細設(shè)計B)數(shù)據(jù)設(shè)計與接口設(shè)計C) )結(jié)構(gòu)設(shè)計與數(shù)據(jù)設(shè)計D)過程設(shè)計與數(shù)據(jù)設(shè)計(3)下列選項中不屬于生命周期開發(fā)階段任務(wù)的是 。A) )測試B)概要設(shè)計C)D)詳細設(shè)計(4)在數(shù)據(jù)庫系統(tǒng)中，用戶所見的數(shù)據(jù)模式為 。A) )概念模式B)外模式C)內(nèi)模式D)物理模式(5)數(shù)據(jù)庫設(shè)計的四個階段是：需求分析、概念設(shè)計、邏輯設(shè)計和 。A) )編碼設(shè)計B)測試階段 C)運行階段D)物理設(shè)計設(shè)有如

51、下三個關(guān)系表：下列操作中正確的是 。下列敘述中正確的是 。)一個算法的空間復(fù)雜度大，則其空間復(fù)雜度也必定大)一個算法的空間復(fù)雜度大，則其時間復(fù)雜度必定小)一個算法的時間復(fù)雜度大，則其空間復(fù)雜度必定小)上述三種說法都不對(8)在長度為 64 的有序線性表中進行順序查找，情況下需要比較的次數(shù)為 。A) ) 63B) 64C) 6D) 7(9)數(shù)據(jù)庫技術(shù)的根本目標(biāo)是要解決數(shù)據(jù)的 。A) )問題B)共享問題C)安全問題D)保護問題(10)對下列二叉樹：進行中序遍歷的結(jié)果是 。A) ) ACBDFEG B) ACBDFGEC) ABDCGEFD) FCADBEG(11)以下敘述中正確的是 。)窗體的 N

52、ame 屬性指定窗體的名稱，用來標(biāo)識一個窗體)窗體的 Name 屬性值是顯示在窗體標(biāo)題欄中文本)可以在運行期間改變窗體的 Name 屬性的值)窗體的 Name 屬性值可以為空(12)以下敘述中錯誤的是 。)打開一個工程文件時，系統(tǒng)自動裝入與該工程有關(guān)的窗體文件)保存 Visual Basic 程序時，應(yīng)分別保存窗體文件及工程文件) Visual Basic 應(yīng)用程序只能以解釋方式執(zhí)行)窗體文件包含該窗體及其控件的屬性(13)設(shè) a=2,b=3,c=4, 下列表達式的值是 。Not a = c Or 4*c = b2 And b a+cA) ) -1B) 1C) TrueD) False(14)

53、沒有如下的用戶定義類型： Type Studentnumber As Stringname As StringA) ge AS End Type則以下正確eger該類型成員的代碼是 。A) ) Student. name= “”B) Dim s As StudentD) Dim s As TypeC) ) Dim s As Type StudentS.name= “” = “15)設(shè) a=5,b=6,c=7,d=8 ，執(zhí)行下列語句后， X 的值為 。X=IIf(ab)And(cd),10,20)A) 10B) 20C) TrueD) False(16)執(zhí)行以下程序段后，變量 c$ 的值為 。$

54、= “ Visual Bassic Programming ”$= “ Quick ”e$=b$&U Case(Mid$(a$,7,6)&Right$(a$,12)A) ) Visual Basic ProgrammingB) Quick Basic programmingC) ) Quick Basic ProgrammingD) Quick Basic Programming(17) 在窗體上畫一個文本框（其名稱為 Textl)和一個程序運行后，如果在文本框中輸入指定的信息，則立即在（其名稱為 Labell)，中顯示相同的內(nèi)容，以下可以實現(xiàn)上述操作的事件過程是 。A) ) Private

55、Sub Textl_Click()B)Private Sub Text1_Change()Labell.Caption=Textl.Text Labell.Caption=Textl.TextEnd SubEnd SubC) ) Private Sub Labell_Ctrange()D) Private Sub Labell_Click()Labell. Caption=Textl.Text Labell.Caption=Textl.TextEnd SubEnd Sub(18) 在窗體上面畫一個命令按鈕和一個Labell ，然后編寫如下事件過程：dl 和， 其名稱分別為Private Sub

56、 Counter=0For i=1 To 4dl_Click()For j=6 To 1 Step -2 Counter=Counter+1Nextj NextiLabell.Caption=Str(Counter)End Sub程序運行后，單擊命令按鈕，中顯示的內(nèi)容是A) ) 11B) 12C) 16D) 20(19)在窗體上畫一個名稱為 Text1鈕，然后編寫如下事件過程：的文本框和一個名稱為dl令按PrivateDim i Asdl_Click()eger, n AsegerFori=0 To 50i = i+3 n = n+1If i10Then Exit For NextTextl.

57、Text=Str(n)End Sub程序運行后，單擊命命令按鈕，在文本框中顯示的值是 。A) ) 5 B) 4 C) 3 D) 2(20)在窗體上畫一個命令按鈕和兩個和dlLabell，真名和分別為、Labe12，然后編寫 A)&123B)123C)123D)123如下事件 過程：246345258456Private Subdl369456369789_Chick.A) =0For i=1 To 10a=a+1 b=0Forj=1 To 10 a=a+1b=b+2 NextjNext iLabell. Caption=Str(a) Labe12.Caption=Str(b)End Sub程序

58、運行后，單擊命令按鈕，在Labell 和 Labe12 中顯示的內(nèi)容分別為 。A) ) 10 和 20 B) 20 和 110 C) 200 和 110 D) 110 和 20(21)在窗體上畫一個名稱為 Listl 的列表框，一個名稱為 Labell 的，列表框中顯示若干城市的名稱。當(dāng)單擊列表框中的某個城市名時，該城市名從列表框中，并在中顯示出來。下列能正確實現(xiàn)上述操作的程序是 。A) ) Privale Sub Listl_Click()B) Private Sub Listl_Click()Labell. Caption=Listl. ListIndexLabell.Name=Listl

59、. ListIndexListl. Removeltem Listl.TextListl.RemoveItem Listl.Text End Sub End SubC) ) Private Sub Listl_Click()D) Private Sub Listl_Click() Labell. Caption=Listl.TextLabell. Name=Listl. TextListl. RemovItem Listl. ListIndex Listl. RemoveItem Listl. ListIndexEnd Sub End Sub(22) 在窗體上畫一個名稱為dl令按鈕，然后編寫如

60、下程序：Private SubDim i Asdl Click()eger, j AsegerDim a (10,10)As For i=1 To 3For j= i To 3a(i,j)=(i-1)*3+jegerPra (i,j);Next j PrNext i End Sub程序運行后，單擊命令按鈕，窗體上顯示的是 。(23) 在窗體上畫一個命令按鈕，名稱為Option Base 0d1, 然后編寫如下代碼：Private SubD) im A (4)As For k=0 To 2d1_Click()eger,B(4) AsegerA(k+1)=InputBox(“ 請輸入一個整數(shù)B(3