月計(jì)算機(jī)二級(jí)vb試題及答案

1、2012年3月全國(guó)計(jì)算機(jī)等級(jí)考試二級(jí)筆試試卷  Visual Basic語言程序設(shè)計(jì)  （考試時(shí)間90分鐘，滿分100分）  一、選擇題（每小題2分，共70分）  下列各題A)、B)、C)、D)四個(gè)選項(xiàng)中，只有一個(gè)選項(xiàng)是正確的，請(qǐng)將正確選項(xiàng)涂在答題卡相應(yīng)位置上，答在試卷上不得分。  （1） 下列敘述正確的是（）。  A) 循環(huán)隊(duì)列是隊(duì)列的一種鏈?zhǔn)酱鎯?chǔ)結(jié)構(gòu)  B循環(huán)隊(duì)列是隊(duì)列的一種順序存儲(chǔ)結(jié)構(gòu)  C循環(huán)隊(duì)列是非線性結(jié)構(gòu)  D循環(huán)隊(duì)列是一種邏輯結(jié)構(gòu)  （2）下列敘述正確

2、的是（）。  A) 棧是一種先進(jìn)先出的線性表  B隊(duì)列是一種后進(jìn)后出的線性表  C棧和隊(duì)列都是非線性結(jié)構(gòu)  D以上三種說法都不對(duì)  （3）一棵二叉樹共有25個(gè)結(jié)點(diǎn)，其中5個(gè)是葉子結(jié)點(diǎn)，則度為1的結(jié)點(diǎn)數(shù)為（）。  A16  B10  C6  D4  （4）在下列模式中，能夠給出數(shù)據(jù)庫物理存儲(chǔ)結(jié)構(gòu)與物理存取方法的是（）。  A外模式  B內(nèi)模式  C概念模式  D邏輯模式  （5）在滿足實(shí)體完整性約束的條件下（）。  A一個(gè)關(guān)系中

3、應(yīng)該有一個(gè)或多個(gè)候選關(guān)鍵字  B一個(gè)關(guān)系中只能有一個(gè)候選關(guān)鍵字  C一個(gè)關(guān)系中不許有多個(gè)候選關(guān)鍵字  D一個(gè)關(guān)系中可以沒有候選關(guān)鍵字  （6）有三個(gè)關(guān)系R、S和T如下：（）。  則由關(guān)系R和S得到關(guān)系T的操作時(shí)  A自然連接  B并  C交  D差  （7）軟件生命周期中的活動(dòng)不包括（）。  A市場(chǎng)調(diào)研  B需求分析  C軟件測(cè)試  D軟件維護(hù)  （8）下面不屬于需求分析階段任務(wù)的是（）。  A確定軟件系統(tǒng)的功能需求  B確定

4、軟件系統(tǒng)的性能需求  C需求規(guī)格說明書評(píng)審  D制定軟件集成測(cè)試計(jì)劃  （9）在測(cè)試方法中，設(shè)計(jì)測(cè)試用例的主要根據(jù)是（）。  A程序內(nèi)部邏輯  B程序外部功能  C程序數(shù)據(jù)結(jié)構(gòu)  D程序流程圖  （10）在軟件設(shè)計(jì)中不使用的工具是（）。  A系統(tǒng)結(jié)構(gòu)圖  BPAD圖  C數(shù)據(jù)流圖（DFD圖）  D程序流程圖  （11）以下合法的VB變量名是（）。  Acase Bname10 Ct-name Dx*y  （12）設(shè)x

5、是小于10的非負(fù)數(shù)。對(duì)此陳述，以下正確的VB表達(dá)式是（）。  A0x<10  B0<=x<10  Cx>=0 and x<10  Dx>=0 or x<=10  （13）以下關(guān)于窗體的敘述中錯(cuò)誤的是（）。  A窗體的Name屬性用于標(biāo)識(shí)一個(gè)窗體  B運(yùn)行程序時(shí)，改變窗體大小，能夠觸發(fā)窗體的Resize事件  C窗體的Enabled屬性為False時(shí)，不能響應(yīng)單擊窗體的事件  D程序運(yùn)行期間，可以改變Name屬性值 

6、 （14）下面定義窗體級(jí)變量a的語句中錯(cuò)誤的是（）。  ADim a%  Bprivate a%  CPrivate a As Integer  DStatic a%  （15）表達(dá)式Int(Rnd(0)*50)所產(chǎn)生的隨機(jī)數(shù)范圍是（）。  A （0，50）  B （1，50）  C （0，49）  D （1，49）  （16）設(shè)x=5，執(zhí)行語句Print x=x+10，窗體上顯示的是（

7、）。  A15 B5 CTrue DFalse  （17）設(shè)有如下數(shù)組聲明語句：  Dim arr（-2 to 2,0 to 3）AS Integer  該數(shù)組所包含的數(shù)組元素個(gè)數(shù)是（）。  A20 B16 C15D12  （18）現(xiàn)有由多個(gè)單選按鈕構(gòu)成的控件數(shù)組，用于區(qū)別該控件數(shù)組中各控件的屬性是（）。  AName  BIndex  CCaption  DValue  （1

8、9）設(shè)有分段函數(shù)： ASelect Case xCase Is<0Y=5Case Is <=5,Is>0 Y=2*x Case elseEnd selectBIf x<0 Theny=5Elseif x<=5 theny=2*xElse y=x*x+1End ifCy=iifx<0.5，iif(x<=5.2*x，x*x+1) DIf x<0 Then y=5If x<=5 and x>=0 then y=2*xIf x>5 then y=x*x+1（20）設(shè)程序中有如下語句： X=inputbox(“輸入”,“數(shù)據(jù)”,

9、100) Print X 運(yùn)行程序，執(zhí)行上述語句，輸入5并單擊輸入對(duì)話框上的“取消“按鈕，則窗體上輸出（）。 A0 B5 C100 D空白 （21）現(xiàn)有如下一段程序： Option Base 1 Private Sub Command1_Click() Dim a a=Array(3,5,7,9) x=1 For i=4 to 1 Step -1 S=s+a ( i )*x x=x*10 Next Print s E

10、nd Sub 執(zhí)行程序，單擊Command1命令按鈕，執(zhí)行上述事件過程，輸出結(jié)果是（）。 A9753 B3579 C35 D79 （22）設(shè)有一個(gè)命令按鈕Commsand1的事件過程以及一個(gè)函數(shù)過程。程序如下： Private Sub Command1_Click(0 Static x As Integer x=f(x+5) Cls Print x End Sub Private Funtion f(x As integer)As In

11、teger F=x+x End Funtion 連續(xù)單擊命令按鈕3次，第3次單擊命令按鈕后，窗體上顯示的計(jì)算結(jié)果是（）。 A10 B30 C60 D70 （23）以下關(guān)于菜單設(shè)計(jì)的敘述中錯(cuò)誤的是（）。 A各菜單項(xiàng)可以構(gòu)成控件數(shù)組 B每個(gè)菜單項(xiàng)可以看成是一個(gè)控件 C設(shè)計(jì)菜單是，菜單項(xiàng)的“有效” 表選，即有效(E),表示該菜單項(xiàng)不顯示 D菜單項(xiàng)只響應(yīng)單擊事件 （24）以下關(guān)于多窗體的敘述中，正確的是（）。 A任何時(shí)刻，只有一個(gè)當(dāng)前窗體 B向一個(gè)工程添加多個(gè)窗體，存盤后生成一個(gè)窗體文件 C打開一個(gè)窗體時(shí)，其他窗體自動(dòng)關(guān)閉 D只有第一個(gè)建立的窗體才是啟

12、動(dòng)窗體 （25）窗體上有一個(gè)名稱為CommonDialog1的通用對(duì)話框，一個(gè)名稱為Command1的命令按鈕，并有如下事件過程： Private Sub Command1_Click() CommandDialog1.DefaultExt=”doc” CommandDialog1.FileName=”VB.txt” CommandDialog1.FileName=”All(*.*)|*.*|Word|*.Doc|” CommandDialog1.FileName=1 CommandDialog1.ShowSave End Sub 運(yùn)行上述程序，如下敘述正確的是（

13、）。 A 打開的對(duì)話框中文件“保存類型”框中顯示“All(*.*)” B 實(shí)現(xiàn)保存文件的操作，文件名是VB.txt C DefaultExt屬性與FileName屬性所指明的文件類型不一致，程序出錯(cuò) D 對(duì)話框的Filter屬性沒有指出txt類型，程序運(yùn)行出錯(cuò) （26）設(shè)程序中有如下數(shù)組定義和過程調(diào)用語句： Dim a(10) As Integer Call p(a) 如下過程定義中，正確的是（）。 A Private Sub p(a As Integer) B&#

14、160;Private Sub p(a() As Integer) C Private Sub p(a(10) As Integer) D Private Sub p(a(n) As Integer) （27）若要獲得組合框中輸入的數(shù)據(jù)，可使用的屬性是（）。 AListindex BCaption CText DList （28）在窗體上畫兩個(gè)名稱分別為Text1、Text2的文本框。Text1的Text屬性為“Database”， 如圖所示。 現(xiàn)有如下事

15、件過程： Private Sub Text1_Change() Text2.Text=Mid(Text1,1,1) End Sub 運(yùn)行程序，在文本框Text1中原有字符之前輸入a，Text2中顯示的是：（）。 A DataA B DataB C aData  D aBase （29）有如下程序： Option Base ! Private Sub Command1_Click() Dim arr(10) arr=Array(10,35,28,90,54,

16、68,72,90) For Each a In arr If a>50 Then Sum=Sun+a End If Next a End Sub 運(yùn)行上述程序時(shí)出現(xiàn)錯(cuò)誤，錯(cuò)誤之處是（）。 A 數(shù)組定義語句不對(duì)，應(yīng)改為Dim arr B 沒有指明For循環(huán)的終值 C 應(yīng)在For語句之前增加Sum=0 D Next a應(yīng)改為Next （30）要求產(chǎn)生10個(gè)隨機(jī)整數(shù)，存放在數(shù)組arr中，從鍵盤輸入要?jiǎng)h除的數(shù)組元素的下標(biāo)，將該元素中的數(shù)組刪除，后面

17、元素中的數(shù)據(jù)依次前移，并顯示刪除后剩余的數(shù)據(jù)，現(xiàn)有如下程序： Option Base 1 Private Sub Command1_Click() Dim arr(10) AS Integer  For i=1 to 10 arr(i)=int (Rnd*100) Print arr(i); Next x=inputbox(“輸入1到10的一個(gè)整數(shù)：”) For i=x+1 to 10 循環(huán)2 arr(i-1)=arr(i)

18、Next For i=1 to 10 循環(huán)3 Print arr(i); Next End Sub 程序運(yùn)行后發(fā)現(xiàn)顯示的結(jié)果不正確，應(yīng)該進(jìn)行的修改是（）。 A 產(chǎn)生隨機(jī)數(shù)時(shí)不使用Int函數(shù) B 循環(huán)2的初始值應(yīng)為i=x C 數(shù)組定義改為Dim a(11) as integer D 循環(huán)3是循環(huán)終值應(yīng)改為9 （31）使用驅(qū)動(dòng)器列表框Drive1、目錄列表框Fiel1時(shí)，需要設(shè)置控件的同步，以下能夠正確設(shè)置兩個(gè)同步的命令是（）。 ADir1.path=Drive.pat

19、e BFile1.path=Dir1.pate CFile1.path=Drive1.pate DDrive1.Drive=Dir1.pate （32） 以下關(guān)于彈出式菜單的敘述中，錯(cuò)誤的是（）。 A一個(gè)窗體只能有一個(gè)彈出式菜單 B彈出式菜單在菜單編輯器中建立 C彈出式菜單的菜單名（主菜單項(xiàng)）的“可見”屬性通常設(shè)置為False D彈出式菜單通過窗體的PopupMenu方法顯示 （33）有如下程序： Private Type stu X As String Y As Integer End Type Private&

20、#160;Sub Command1_Click() Dim a As stu a.x=”ABCD” a.y=12345 Print a End Sub 程序運(yùn)行時(shí)出現(xiàn)錯(cuò)誤，錯(cuò)誤的原因是（）。 A Type定義語句沒有放在標(biāo)準(zhǔn)模塊中 B 變量聲明語句有錯(cuò) C 賦值語句不對(duì) D 輸出語句Print不對(duì) （34）在窗體上畫兩個(gè)名稱分別為Text1、Text2的文本框，一個(gè)名稱為L(zhǎng)able1的標(biāo)簽。窗體外觀如圖a所示。要求當(dāng)改變?nèi)我粋€(gè)文本框的內(nèi)容，就會(huì)將該文本框的內(nèi)容顯示在標(biāo)簽中，如圖b所示。實(shí)現(xiàn)上述功

21、能如下： Pivate Sub Text1_Change() Call ShowText(Text1) End Sub Private Sub Text2 Change() Call ShowText(Text2) End Sub private Sub showText(T As TextBox) Label1.Caption=”文本框中的內(nèi)容是：”&T.Text Enb Sub 關(guān)于上述程序，以下敘述中錯(cuò)誤的是（）。 A ShowTe

22、xt過程的參數(shù)類型可以是Control B ShowText過程的參數(shù)類型可以是Variant C 兩個(gè)過程調(diào)用語句有錯(cuò)，應(yīng)分別改為Call ShowText（Text1.Text）、CallShowText（Text2.Text） D ShowText過程中的T是控件變量 （35）設(shè)有打開文件的語句如下： Open“test.dat” For Random As #1 要求把變量a中的數(shù)據(jù)保存到該文件中，應(yīng)該使用的語句是（）。 A Inpur #1，a B Write #1

23、.a C Put #1，.a D Get #1.a二、 填空題（每空2分，共30分）請(qǐng)將每空的正確答案寫在答題卡【1】【15】序號(hào)的橫線上，答在試卷上不得分。（1） 在長(zhǎng)度為n的順序存儲(chǔ)的線性表中刪除一個(gè)元素，最壞情況下需要移動(dòng)表中的元素個(gè)數(shù)為 （）。（2）設(shè)循環(huán)隊(duì)列的存儲(chǔ)空間為Q（1：30），初始狀態(tài)為Front=rear=30.現(xiàn)經(jīng)過一系列入隊(duì)與退隊(duì)運(yùn)算后，front=16，rear=15，則循環(huán)隊(duì)列中有（）個(gè)元素。（3）數(shù)據(jù)庫管理系統(tǒng)提供的數(shù)據(jù)語言中，負(fù)責(zé)數(shù)據(jù)的增、刪、改和查詢的是（）。（4）在將E-R圖轉(zhuǎn)換到關(guān)系模式時(shí)，實(shí)體和聯(lián)系都可以

24、表示成（）。（5）常見的軟件工程方法有結(jié)構(gòu)化方法和面向?qū)ο蠓椒?，類、繼承以及多態(tài)性等概念屬于（）。（6）下面的事件過程執(zhí)行時(shí)，可以把Text1文本框中的內(nèi)容寫到文件“file1.txt“中去。請(qǐng)?zhí)羁?。Pivate Sub Command1_Click()Open “file1.txt”For    （6）   As#1print    （7）   Text1.TextClose #1End Sub（7）設(shè)窗體上有一個(gè)名稱為L(zhǎng)able1的標(biāo)簽。程序運(yùn)行時(shí)，單擊鼠標(biāo)左鍵，再移動(dòng)鼠標(biāo)，鼠標(biāo)的

25、位置坐標(biāo)會(huì)實(shí)時(shí)地顯示在Lable1標(biāo)簽中：?jiǎn)螕羰髽?biāo)右鍵則停止實(shí)時(shí)顯示，并將標(biāo)簽中內(nèi)容清除。下面的程序可實(shí)現(xiàn)這一功能，請(qǐng)?zhí)羁?。Dim Down As BooleanPrivate Sub Form _MouseDown(Button As Integer，Shift  As Integer，x As Single，Y As Single)Select Case   （8）   Case 1Down=TrueCase 2Down=FalseEnd SelectEnd SubPrivate Sub Form _MouseMove(Button As Integer，Shift  As Integer，X As Single，Y As Single)If   （9）      （10）   =”X=”& X &”  Y=”& YElseLabel1.Caption=”End ifSub（8）窗體上有List1、List2兩個(gè)列表框，程序運(yùn)行時(shí)，在兩個(gè)列表框中分別選中1個(gè)項(xiàng)目，如圖a所示，單擊名稱為Command1的“交換”按鈕，則把選中的項(xiàng)目互換，互換后的位置不限