1、聲明：本資料由 大家論壇計(jì)算機(jī)考試專區(qū) HYPERLINK http:/bbs.topsa/index_49.html http:/bbs.topsa/index_49.html 收集整理，轉(zhuǎn)載請(qǐng)注明出自 HYPERLINK http:/bbs.topas http:/bbs.topas更多計(jì)算機(jī)考試信息，考試真題，模擬題： HYPERLINK http:/bbs.topsa/index_49.html http:/bbs.topsa/index_49.html 大家論壇，學(xué)習(xí)的天堂！2007年4月計(jì)算機(jī)等級(jí)考試二級(jí)VB程序設(shè)計(jì)筆試試卷一、 選擇題（第小題2分,共70分）下列各題A）、B）、C

2、）、D）四個(gè)選項(xiàng)中，只有一個(gè)選項(xiàng)是正確的。請(qǐng)將正確選項(xiàng)填涂在答題卡相應(yīng)位置上，答在試卷上不得分。（1） 下列敘述中正確的是（ ）A）算法的效率只與問(wèn)題的規(guī)模有關(guān)，而與數(shù)據(jù)的 HYPERLINK /incsearch/search.asp?key=%B4%E6%B4%A2 t _blank 存儲(chǔ)結(jié)構(gòu)無(wú)關(guān)B）算法的時(shí)間復(fù)雜度是指執(zhí)行算法所需要的計(jì)算工作量C）數(shù)據(jù)的邏輯結(jié)構(gòu)與存儲(chǔ)結(jié)構(gòu)是一一對(duì)應(yīng)的D）算法的時(shí)間復(fù)雜度與空間復(fù)雜度一定相關(guān) （2） 在結(jié)構(gòu)化程序設(shè)計(jì)中，模塊劃分的原則是（ ）A）各模塊應(yīng)包括盡量多的功能B）各模塊的規(guī)模應(yīng)盡量大C）各模塊之間的聯(lián)系應(yīng)盡量緊密D）模塊內(nèi)具有高內(nèi)聚度、模塊間具有

3、低耦合度（3） 下列敘述中正確的是（ ）A） HYPERLINK /incsearch/search.asp?key=%C8%ED%BC%FE%B2%E2%CA%D4 t _blank 軟件測(cè)試的主要目的是發(fā)現(xiàn)程序中的錯(cuò)誤B）軟件測(cè)試的主要目的是確定程序中錯(cuò)誤的位置C）為了提高軟件測(cè)試的效率，最好由程序編制者自己來(lái)完成軟件的測(cè)試工作D）軟件測(cè)試是證明軟件沒(méi)有錯(cuò)誤（4） 下面選項(xiàng)中不屬于 HYPERLINK /incsearch/search.asp?key=%C3%E6%CF%F2%B6%D4%CF%F3%B3%CC%D0%F2%C9%E8%BC%C6 t _blank 面向?qū)ο蟪绦蛟O(shè)計(jì)特征的

4、是（ ）A）繼承性 B）多態(tài)性 C）類比性 D）封裝性（5） 下列對(duì)隊(duì)列的敘述正確的是（ ）A）隊(duì)列屬于非線性表B）隊(duì)列按“先進(jìn)后出”原則組織數(shù)據(jù)C）隊(duì)列在隊(duì)尾刪除數(shù)據(jù)D）隊(duì)列按“先進(jìn)先出”原則組織數(shù)據(jù)（6） 對(duì)下列二叉樹(shù)（ ） A）DYBEAFCZX B）YDEBFZXCAC）ABDYECFXZ D）ABCDEFXYZ （7）某二叉樹(shù)中有n個(gè)度為2的結(jié)點(diǎn),則該二叉樹(shù)中的葉子結(jié)點(diǎn)數(shù)為（ ）A）n+1 B）n-1 C）2n D）n/2（8）在下列關(guān)系運(yùn)算中,不改變關(guān)系表中的屬性個(gè)數(shù)但能減少元組個(gè)數(shù)的是（ ）A）并 B）交 C）投影 D）笛卡兒乘積（9）在ER圖中,用來(lái)表示實(shí)體之間聯(lián)系的圖形是（

5、）A）矩形 B）橢圓形 C）菱形 D）平行四邊形（10）下列敘述中錯(cuò)誤的是（ ）A）在數(shù)據(jù)庫(kù)系統(tǒng)中,數(shù)據(jù)的物理結(jié)構(gòu)必須與邏輯結(jié)構(gòu)一致B）數(shù)據(jù)庫(kù)技術(shù)的根本目標(biāo)是解決數(shù)據(jù)共享問(wèn)題C）數(shù)據(jù)庫(kù)技術(shù)是指己有數(shù)據(jù)管理系統(tǒng)的基礎(chǔ)上建立數(shù)據(jù)庫(kù)D）數(shù)據(jù)庫(kù)系統(tǒng)需要 HYPERLINK /incsearch/search.asp?key=%B2%D9%D7%F7%CF%B5%CD%B3 t _blank 操作系統(tǒng)的支持（11）下面可以正確定義2個(gè)整形變量和1個(gè)字符串變量的語(yǔ)句的是（ ）A）Dim n,m AS Interger,s AS String B）Dim a%,b$,c AS StringC）Dim a A

6、S Integer,b,c AS String D）Dim x%,y AS Integer,z AS String（12）下列表述中不能判斷x是否為偶數(shù)的是（ ）A）x/2=Int（x/2） B）x Mod 2=0 C）Fix（x/2）=x/2 D）x2=0（13）設(shè)在名稱為Myform的窗體上只有1個(gè)名稱為C1的命令按鈕,下面敘述中正確的是（ ）A）窗體的Click事件過(guò)程的過(guò)程名是Myform_ClickB）命令按鈕的Click事件過(guò)程名是C1_ClickC）命令按鈕的Click事件過(guò)程的過(guò)程名是Command1_ClickD) 上述3種名稱讀市錯(cuò)誤的 （14）設(shè)窗體上有1個(gè)滾動(dòng)條,要求單

7、擊滾動(dòng)條右端的按鈕一次,滾動(dòng)條移動(dòng)一定的刻度值,決定此刻度的屬性是（ ）A）Max B）Min C）SmallChange D）LargeChang（15）1個(gè)二維數(shù)組可以存放1個(gè)矩形.在程序開(kāi)始有語(yǔ)句Option Base 0,則下面定義的數(shù)組中正好可以存放1個(gè)4*3矩陣（即只有12個(gè)元素）的是（ ）A）Dim a（-2 To 0,2） AS Integer B）Dim a（3,2） AS IngegerC）Dim a（4,3）AS Ingeger D）Dim a（-1 To -4,-1 To -3）AS Ingeger（16）若設(shè)置了文本框的屬性PasswordChar=”$”,則運(yùn)行程序

8、時(shí)向文本框中輸入8個(gè)任意字符后,文本框中顯示的是（ ）A）8個(gè)”$” B）1個(gè)”$” C）8個(gè)”*” D）無(wú)任何內(nèi)容（17）設(shè)在窗體上有1個(gè)名稱為Combo1的組合框,含有5個(gè)項(xiàng)目,要?jiǎng)h除最后一項(xiàng),正確的語(yǔ)句是（ ）A）Combo1.RemoveItem Combo1.Text B） Combo1.RemoveItem4C） Combo1.RemoveItem Combo1.ListCount D） Combo1.RemoveItem5（18）工程中有2個(gè)窗體,名稱分別為Form1.Form2,Form1為啟動(dòng)窗體,該窗體上有命令按鈕Command1,要求程序運(yùn)行后單擊該命令按鈕時(shí)顯示Form

9、2,則按鈕的Click事件過(guò)程應(yīng)該是（ ）A）Private Sub Command1_Click（ ） B）Private Sub Command1_Click（ ）Form2.Show Form2.VisibleEnd Sub End SubC）Private Sub Command1_Click（ ） D）Private Sub Command1_Click（ ） Load Form2 Form2.LoadEnd Sub End Sub（19）若在某窗體模塊中有如下事件過(guò)程（ ）Private Sub Command1_Click（Index AS Integer） End Sub 則以

10、下敘述中正確的是A）此事件過(guò)程與不帶參數(shù)的事件過(guò)程沒(méi)有區(qū)別B）有1個(gè)名稱為Command1的窗體,單擊此窗體則執(zhí)行此事件過(guò)程C）有1個(gè)名稱為Command1的空件數(shù)組,數(shù)組中有多個(gè)不同類型控件D）有1個(gè)名稱為Command1的空件數(shù)組,數(shù)組中有多個(gè)相同類型控件（20）以下循環(huán)語(yǔ)句中在任何情況下都至少執(zhí)行一次循環(huán)體的是（ ）A）Do While B）While 循環(huán)體 循環(huán)體 Loop WendC）Do D）Do Until 循環(huán)體 循環(huán)體 Loop Until Loop （21）在窗體上有1個(gè)名為Cd1的通用對(duì)話框,為了在運(yùn)行程序時(shí)打開(kāi)保存文件對(duì)話框,則在程序總應(yīng)使用的語(yǔ)句是（ ）A）Cd1.

11、Action=2 B）Cd1.Action=1C）Cd1.ShowSave=Ture D）Cd1.ShowSave=0 （22）下面關(guān)于菜單的敘述中錯(cuò)誤的是（ ）A）各級(jí)菜單中的所有菜單項(xiàng)的名稱必須唯一B）同一子菜單中的菜單項(xiàng)名稱必須唯一,但不同子菜單中的菜單項(xiàng)名稱可以相同C) ）彈出式菜單用PopupMenu方法彈出D）彈出式菜單也用菜單編輯器編輯 （23）已知有下面的過(guò)程（ ） Private Sub proc1（a As Integer,b As String,Optional x As Boolean） End Sub 正確調(diào)用此過(guò)程的語(yǔ)句是A）Call procl（5） B）Call

12、 proc1 5,”abc”,FalseC）proc1（12,”abc”,True） D）proc1 5, “abc”（24）在窗體上有一個(gè)文件名稱為T(mén)ext1的文本框和1個(gè)名稱為Command1的命令按鈕，要求在程序執(zhí)行時(shí)，每單擊命令按鈕一次，文本框向右移動(dòng)一定距離。下面能夠正確實(shí)現(xiàn)上述功能的程序是（ ）A）Private Sub Command1_Click（） B） Private Sub Command1_Click（） Text1.Left=100 Text1.Left= Text1.Left-100 End Sub End Sub C）Private Sub Command1_Cl

13、ick（） D） Private Sub Command1_Click（） Text1.Move.Text.Left+100 Text1.Move.Text.Left End Sub End Sub （25）某人創(chuàng)建了1個(gè)工程，其中的窗體名稱為Form1;之后又添加了1個(gè)名為Form2的窗體，并希望程序執(zhí)行時(shí)先顯示Form2窗體，那么，他需要做的工作是（ ）A）在工程屬性對(duì)話框中把“啟動(dòng)對(duì)象”設(shè)置為Form2B）在Form1的Load事件過(guò)程中加入語(yǔ)句 Load Form2C）在Form2的Load事件過(guò)程中加入語(yǔ)句Form2.ShowD）在Form2的TabIndex屬性設(shè)置為，把Form1

14、的TabIndex屬性設(shè)置為 （26）窗體上有個(gè)名稱為T(mén)ext1的文本框和個(gè)名稱為Command1的命令按鈕。要求程序運(yùn)行時(shí)，單擊命令按鈕，就可以把文本框中的內(nèi)容寫(xiě)到文件out.txt中，每次寫(xiě)入的內(nèi)容附加到文件原有內(nèi)容之后。下面能夠?qū)崿F(xiàn)上述功能的程序是（ ）A）Private Sub Command1_Click（） B） Private Sub Command1_Click（） Open “out.txt” For Inpit As#1 Open “out.txt” For Outpit As#1 Print#1,Text1.Text Print#1,Text1.Text Close#1

15、Close#1 End Sub End SubC）Private Sub Command1_Click（） D） Private Sub Command1_Click（） Open “out.txt” For Append As#1 Open “out.txt” For Random As#1 Print#1,Text1.Text Print#1,Text1.Text Close#1 Close#1 End Sub End Sub （27）為計(jì)算1+3+5+99的值，某人編程如下 k=1 s=0 While k=99 k=k+2 : s=s+k Wend Print s在調(diào)試時(shí)發(fā)現(xiàn)運(yùn)行結(jié)果有錯(cuò)

16、誤，需要修改。下列錯(cuò)誤原因和修改方案中正確的是（ ）A）While Wend循環(huán)語(yǔ)句錯(cuò)誤，應(yīng)改為For k=1 To 99 Next kB）循環(huán)條件錯(cuò)誤，應(yīng)改為Whlie k99C）循環(huán)前的賦值語(yǔ)句k=1錯(cuò)誤，應(yīng)改為k=0D）循環(huán)中兩條賦值語(yǔ)句的順序錯(cuò)誤，應(yīng)改為s=s+k : k=k+2 （28）下面程序在調(diào)試時(shí)出現(xiàn)了死循環(huán) Private Sub Command1_Click（） n=InputBox（“請(qǐng)輸入一個(gè)整數(shù)”） Do If n Mod 2=0 Then n=n+1 Else n=n+2 Else If Loop Until n=1000End Sub下面關(guān)于死循環(huán)的敘述中正確的是

17、（ ）A）只有輸入的n是偶數(shù)時(shí)才會(huì)出現(xiàn)死循環(huán)，否則不會(huì)B）只有輸入的n是奇數(shù)時(shí)才會(huì)出現(xiàn)死循環(huán)，否則不會(huì)C）只有輸入的n是大于1000的整數(shù)時(shí)才會(huì)出現(xiàn)死循環(huán)，否則不會(huì)D）輸入任何整數(shù)都會(huì)出現(xiàn)死循環(huán) （29）在窗體上有1個(gè)名稱為CommonDialog1的通用對(duì)話框和1個(gè)名稱為Command1的命令按鈕，以及其他一些控件。要求在程序運(yùn)行時(shí)，單擊Command1按鈕，則顯示打開(kāi)文件對(duì)話框，并在選擇或輸入了1個(gè)文件名后，就可以打開(kāi)該文件。以下是Command1_Click事件過(guò)程的兩種算法 算法1： Private Sub Command1_Click（） CommonDialog1.ShowOpen

18、 Open CommonDialog1.FileName For Input As#1End Sub算法2：Private Sub Command1_Click（） CommonDialog1.ShowOpen IfCommonDialog1.FileName”Then Open CommonDialog1.FileName For Input As#1 End IfEnd Sub下面關(guān)于這兩種算法的敘述中正確的是（ ）A）顯示打開(kāi)文件對(duì)話框后若未選擇或輸入任何文件名，則算法2會(huì)出錯(cuò)，算法1不會(huì)B） 顯示打開(kāi)文件對(duì)話框后若未選擇或輸入任何文件名，則算法1會(huì)出錯(cuò)，算法2不會(huì)C）兩種算法的執(zhí)行結(jié)果

19、完全一樣D）算法1允許輸入的文件名中含有空格，而算法2不允許 （30）窗體上有1個(gè)名稱為L(zhǎng)ist的列表框，其中已經(jīng)輸入了若干個(gè)項(xiàng)目（如圖所示）：還有2個(gè)文本框，名稱分別為T(mén)ext1、Text2, 1個(gè)名稱為Command1的命令按鈕，并有以下程序 Private Sub Command1_Click（） Dim str As String, s As String, k As Integer s=Text1 Str=” For k=List1.ListCount-1 to 0 Step-1 If InStr（List.List（k）,s）0 then str=str&List.List（k）&

20、” ” End If Next k If str=”Then Text2=”沒(méi)有匹配的項(xiàng)目” Else Text2=str End If End Sub程序運(yùn)行時(shí)，在Text1中輸入“京”，單擊命令按鈕，則在Text2中顯示的內(nèi)容是（ ） A） 京 B） 北京 南京 C） 南京 D） 沒(méi)有匹配的項(xiàng)目 （31）在窗體上畫(huà)1一個(gè)名稱為Command1的命令按鈕，并編寫(xiě)以下程序Private Sub Command1_Click（） Print fun（“ABCDEFG”）End SubFunction fun（st As String） As String stlen=Len（st） temp=”

21、 For k temp=temp=Mid(st,k,l)+Mid(st,stlen-k+1，1) Next k fun=tempEnd Function程序運(yùn)行時(shí)，單擊命令按鈕，則窗體上顯示的是（ ）A）ABCDEFG B）AGBFCE C）GFEDCBA D）AGBFCED （32）在窗體上先后畫(huà)2個(gè)圖片框，名稱分別為Picture1和banana,banana中添加了香蕉圖片（見(jiàn)圖1），且將banana.DragMode屬性設(shè)置為1。要求程序運(yùn)行時(shí)，可以用鼠標(biāo)把banana拖拽到Picture1中（見(jiàn)圖2）。能實(shí)現(xiàn)此功能的事件過(guò)程是（ ）A）Priate Sub Form_DragDrop

22、（Source As Control,X As Single,Y As Single banana.Move Picture1.Left+X,Picture1.Top+Y） End Sub B）Private Sub banana _DragDrop（Source As Control,X As Single,Y As Single ） Source.Move Picture1.Left+X.Picture1.Top+Y End Sub C）Private Sub Picture1_DragDrop（Source As Control,X As Single,Y As Single ） Sou

23、rce.Move Picture1.Left+X.Picture1.Top+YEnd Sub D）Private Sub Picture1_DragDrop（Source As Control,X As Single,Y As Single ） banana.Move banana.Left+X, banana.Top+Y End Sub （33）在窗體上畫(huà)1個(gè)名稱為Command1的命令按鈕，然后編寫(xiě)如下事件過(guò)程 Option Base 1 Pribate Sub Command1_Click（） Dim a（5.5） As Integer For i=1 To 5 For j=1to5 a

24、（i+j）*510 Next j Next i s=0 For i=1 To 5 s=s+a（i,i） Next i Print s End Sub 程序運(yùn)行后，單擊命令按鈕，輸出結(jié)果是（ ）A） 15 B）13 C）11 D）9 （34）在窗體上從左到右有Text1、Text2兩個(gè)文本框（見(jiàn)圖），要求程序運(yùn)行時(shí)，在Text1中輸入1個(gè)分?jǐn)?shù)后按回車鍵，則判斷分?jǐn)?shù)的合法性，若分?jǐn)?shù)為0100中的1個(gè)數(shù)，周圍光標(biāo)移到Text2中；否則光標(biāo)不動(dòng)，并彈出對(duì)話框顯示“分?jǐn)?shù)錯(cuò)”，下面程序中正確的是（ ）A）Private Sub Text1_KeyPress（KeyAscii AS Integer） If

25、KeyAscii=13 Then 回車符的ACSII碼是13 a=Val（Text1） If a=0 or a=0 And a=100 Then Text1.SetFocusElse Text2. SetFocus : MsgBox（“分?jǐn)?shù)錯(cuò)”）End IfEnd IfEnd SubC） Private Sub Text1_KeyPress（KeyAscii AS Integer） If KeyAscii=13 Then 回車符的ACSII碼是13 a=Val（Text1） If a100 Then Text2.SetFocusElse Text1. SetFocus : MsgBox（“分?jǐn)?shù)

26、錯(cuò)”）End IfEnd IfEnd SubD） Private Sub Text1_KeyPress（KeyAscii AS Integer） If KeyAscii=13 Then 回車符的ACSII碼是13 a=Val（Text1） If a=0 And a=100 Then Text2.SetFocusElse Text1. SetFocus : MsgBox（“分?jǐn)?shù)錯(cuò)”）End IfEnd IfEnd Sub（35）在窗體上畫(huà)2個(gè)命令按鈕，名稱分別為Command1、command2，并編寫(xiě)如下程序 Const n=5,m=4 Dim a（m,n） Private Sub Comma

27、nd1_Click（） K=1 For i=1 To m For j=1 To n a（i,j）=k k=k+1 Next j Next iEnd SubPrivate Sub Command2_Click（） Summ=0 For i=1 To m For j=1 To n If i=1 Or i=m Then Summ=summ+a（i,j） Else If j=I Or j=n Then Summ=summ+a（i,j） End If End If Next jNext iPrint summEnd Sub過(guò)程Command1_Click（）的作用是二維數(shù)組a 中存放1個(gè) m行n列的矩陣

28、；過(guò)程Command2_Click（）的作用是（ ）A）計(jì)算矩陣外圍一圈元素的累加和B）計(jì)算矩陣除外一圈以外的所有元素的累加和C）計(jì)算矩陣第1列和最后一列元素的累加和D）計(jì)算矩陣第1行和最后一行元素的累加和 二、填空題（每空2分，共30分）請(qǐng)將每一個(gè)空的正確答案寫(xiě)在答題紙上115序號(hào)的橫線上，答在試卷上，答在試卷上不得分。注意：以命令關(guān)鍵字填空的必須寫(xiě)完整。 （1）在深度為7的滿二叉樹(shù)中，度為2的結(jié)點(diǎn)個(gè)數(shù)為_(kāi)。 （2） HYPERLINK /incsearch/search.asp?key=%C8%ED%BC%FE%B2%E2%CA%D4 t _blank 軟件測(cè)試分為白箱（盒）測(cè)試和黑箱（盒

29、）測(cè)試，等價(jià)類劃分法屬于_。 （3）在數(shù)據(jù)庫(kù)系統(tǒng)中，實(shí)現(xiàn)各種數(shù)據(jù)管理功能的核心軟件稱為_(kāi)。 （4）軟件生命周期可分為多個(gè)階段，一般分為定義階段、開(kāi)發(fā)階段和維護(hù)階段。編碼和測(cè)試屬于_階段。 （5） 在結(jié)構(gòu)化分析使用的數(shù)據(jù)流圖（DFD）中，利用 對(duì)其中的圖形元素進(jìn)行確切解釋。 （6） 下面程序的功能是從鍵盤(pán)輸入1大于100的整數(shù)m，計(jì)算并輸出滿足不等式1+22+32 +42 +.+n2m的最大的n。請(qǐng)?zhí)羁?Private Sub Command1_Click（） Dim s ,m,n AS Integer m=Val（InputBox（“請(qǐng)輸入一個(gè)大于100的整數(shù)”） n= s=0 Do Whil

30、e sm n=n+1 s=s+n*nLoopPrint “滿足不等式的最大n是 n-1 End Sub （7）下面程序的功能是把文件file11.txt中重復(fù)字符去掉后（即若有多個(gè)字符相同，則只保留1個(gè)）寫(xiě)入文件file2.txt。請(qǐng)?zhí)羁铡rivate Sub Command1_Click（）Dim inchar AS String,temp AS String,outchar AS StringOutchar=” ”O(jiān)pen=”file1.txt” For Input AS #1Open=”file2.txt” For Output AS n=LOF（ ）inchar=Input$（n,1）For k=1 To n temp=Mid（inchar,k,1）If InStr（outchar,temp