全國(guó)計(jì)算機(jī)等級(jí)考試二級(jí)筆試試卷Visual-Basic語(yǔ)言程序設(shè)計(jì)

1、2005年9月全國(guó)計(jì)算機(jī)等級(jí)考試二級(jí)筆試試卷Visual Basic語(yǔ)言程序設(shè)計(jì)一、選擇題 以下各題A)、B)、C)、D)四個(gè)選項(xiàng)中，只有一個(gè)選項(xiàng)是正確的。(1)下面表達(dá)正確的選項(xiàng)是_。 A)程序設(shè)計(jì)就是編制程序 B)程序的測(cè)試必須由程序員自己去完成 C)程序經(jīng)調(diào)試改錯(cuò)后還應(yīng)進(jìn)行再測(cè)試 D)程序經(jīng)調(diào)試改錯(cuò)后不必進(jìn)行再測(cè)試(2)以下數(shù)據(jù)結(jié)構(gòu)中，能用二分法進(jìn)行查找的是_。 A)順序存儲(chǔ)的有序線性表 B)線性鏈表 C)二叉鏈表 D)有序線性鏈表(3)以下關(guān)于棧的描述正確的選項(xiàng)是_。 A)在棧中只能插入元素而不能刪除元素 B)在棧中只能刪除元素而不能插入元素 C)棧是特殊的線性表，只能在一端插入或刪除

2、元素 D)棧是特殊的線性表，只能在一端插入元素，而在另一端刪除元素(4)以下表達(dá)中正確的選項(xiàng)是_。 A)一個(gè)邏輯數(shù)據(jù)結(jié)構(gòu)只能有一種存儲(chǔ)結(jié)構(gòu) B)數(shù)據(jù)的邏輯結(jié)構(gòu)屬于線性結(jié)構(gòu)，存儲(chǔ)結(jié)構(gòu)屬于非線性結(jié)構(gòu) C)一個(gè)邏輯數(shù)據(jù)結(jié)構(gòu)可以有多種存儲(chǔ)結(jié)構(gòu)，且各種存儲(chǔ)結(jié)構(gòu)不影響數(shù)據(jù)處理的效率 D)一個(gè)邏輯數(shù)據(jù)結(jié)構(gòu)可以有多種存儲(chǔ)結(jié)構(gòu)，且各種存儲(chǔ)結(jié)構(gòu)影響數(shù)據(jù)處理的效率(5)以下描述中正確的選項(xiàng)是_。 A)軟件工程只是解決軟件工程的管理問(wèn)題 B)軟件工程主要解決軟件產(chǎn)品的生產(chǎn)率問(wèn)題 C)軟件工程的主要思想是強(qiáng)調(diào)在軟件開發(fā)過(guò)程中需要應(yīng)用工程化原那么 D)軟件工程只是解決軟件開發(fā)中的技術(shù)問(wèn)題(6)在軟件設(shè)計(jì)中，不屬于過(guò)程設(shè)計(jì)

3、工具的是_。 A)PDL(過(guò)程設(shè)計(jì)語(yǔ)言) B)PAD圖 C)N-S圖 D)DFD圖(7)以下表達(dá)中正確的選項(xiàng)是_。 A)軟件交付使用后還需要進(jìn)行維護(hù) B)軟件一旦交付使用就不需要再進(jìn)行維護(hù) C)軟件交付使用后其生命周期就結(jié)束 D)軟件維護(hù)是指修復(fù)程序中被破壞的指令(8)數(shù)據(jù)庫(kù)設(shè)計(jì)的根本目標(biāo)是要解決_。 A)數(shù)據(jù)共享問(wèn)題 B)數(shù)據(jù)平安問(wèn)題C)大量數(shù)據(jù)存儲(chǔ)問(wèn)題 D)簡(jiǎn)化數(shù)據(jù)維護(hù) (9)設(shè)有如下關(guān)系表_。 那么以下操作中，正確的選項(xiàng)是_。 A)T=RS B)T=RS C)T=R×S D)T=R/S(10)數(shù)據(jù)庫(kù)系統(tǒng)的核心是_。 A)數(shù)據(jù)模型 B)數(shù)據(jù)庫(kù)管理系統(tǒng) C)數(shù)據(jù)庫(kù) D)數(shù)據(jù)庫(kù)管理員

4、(11)假定一個(gè)Visual Basic應(yīng)用程序由一個(gè)窗體模塊和一個(gè)標(biāo)準(zhǔn)模塊構(gòu)成。為了保存該應(yīng)用程序，以下正確的操作是_。 A)只保存窗體模塊文件 B)分別保存窗體模塊、標(biāo)準(zhǔn)模塊和工程文件 C)只保存窗體模塊和標(biāo)準(zhǔn)模塊文件D)只保存工程文件(12)為了去除窗體上的一個(gè)控件，以下正確的操作是_。 A)按回車鍵 B)按Esc鍵 c)選擇(單擊)要去除的控件，然后按Del鍵 D)選擇(單擊)要去除的控件，然后按回車鍵(13)以下表達(dá)中錯(cuò)誤的選項(xiàng)是_。 A)翻開一個(gè)工程文件時(shí)，系統(tǒng)自動(dòng)裝入與該工程有關(guān)的窗體、標(biāo)準(zhǔn)模塊等文件 B)當(dāng)程序運(yùn)行時(shí)，雙擊一個(gè)窗體，那么觸發(fā)該窗體的DblClick事件 C)Vi

5、sual Basic應(yīng)用程序只能以解釋方式執(zhí)行 D)事件可以由用戶引發(fā)，也可以由系統(tǒng)引發(fā)(14)設(shè)a=2，b=3，c=4，d=5，以下表達(dá)式的值是_。 Not a=c Or4*c=b2Andba+c A)-1 B)1 C)True D)False(15)設(shè)a=5,b=10，那么執(zhí)行c=Iht(b-A)*Rnd+A)+1后，c值的范圍為_。 A)510 B)69 C)610 D)59(16)在窗體上畫一個(gè)命令按鈕，名稱為Command1，然后編寫如下事件過(guò)程： Private Sub Command1_Click() a$="software and hardware" b$

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

7、 an integer") Text1.Text=b+a End Sub 程序運(yùn)行后，單擊命令按鈕，如果在輸入對(duì)話框中分別輸入8和10，那么文本框中顯示的內(nèi)容是_。 A)108 B)18 C)810 D)出錯(cuò)(18)在窗體上畫兩個(gè)文本框，其名稱分別為Text1和Text2，然后編寫如下程序： Private Sub Form_Load() Show Text1.Text="" Text2.Text="" Text1.SetFocus End Sub Private Sub Text1_Change() Text2.Text=Mid(Text1.

8、Text，8) End Sub 程序運(yùn)行后，如果在文本框Text1中輸入BeijingChina，那么在文本框Text2顯示的內(nèi)容是 _。 A)BeijingChina B)Chima C)Beijing D)BeijingC(19)在窗體上畫一個(gè)列表框和一個(gè)命令按鈕，其名稱分別為L(zhǎng)ist1和Command1，然后編寫如下事件過(guò)程 Private Sub Form_Load() List1.Addltem"Iteml" List1.Addltem"Item2" List1.Addltem"Item3" End Sub Private

9、Sub Command1_click() List1.List(List1.ListCount)="AAAA" End Sub 程序運(yùn)行后，單擊命令按鈕，其結(jié)果為_。 A)把字符串“AAAA添加到列表框中，但位置不能確定 B)把字符串“AAAA人添加到列表框的最后(即“Item3的后面) C)把列表框中原有的最后一項(xiàng)改為“AAAA D)把字符串“AAAA插入到列表框的最前面(即“Item1的前面)(20)假定有如下事件過(guò)程： Private Sub Form_Cilck() Dim x As Integer，n As Integer x=1 n=0 Do While x28

10、 X=X*3 n=n+1 Loop Print x,n End Sub 程序運(yùn)行后，單擊窗體，輸出結(jié)果為_。 A)81 4 B)56 3 C)28 1 D)243 5(21)有如下程序： Ptivate Sub Form_Click() Dim Check，Counter Cbeck=True Counter=0 Do Do While Counter20 Counter=Counter+1 If Counter=10 Then Check=False Exit Do End If Loop Loop Until Check=False Print Counter, Check End Sub

11、 程序運(yùn)行后，單擊窗體，輸出結(jié)果為_。 A)15 0 B)20 -1 C)10 True D)10 False(22)有如下程序： Private Sub Form_CHck() Dim i As Integer，sum As Integer sum=0 For i=2 TO 10 If Mod 2 And i Mod 3=0 Then sum=sum+i End If Next i Print sum End Sub 程序運(yùn)行后，單擊窗體，輸出結(jié)果為_。 A)12 B)30 C)24 D)18(23)在窗體上畫一個(gè)名稱為Text1的文本框和一個(gè)名稱為Command1的命令按鈕，然后編寫如下事

12、件過(guò)程： Private Sub Command1_Click() Dim array1(10，10)As Integer Dim i As Integer, j As Integer For i=1 To 3 For j=2 To 4 array1(i,j)=i+j Next j Next i Text1.Text=array1(2，3)+arrayl(3，4) End Sub 程序運(yùn)行后，單擊命令按鈕，在文本框中顯示的值是_。 A)12 B)13 C)14 D)15 (24)在窗體上畫一個(gè)命令按鈕，其名稱為Command1，然后編寫如下事件過(guò)程： Private Sub Command1_

13、Click() Dima1(4，4)a2(4，4) Dim i As Integer, j As Integer For i=1 To 4 For j=1 To 4 a1(i,j)=i+j a2(i,j)=a1(i,j)+i+j Next j Next i Print a1(3,3);a2(3,3) End Sub 程序運(yùn)行后，單擊命令按鈕，在窗體上輸出的是_。 A)6 6 B)10 5 C)7 21 D)6 12(25)有如下程序： Option Base 1 Private Sub Form_Click() Dim arr，Sum Sum=0 alt=Array(1，3，5，7，9，11，

14、13，15，17，19) For i=1 To 10 If arr(i)/3=arr(i)13 Then Sum=Sum+alt(I) End If Next i Print Sum End Sub 程序運(yùn)行后，單擊窗體，輸出結(jié)果為_。 A)25 B)26 C)27 D)28(26)在窗體畫一個(gè)命令按鈕，然后編寫如下事件過(guò)程： Private Sub Command1_Click() Dim a(5)As String For i=1 To 5 a(I)=Chr(Asc("A")+(i-1) Next i For Each b In a Print b； Next End

15、Sub 程序運(yùn)行后，單擊命令按鈕，輸出結(jié)果是_。 A)ABCDE B)1 2 3 4 5 C)abcde D)出錯(cuò)信息(27)以下關(guān)于函數(shù)過(guò)程的表達(dá)中，正確的選項(xiàng)是_。 A)如果不指明函數(shù)過(guò)程參數(shù)的類型，那么該參數(shù)沒(méi)有數(shù)據(jù)類型 B)函數(shù)過(guò)程的返回值可以有多個(gè) C)當(dāng)數(shù)組作為函數(shù)過(guò)程的參數(shù)時(shí)，既能以傳值方式傳遞，也能以引用方式傳遞 D)函數(shù)過(guò)程形參的類型與函數(shù)返回值的類型沒(méi)有關(guān)系(28)函數(shù)過(guò)程n的功能是：如果參數(shù)b為奇數(shù)，那么返回值為1，否那么返回值為0。以下能正確實(shí)現(xiàn)上述功能的代碼的是_。 A)Function F1(b As Integer) If b Mod 2=0 Then Retur

16、n 0 Else Return 1 End If End Function B)Function F1(b As Integer) If b Mod 2=0 Then F1=0 Else F1=1 End If End Function C)Function F1(b As Integer) If b Mod 2=0 Then F1=1 Else F1=0 End If End Function D)Functionn(b As Integer) If b Mod 2 0Then Return 0 Else Return 1 End If End Function(29)以下關(guān)于KeyPres

17、s事件過(guò)程中參數(shù)KeyAscii的表達(dá)中，正確的選項(xiàng)是_。 A)KeyAscii參數(shù)是所按鍵的ASCII碼 B)KeyAscii參數(shù)的數(shù)據(jù)類型為字符串 C)KeyAscii參數(shù)可以省略 D)KeyAscii參數(shù)是所按鍵上標(biāo)注的字符(30)設(shè)窗體上有一個(gè)名為Text1的文本框，并編寫如下程序： Private Sub Form_Load() Show Text1.Text="" Text1.SetFocus End Sub Private Sub Form_Mouse Up (Button As Integer，Shift As Integer，X As Single，Y A

18、s Single) Print"程序設(shè)計(jì)" End Sub Private Sub Text1_KeyDown(KeyCode As Integer，Shift As Integer) Print"Visual Basic"； End Sub 程序運(yùn)行后，如果在文本框中輸入字母“a，然后單擊窗體，那么在窗體上顯示的內(nèi)容是_。 A)Visual Basic B)程序設(shè)計(jì) C)Visual Basic程序設(shè)計(jì) D)a程序設(shè)計(jì)(31)假定有下表所列的菜單結(jié)構(gòu)： (表格) 要求程序運(yùn)行后，如果單擊菜單項(xiàng)“大圖標(biāo)，那么在該菜單項(xiàng)前添加一個(gè)“。以下正確的事件過(guò)程是_

19、。 A)Private Sub bigicon_Click() bigicon.Checked=False End Sub B)Private Sub bigicon_Click0 Me.appear.bigicon.Checked=True End Sub C)Private Sub bigicon_Click() bigicon.Checked=True End Sub D)Private Sub bigicon_Click0 appear.bigicon.Checked=True End Sub(32)假定通用對(duì)話框的名稱為CommonDialog1，命令按鈕的名稱為Command1，那

20、么單擊命令按鈕后，能使翻開的對(duì)話框的標(biāo)題為“New Title的事件過(guò)程是_。 A)Private Sub Commandl_Click() CommonDialog1.DialogTitle="NewTitle" CommonDialog1.ShowPrinter End Sub B)Private Sub Command1_Click() CommonDialog1.DialogTitle="NewTitle" CommonDialog1.ShowFont End Sub C)Private Sub Commslld1_CUck() CommonDi

21、alog1.DialogTifie="NewTitle" CommonDialog1.ShowOpen End Sub D)PrivateSubCommand1_Click() CommonDialog1.DialogTitleNewTitle CommonDialog1.ShowColor End Sub(33)如果一個(gè)工程含有多個(gè)窗體及標(biāo)準(zhǔn)模塊，那么以下表達(dá)中錯(cuò)誤的選項(xiàng)是_。 A)任何時(shí)刻最多只有一個(gè)窗體是活動(dòng)窗體 B)不能把標(biāo)準(zhǔn)模塊設(shè)置成啟動(dòng)模塊 C)用Hide方法只是隱藏一個(gè)窗體，不能從內(nèi)存中去除該窗體 D)如果工程中含有Sub Main過(guò)程，那么程序一定首先執(zhí)行該

22、過(guò)程(34)假定在工程文件中有一個(gè)標(biāo)準(zhǔn)模塊，其中定義了如下記錄類型 Type Books Name As String*10 TelNum As String*20 End Type 要求當(dāng)執(zhí)行事件過(guò)程Command1_Click時(shí)，在順序文件Person.txt中寫入一條記錄。以下能夠完成該操作的事件過(guò)程是： A)Ptivate Sub Command1_Click() Dim B As Books Open"c:Person.txt"For Output As#1 B.Name=InputBox("輸入") B.TelNum=InputBox(&qu

23、ot;輸入 號(hào)碼") Write#1，B.Name，B.TelNum Close#1 End Sub B)Private Sub Command1_Click() Dim B As Books Open"c:Person.txt"For Input As#1 B.Name=InputBox("輸入") B.TelNum=InputBox("輸入 號(hào)碼") Print#1，BName，BTelNum Close#1 End Sub C)Private Sub Command1_Click() Dim B As Books OP

24、Ql"c:Person.txt"For Output As#1 Nallle=InputBox("輸入") TelNum=InputBox("輸入 號(hào)碼") Write#1，B Close#1 End Sub D)Private Sub Command1_Click() Dim B As Books Open"c:Person.txt"For lnput As#1 Name=InputBox("輸入") TelNum=InputBox("輸入 號(hào)碼") Write#1，BNa

25、me，B.TelNum Close#1 End Sub (35)目錄列表框的Path屬性的作用是_。 A)顯示當(dāng)前驅(qū)動(dòng)器或指定驅(qū)動(dòng)器上的某目錄下的文件名 B)顯示當(dāng)前驅(qū)動(dòng)器或指定驅(qū)動(dòng)器上的目錄結(jié)構(gòu) C)顯示根目錄下的文件名 D)顯示指定路徑下的文件二、填空題(1)數(shù)據(jù)管理技術(shù)開展過(guò)程經(jīng)過(guò)人工管理、文件系統(tǒng)和數(shù)據(jù)庫(kù)系統(tǒng)三個(gè)階段，其中數(shù)據(jù)獨(dú)立性最高的階段是 【1】 。(2)算法復(fù)雜度主要包括時(shí)間復(fù)雜度和 【2】 復(fù)雜度。(3)在進(jìn)行模塊測(cè)試時(shí)，要為每個(gè)被測(cè)試的模塊另外設(shè)計(jì)兩類模塊：驅(qū)動(dòng)模塊和承接模塊(樁模塊)。其中 【3】 的作用是將測(cè)試數(shù)據(jù)傳送給被測(cè)試的模塊，并顯示被測(cè)試模塊所產(chǎn)生的結(jié)果。(4)

26、一棵二叉樹第六層(根結(jié)點(diǎn)為第一層)的結(jié)點(diǎn)數(shù)最多為 【4】 個(gè)。(5)數(shù)據(jù)結(jié)構(gòu)分為邏輯結(jié)構(gòu)和存儲(chǔ)結(jié)構(gòu)，循環(huán)隊(duì)列屬于 【5】 結(jié)構(gòu)。(6)設(shè)有以下函數(shù)過(guò)程： Function fun(m As Integer)As Integer Dim k As Integer, sum As Integer sum=0 For k=m To 1 Step-2 sum=sum+k Next k fun=stlm End Function 假設(shè)在程序中用語(yǔ)句s=fun(10)調(diào)用此函數(shù)，那么s的值為 【6】 。(7)在窗體上畫一個(gè)命令按鈕和一個(gè)文本框，然后編寫命令按鈕的Click事件過(guò)程。程序運(yùn)行后，在文本框中輸

27、入一串英文字母(不區(qū)分大小寫)，單擊命令按鈕，程序可找出未在文本框中輸入的其他所有英文字母，并以大寫方式降序顯示到Text1中。例如，假設(shè)在Text1中輸入的是abDfdb，那么單擊Comrnand1按鈕后Text1中顯示的字符串是 ZYXWVUTSRQPONMLKJIHGEC。請(qǐng)?zhí)羁铡?Private Sub Command1_Click() Dim str As String，s As String，c As String str=UCase(Text1) S="" C="Z" While c="A" If lnStr(str,C

28、)=0 Then s= 【7】 End If c=Chr$(Asc(C) 【8】 ) Wend If s""Then Text1=S End If End Sub(8)在n個(gè)運(yùn)發(fā)動(dòng)中選出任意r個(gè)人參加比賽，有很多種不同的選法，選法的個(gè)數(shù)可以用公式 計(jì)算。以下圖窗體中3個(gè)文本框的名稱依次是Text1、Text2、Text。程序運(yùn)行時(shí)在 Text1、Text2中分別輸入n和r的值，單擊Command1按鈕即可求出選法的個(gè)數(shù)，并顯示在 Text3文本框中(見以下圖)。請(qǐng)?zhí)羁铡?Private Sub Command1_Click() Dim r As Integer，n As Integer n=Textl r=Text2 Text3=fun(n)/fun( 【9】 )/fun(r) End Sub Function fun(n As I