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

1、2005 年 9 月全國(guó)計(jì)算機(jī)等級(jí)考試二級(jí)筆試試卷Visual Basic 語言程序設(shè)計(jì)一、選擇題下列各題A)、 B)、C) 、 D)四個(gè)選項(xiàng)中，只有一個(gè)選項(xiàng)是正確的。(1) 下面敘述正確的是 _。A) 程序設(shè)計(jì)就是編制程序B) 程序的測(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)于棧的描述正確的是 _。A) 在棧中只能插入元素而不能刪除元素B) 在棧中只能刪除元素而不能插入元素D) 棧是特殊的線性表，只能在一端插入元素，而在另一端刪除元素(4)

2、下列敘述中正確的是 _。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) 下列描述中正確的是 _。A) 軟件工程只是解決軟件項(xiàng)目的管理問題B) 軟件工程主要解決軟件產(chǎn)品的生產(chǎn)率問題C)軟件工程的主要思想是強(qiáng)調(diào)在軟件開發(fā)過程中需要應(yīng)用工程化原則D) 軟件工程只是解決軟件開發(fā)中的技術(shù)問題(6) 在軟件設(shè)計(jì)中，不屬于過程設(shè)計(jì)工具的是_。A)PDL( 過程設(shè)計(jì)語言 )B)PAD 圖C)N-S圖D)DFD

3、圖(7) 下列敘述中正確的是 _。A) 軟件交付使用后還需要進(jìn)行維護(hù)B) 軟件一旦交付使用就不需要再進(jìn)行維護(hù)D) 軟件維護(hù)是指修復(fù)程序中被破壞的指令(8) 數(shù)據(jù)庫設(shè)計(jì)的根本目標(biāo)是要解決_。A) 數(shù)據(jù)共享問題B)數(shù)據(jù)安全問題C)大量數(shù)據(jù)存儲(chǔ)問題D) 簡(jiǎn)化數(shù)據(jù)維護(hù)(9) 設(shè)有如下關(guān)系表_。則下列操作中，正確的是A)T=R SB)T=R S_。C)T=R × SD)T=R/S(10)數(shù)據(jù)庫系統(tǒng)的核心是_。A) 數(shù)據(jù)模型B) 數(shù)據(jù)庫管理系統(tǒng)C)數(shù)據(jù)庫D)數(shù)據(jù)庫管理員(11)假定一個(gè) Visual Basic 應(yīng)用程序由一個(gè)窗體模塊和一個(gè)標(biāo)準(zhǔn)模塊構(gòu)成。為了保存該應(yīng)用程序，以下正確的操作是 _。

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

5、b=3， c=4， d=5 ，下列表達(dá)式的值是Not a=c Or4*c=b2Andb a+c_ 。A)-1B)1C)TrueD)False(15)設(shè) a=5,b=10，則執(zhí)行A)5 10B)6 9c=Iht(b-A)*Rnd+A)+1后， c 值的范圍為C)6 10D)5 9_。(16)在窗體上畫一個(gè)命令按鈕，名稱為Command1，然后編寫如下事件過程：Private Sub Command1_Click()a$="software and hardware"b$=Right(a$ ， 8)c$=Mid(a$ ， 1， 8)MsgBox a$ ，b$， c%， 1End

6、 Sub運(yùn)行程序，單擊命令按鈕，則在彈出的信息框的標(biāo)題欄中顯示的是_。A)software and hardwareB)softwareC)hardwareD)1(17)在窗體上畫一個(gè)命令按鈕和一個(gè)文本框，其名稱分別為的 Text 屬性設(shè)置為空白，然后編寫如下事件過程：Command1和 Text1，把文本框Private Sub Command1_Click()a=InputBox("Enter an integer")b=InputBox("Enter an integer")Text1.Text=b+aEnd Sub程序運(yùn)行后，單擊命令按鈕，如果在

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

8、內(nèi)容是 _。A)BeijingChinaB)ChimaC)BeijingD)BeijingC(19)在窗體上畫一個(gè)列表框和一個(gè)命令按鈕，其名稱分別為 List1 和 Command1，然后編寫如下事件過程Private Sub Form_Load()List1.Addltem"Iteml"List1.Addltem"Item2"List1.Addltem"Item3"End SubPrivate Sub Command1_click()List1.List(List1.ListCount)="AAAA"End Su

9、b程序運(yùn)行后，單擊命令按鈕，其結(jié)果為_。A) 把字符串“ AAAA ”添加到列表框中，但位置不能確定B) 把字符串“ AAAA 人”添加到列表框的最后 (即“ Item3”的后面C)把列表框中原有的最后一項(xiàng)改為“ AAAA ”)D) 把字符串“ AAAA ”插入到列表框的最前面 (即“ Item1 ”的前面 )(20)假定有如下事件過程：Private Sub Form_Cilck()Dim x As Integer ， n As Integerx=1n=0Do While x 28X=X*3n=n+1LoopPrint x,nEnd Sub程序運(yùn)行后，單擊窗體，輸出結(jié)果為_。A)814B)5

10、63C)281D)2435(21)有如下程序：Ptivate Sub Form_Click()Dim Check ， CounterCbeck=TrueCounter=0DoDo While Counter 20Counter=Counter+1If Counter=10 ThenCheck=FalseExit DoEnd IfLoopLoop Until Check=FalsePrint Counter, CheckEnd Sub程序運(yùn)行后，單擊窗體，輸出結(jié)果為_。A)150B)20-1C)10TrueD)10False(22)有如下程序：Private Sub Form_CHck()Dim

11、 i As Integer ， sum As Integersum=0For i=2 TO 10If Mod 2 And i Mod 3=0 Thensum=sum+iEnd IfNext iPrint sumEnd Sub程序運(yùn)行后，單擊窗體，輸出結(jié)果為_。A)12B)30C)24D)18(23)在窗體上畫一個(gè)名稱為Text1的文本框和一個(gè)名稱為Command1的命令按鈕，然后編寫如下事件過程：Private Sub Command1_Click()Dim array1(10 ，10)As IntegerDim i As Integer, j As IntegerFor i=1 To 3Fo

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

13、Next iPrint a1(3,3);a2(3,3)End Sub程序運(yùn)行后，單擊命令按鈕，在窗體上輸出的是_。A)66B)105C)721D)612(25)有如下程序：Option Base 1Private Sub Form_Click()Dim arr ， SumSum=0alt=Array(1 ， 3，5， 7， 9，11， 13， 15， 17， 19)For i=1 To 10If arr(i)/3=arr(i)13 ThenSum=Sum+alt(I)End IfNext iPrint SumEnd Sub程序運(yùn)行后，單擊窗體，輸出結(jié)果為_。A)25B)26C)27D)28(2

14、6)在窗體畫一個(gè)命令按鈕，然后編寫如下事件過程：Private 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程序運(yùn)行后，單擊命令按鈕，輸出結(jié)果是_。A)ABCDEB)12345C)abcdeD) 出錯(cuò)信息(27)以下關(guān)于函數(shù)過程的敘述中，正確的是_。A) 如果不指明函數(shù)過程參數(shù)的類型，則該參數(shù)沒有數(shù)據(jù)類型B) 函數(shù)過程的返回值可以有多個(gè)C)當(dāng)數(shù)組作為函數(shù)過程的參數(shù)時(shí)，既能以傳值方式傳遞，也能以引

15、用方式傳遞D) 函數(shù)過程形參的類型與函數(shù)返回值的類型沒有關(guān)系(28)函數(shù)過程n 的功能是：如果參數(shù)b 為奇數(shù)，則返回值為1，否則返回值為0。以下能正確實(shí)現(xiàn)上述功能的代碼的是_。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=0

16、End IfEnd FunctionD)Functionn(b As Integer)If b Mod 2 0ThenReturn 0ElseReturn 1End IfEnd Function(29)以下關(guān)于KeyPress 事件過程中參數(shù)KeyAscii 的敘述中，正確的是_。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()ShowText1.Text="

17、;"Text1.SetFocusEnd SubPrivate Sub Form_Mouse Up (Button As Integer ，Shift As Integer ，X As Single ，Y As Single)Print" 程序設(shè)計(jì) "End SubPrivate Sub Text1_KeyDown(KeyCode As Integer ， Shift As Integer)Print"Visual Basic" ；End Sub程序運(yùn)行后，如果在文本框中輸入字母“a”，然后單擊窗體，則在窗體上顯示的內(nèi)容是_。A)Visual B

18、asicB) 程序設(shè)計(jì)C)Visual Basic 程序設(shè)計(jì)D)a 程序設(shè)計(jì)(31)假定有下表所列的菜單結(jié)構(gòu)：(表格 )要求程序運(yùn)行后，如果單擊菜單項(xiàng)“大圖標(biāo)” ，則在該菜單項(xiàng)前添加一個(gè)“” 。以下正確的事件過程是 _。A)Private Sub bigicon_Click()bigicon.Checked=FalseEnd SubB)Private Sub bigicon_Click0End SubC)Private Sub bigicon_Click()bigicon.Checked=TrueEnd SubD)Private Sub bigicon_Click0End Sub(32)假定通

19、用對(duì)話框的名稱為CommonDialog1 ，命令按鈕的名稱為Command1，則單擊命令按鈕后，能使打開的對(duì)話框的標(biāo)題為“New Title ”的事件過程是_ 。A)Private Sub Commandl_Click()CommonDialog1.DialogTitle="NewTitle"CommonDialog1.ShowPrinterEnd SubB)Private Sub Command1_Click()CommonDialog1.DialogTitle="NewTitle"CommonDialog1.ShowFontEnd SubC)Pri

20、vate Sub Commslld1_CUck()CommonDialog1.DialogTifie="NewTitle"CommonDialog1.ShowOpenEnd SubD)PrivateSubCommand1_Click()CommonDialog1.DialogTitle ”NewTitle ”CommonDialog1.ShowColorEnd Sub(33)如果一個(gè)工程含有多個(gè)窗體及標(biāo)準(zhǔn)模塊，則以下敘述中錯(cuò)誤的是_。A) 任何時(shí)刻最多只有一個(gè)窗體是活動(dòng)窗體B) 不能把標(biāo)準(zhǔn)模塊設(shè)置成啟動(dòng)模塊D) 如果工程中含有 Sub Main 過程，則程序一定首先執(zhí)行該過

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

22、 輸入電話號(hào)碼")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(" 輸入電話號(hào)碼")Print#1， B Name，B TelNumClose#1End SubC)Private Sub Command1_Click()Dim B As BooksOPQl&

23、quot;c:Person.txt"For Output As#1Nallle=InputBox(" 輸入姓名 ")TelNum=InputBox(" 輸入電話號(hào)碼")Write#1 ，BClose#1End SubD)Private Sub Command1_Click()Dim B As BooksOpen"c:Person.txt"For lnput As#1Name=InputBox(" 輸入姓名 ")TelNum=InputBox(" 輸入電話號(hào)碼")Write#1 ，B N

24、ame， B.TelNumClose#1End Sub(35) 目錄列表框的 Path 屬性的作用是 _。A) 顯示當(dāng)前驅(qū)動(dòng)器或指定驅(qū)動(dòng)器上的某目錄下的文件名B) 顯示當(dāng)前驅(qū)動(dòng)器或指定驅(qū)動(dòng)器上的目錄結(jié)構(gòu)D) 顯示指定路徑下的文件二、填空題(1) 數(shù)據(jù)管理技術(shù)發(fā)展過程經(jīng)過人工管理、文件系統(tǒng)和數(shù)據(jù)庫系統(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) 一棵二叉樹第六

25、層 (根結(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ù)過程：Function fun(m As Integer)As IntegerDim k As Integer, sum As Integersum=0For k=m To 1 Step-2sum=sum+kNext kfun=stlmEnd Function若在程序中用語句s=fun(10) 調(diào)用此函數(shù)，則s 的值為【6】。(7) 在窗體上畫一個(gè)命令按鈕和一個(gè)文本框，然后編寫命令按鈕的Click 事件過程。 程序運(yùn)行后，在文本框中輸入一串英文字母( 不區(qū)分

26、大小寫 )，單擊命令按鈕，程序可找出未在文本框中輸入的其他所有英文字母，并以大寫方式降序顯示到Text1 中。例如，若在Text1 中輸入的是 abDfdb ，則單擊Comrnand1 按鈕后 Text1 中顯示的字符串是ZYXWVUTSRQPONMLKJIHGEC。請(qǐng)?zhí)羁铡rivate Sub Command1_Click()Dim str As String ， s As String， c As Stringstr=UCase(Text1)S=""C="Z"While c ="A"If lnStr(str,C)=0 Thens

27、=【 7】End Ifc=Chr$(Asc(C)【 8】)WendIf s ""ThenText1=SEnd IfEnd Sub(8) 在 n 個(gè)運(yùn)動(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 Integern=Textlr=Text2Text3=fun(n)/fun(【 9】)/fun(r)End SubFunction fun(n As Integer)As