1、計(jì)算機(jī)等級(jí)考試二級(jí)VB全真模擬卷（一）一、選擇題 (1) 棧和隊(duì)列的共同特點(diǎn)是A) 都是先進(jìn)先出 B) 都是先進(jìn)后出C) 只允許在端點(diǎn)處插入和刪除元素 D) 沒(méi)有共同點(diǎn)答案： C(2) 已知二叉樹(shù)后序遍歷序列是dabec，中序遍歷序列是debac，它的前序遍歷序列是A) acbed B) decab C) deabc D) cedba答案：D(3) 鏈表不具有的特點(diǎn)是A) 不必事先估計(jì)存儲(chǔ)空間 B) 可隨機(jī)訪問(wèn)任一元素C) 插入刪除不需要移動(dòng)元素 D) 所需空間與線性表長(zhǎng)度成正比答案：B(4) 結(jié)構(gòu)化程序設(shè)計(jì)的3種結(jié)構(gòu)是A) 順序結(jié)構(gòu)、選擇結(jié)構(gòu)、轉(zhuǎn)移結(jié)構(gòu)B) 分支結(jié)構(gòu)、等價(jià)結(jié)構(gòu)、循環(huán)結(jié)構(gòu)C)

2、多分支結(jié)構(gòu)、賦值結(jié)構(gòu)、等價(jià)結(jié)構(gòu)D) 順序結(jié)構(gòu)、選擇結(jié)構(gòu)、循環(huán)結(jié)構(gòu)答案：D(5) 為了提高測(cè)試的效率，應(yīng)該 A) 隨機(jī)選取測(cè)試數(shù)據(jù)B) 取一切可能的輸入數(shù)據(jù)作為測(cè)試數(shù)據(jù)C) 在完成編碼以后制定軟件的測(cè)試計(jì)劃D) 集中對(duì)付那些錯(cuò)誤群集的程序答案：D(6) 算法的時(shí)間復(fù)雜度是指A) 執(zhí)行算法程序所需要的時(shí)間B) 算法程序的長(zhǎng)度C) 算法執(zhí)行過(guò)程中所需要的基本運(yùn)算次數(shù)D) 算法程序中的指令條數(shù)答案：C(7) 軟件生命周期中所花費(fèi)用最多的階段是A) 詳細(xì)設(shè)計(jì) B) 軟件編碼 C) 軟件測(cè)試 D) 軟件維護(hù)答案：D(8) 數(shù)據(jù)庫(kù)管理系統(tǒng)DBMS中用來(lái)定義模式、內(nèi)模式和外模式的語(yǔ)言為 A) C B) Bas

3、ic C) DDL D) DML答案：C(9) 下列有關(guān)數(shù)據(jù)庫(kù)的描述，正確的是A) 數(shù)據(jù)庫(kù)是一個(gè)DBF文件 B) 數(shù)據(jù)庫(kù)是一個(gè)關(guān)系C) 數(shù)據(jù)庫(kù)是一個(gè)結(jié)構(gòu)化的數(shù)據(jù)集合 D) 數(shù)據(jù)庫(kù)是一組文件答案：C(10) 下列有關(guān)數(shù)據(jù)庫(kù)的描述，正確的是A) 數(shù)據(jù)處理是將信息轉(zhuǎn)化為數(shù)據(jù)的過(guò)程B) 數(shù)據(jù)的物理獨(dú)立性是指當(dāng)數(shù)據(jù)的邏輯結(jié)構(gòu)改變時(shí)，數(shù)據(jù)的存儲(chǔ)結(jié)構(gòu)不變C) 關(guān)系中的每一列稱為元組，一個(gè)元組就是一個(gè)字段D) 如果一個(gè)關(guān)系中的屬性或?qū)傩越M并非該關(guān)系的關(guān)鍵字，但它是另一個(gè)關(guān)系的關(guān)鍵字，則稱其為本關(guān)系的外關(guān)鍵字答案：D(11) 關(guān)于Visual Basic"方法"的概念錯(cuò)誤的是A) 方法是對(duì)象

4、的一部分 B) 方法是預(yù)先定義好的操作C) 方法是對(duì)事件的響應(yīng) D) 方法用于完成某些特定的功能答案：C(12) 下列說(shuō)法有錯(cuò)誤的是A) 默認(rèn)情況下，屬性Visible的值為FalseB) 如果設(shè)置控件的Visible屬性為False，則運(yùn)行時(shí)控件會(huì)隱藏C) Visible的值可設(shè)為True或者FalseD) 設(shè)置Visible屬性同設(shè)置Enabled屬性的功能是相同的，都是使控件處于失效狀態(tài)答案：D(13) 下列各控件不包含滾動(dòng)條的控件是A) ListBox B) ComboBox C) TextBox D) LabelBox答案：D(14) 如果在程序中要將c定義為靜態(tài)變量，且為整型數(shù)，則

5、應(yīng)使用的語(yǔ)句是A) Redim a As Integer B) Static a As IntegerC) Public a As Integer D) Dim a As Integer 答案：B(15) 聲明一個(gè)變量為局部變量應(yīng)該用A) Global B) PrivateC) Static D) Public答案：C(16) 執(zhí)行x$=InputBox("請(qǐng)輸入x的值") 時(shí)，在彈出的對(duì)話框中輸入123，在列表框List1選中1個(gè)列表項(xiàng)(數(shù)據(jù)為456) ，使有的值使123456的語(yǔ)句是A) y=x$+List1.List(0) B) y=x$+List1.List(1)

6、C) y=Val(x$) +Val(List1.List(0) ) D) y=Val(x$) & Val(List1.List(1) )答案：A(17) 以下各項(xiàng)中，Visual Basic不能接收的圖形文件是A) .ico文件 B) .jpg文件C) .psd文件 D) .bmp文件答案：C(18) 下面的屬性中，用于自動(dòng)調(diào)整圖像框中圖形內(nèi)容的大小的是A) Picture B) CurentYC) CurrentX D) Stretch答案：D(19) 下面有關(guān)注釋語(yǔ)句的格式，錯(cuò)誤的是A) Rem注釋內(nèi)容B) 注釋內(nèi)容C) a=3:b=2 對(duì)a、b賦值D) Private Sub C

7、ommand1_MouseDown(button As Integer , shift As Integer , _ Rem 鼠標(biāo)按下事件的命令調(diào)用過(guò)程 X As Single ,Y As Single) 答案：D(20) 只有將組合框的Style屬性設(shè)置為何值時(shí)，才能觸發(fā)DblClick事件？A) 0 B) 1 C) 2 D) 3答案：B(21) 以下屬于Visual Basic合法的數(shù)組元素是A) x8 B) x8C) s(0) D) v8正確答案：C(22) 編寫(xiě)如下兩個(gè)事件過(guò)程：Private Sub Form_KeyDown (KeyCode As Integer, Shift As

8、 Integer) Print Chr(KeyCode) End SubPrivate Sub Form_KeyPress(KeyAscii As Integer) Print Chr(KeyAscii) End Sub在一般情況下(即不按住Shift鍵和鎖定大寫(xiě)鍵時(shí)) 運(yùn)行程序，如果按"A"鍵，則程序輸出的結(jié)果是A) A aB) aA C) A A D) aa 正確答案：C(23) 要使菜單項(xiàng)MenuOne在程序運(yùn)行時(shí)失效，使用的語(yǔ)句是A) MenuOne.Visible=True B) MenuOne.Visible=FalseC) MenuOne.Enabled=Tr

9、ue D) MenuOne.Enabled=False答案：D(24) 在窗體上建立通用對(duì)話框需要添加的控件是A) Data控件 B) From控件C) CommonDialog控件 D) VBComboBox控件答案：C(25) 在Visual Basic中，要將一個(gè)窗體加載到內(nèi)存進(jìn)行預(yù)處理但不顯示，應(yīng)使用的語(yǔ)句是A) Load B) ShowC) Hide D) Unload答案：A(26) 運(yùn)行下列程序段后，顯示的結(jié)果為J1=4J2=9If J1<J2 Then Print J2 Else Print J1A) 4 B)9C) 13 D) 49答案：B(27) 下列語(yǔ)句正確的是A)

10、 If AB Then Print "A不等于B"B) If A<>B Then Printf "A不等于B"C) If A<>B Then Print "A不等于B"D) If AB Print "A不等于B"答案：C(28) 下面語(yǔ)句正確的是A) If x<3y And x>y Then y=x3B) If x<3y And x>y Then y=3xC) If x<3y:x>y Then y=x3D) If x<3y And x>y Th

11、en y=x* *3答案：A(29) 計(jì)算z的值，當(dāng)x大于y時(shí)，z=x；否則z=y。下列語(yǔ)句錯(cuò)誤的是A) If x>=y Then z=x : z=y B) If x>=y Then z=x Else z=yC) z=y : If x>=y Then z=x D) If x<=y Then z=y Else z=x答案：A(30) 下列程序段執(zhí)行結(jié)果為x=5y=-6If Not x>0 Then x=y-3 Else y=x+3Print x-y; y-xA) -3 3 B) 5 -9C) 3 -3 D) -6 5答案：A(31) 不能脫離控件(包括客體) 而獨(dú)立

12、存在的過(guò)程是A) 事件過(guò)程 B) 通用過(guò)程C) Sub過(guò)程 D) 函數(shù)過(guò)程答案：A(32) Sub過(guò)程與Function過(guò)程最根本的區(qū)別是A) Sub過(guò)程可以用Call語(yǔ)句直接使用過(guò)程名調(diào)用，而Function過(guò)程不可以B) Function過(guò)程可以有形參，Sub過(guò)程不可以C) Sub過(guò)程不能返回值，而Function過(guò)程能返回值D) 兩種過(guò)程參數(shù)的傳遞方式不同答案： C(33) 單擊命令按鈕時(shí)，下列程序的執(zhí)行結(jié)果為Private Sub Command1_Click() Dim x As Integer, y As Integerx=12:y=32 Call Proc(x,y) Print

13、x; yEnd SubPublic Sub Proc(n As Integer, ByVal m As Integer) n=n Mod 10m=m Mod 10End SubA) 1232 B) 232C) 23 D) 123答案：B(34) 單擊命令按鈕時(shí)，下列程序的執(zhí)行結(jié)果是Private Sub Command1_Click() Dim a As Integer, b As Integer, c As Integera=3b=4c=5Print SecProc(c, b, A) End SubFunction FirProc(x As Integer, y As Integer, z

14、As Integer) FirProc=2x+y+3zEnd FunctionFunction SecProc(x As Integer, y As Integer, z As Integer) SecProc=FirProc(z, x, y) +xEnd FunctionA) 20 B) 22C) 28 D) 30答案：C(35) 下列程序的執(zhí)行結(jié)果為Private Sub Command1_Click() Dim FirStr As StringFirSt="abcdef"Print Pat(FirStr) End SubPrivate Function Pat(xSt

15、r As String) As StringDim tempStr As String, strLen As IntegertempStr=""strLen=Len(xStr) i=1Do While i<=Len(xStr) -3tempStr=tempStr+Mid(xStr, i, 1) +Mid(xStr, strLen -i+1, 1) i=i+1LoopPat=tempStrEnd FunctionA) abcdef B) afbecdC) fedcba D) defabc正確答案：B二、填空題（無(wú)答題記錄?。?1) 算法的基本特征是可行性、確定性、 【1

16、】 和擁有足夠的情報(bào)。正確答案：有窮性(2) 在長(zhǎng)度為n的有序線性表中進(jìn)行二分查找。最壞的情況下，需要的比較次數(shù)為 【2】 。正確答案：log2n(3) 在面向?qū)ο蟮某绦蛟O(shè)計(jì)中，類描述的是具有相似性質(zhì)的一組 【3】 。正確答案：對(duì)象(4) 通常，將軟件產(chǎn)品從提出、實(shí)現(xiàn)、使用維護(hù)到停止使用退役的過(guò)程稱為 【4】 。正確答案：軟件生命周期(5) 數(shù)據(jù)庫(kù)管理系統(tǒng)常見(jiàn)的數(shù)據(jù)模型有層次模型、網(wǎng)狀模型和 【5】 3種。正確答案：關(guān)系模型(6) Visual Basic對(duì)象可以分為兩類，分別為 【6】 和 【7】 。正確答案：預(yù)定義對(duì)象正確答案：用戶定義對(duì)象(7) 完成下面的程序，使顯示結(jié)果如下圖所示。Pr

17、ivate Sub Form_Click() FontSize=18Sample=" 【8】 "x=(ScaleWidth-TextWidth(Sample) ) /2y=(ScaleHeight-TextHeight(Sample) ) /2CurrentX=xCurrentY=y【9】 SampleEnd Sub正確答案：Welcome to Beijing !正確答案：Print(8) 下列程序的功能是：當(dāng)x<50時(shí)，y=0.8×x；當(dāng)50x100時(shí)，y=0.7×x；當(dāng)x>100時(shí)，沒(méi)有意義。請(qǐng)?zhí)羁铡rivate Sub Comman

18、d1_Click() Dim x As Singlex=InputBox("請(qǐng)輸入x的值！") 【10】 Case Is < 50y=0.8 * xCase 50 To 100y=0.7 * x【11】 Print "輸入的數(shù)據(jù)出界！"End SelectPrint x, yEnd Sub正確答案：Select Case x正確答案：Case Else(9) 改變驅(qū)動(dòng)器列表框的Drive屬性值將引發(fā) 【12】 事件。正確答案：Change(10) 下面程序是由鼠標(biāo)事件在窗體上畫(huà)圖，如果按下鼠標(biāo)將可以畫(huà)圖，雙擊窗體可以清除所畫(huà)圖形。補(bǔ)充完整下面的程序。首先在窗體層定義如下變量：Dim PaintStart As Boolean編寫(xiě)如下事件過(guò)程：Private Sub Form_Load() DrawWidth=2ForeColor=vbGreenEnd SubPrivate Sub Form_MouseDown(Button As Integer, Shift As Integer, _X As Single, Y As S