1、2009年3月計算機等級考試二級VB筆試試題及答案一、選擇題（每題2分，共計70分）(1)下列敘述中正確的是 A)棧是先進先出的線性表B)隊列是"先進后出"的線性表C)循環隊列是非線性結構D)有序線性表即可以采用順序存儲結構,也可以采用鏈式存儲結構 (2)支持子程序調用的數據結構是A)棧 B)樹 C)隊列 D)二叉樹 (3)某二叉樹有5個讀為2的結點,則該二叉樹中的葉子結點數是A)10 B)8 C)6 D)4 (4)下列排序方法中,最壞情況下比較次數最少的是A)冒泡排序 B)簡單選擇排序 C)直接插入排序 D)堆排序(5)軟件按功能可以分為:應

2、用軟件、系統軟件和支撐軟件(或工具軟件)。下列屬于應用軟件的是A)編譯程序 B)操作系統 C)教務管理系統 D)匯編程序 (6)下面敘述中錯誤的是A)軟件測試的目的是發現錯誤并改正錯誤B)對被調試程序進行"錯誤定位"是程序調試的必要步驟C)程序調試也成為DebugD)軟件測試應嚴格執行測試計劃，排除測試的隨意性(7)耦合性和內聚性是對模塊獨立性度量的兩個標準。下列敘述中正確的是A)提高耦合性降低內聚性有利于提高模塊的獨立性B)降低耦合性提高內聚性有利于提高模塊的獨立性C)耦合性是指一個模塊內部各個元素間彼此結合的緊密程度D)內聚性是指模塊間互相連接的緊密程度(8)

3、數據庫應用系統中的核心問題是A)數據庫設計 B)數據庫系統設計 C)數據庫維護 D)數據庫管理員培訓(9)有兩個關系R,S如下：由關系R通過運算得到關系S,則所使用的運算為A)選擇 B)投影 C)插入 D)連接 (10)將E-R圖轉換為關系模式時,實體和聯系都可以表示為A)屬性 B)鍵 C)關系 D)域(11)執行語句 Dim X,Y As Integer 后,A)X和Y均被定義為整型變量B)X和Y均被定義為變體類型變量C)X被定義為整型變量,Y被定義為變體變量D)X被定義為變體類型變量,Y被定義為整型變量(12)以下關系表達式中，其值為True的是A)"XYZ"

4、>"XYz" B)"VisualBasic"<>"visualbasic"C)"the"="there" D)"Integer"<"Int"(13)執行以下程序段a$="Visual Basic Programming"b$="C+"C$=UCase(Left$(a$,7) & b$ & Right$(a$,12)后,變量C$的值為A)Visual BASIC Programm

5、ing B)VISUAL C+ ProgrammingC)Visual C+ Programming D)VISUAL BASIC Programming(14)下列敘述中正確的是A)MsgBox語句的返回值是一個整數B)執行MsgBox語句并出現信息框后,不用關閉信息框即可執行其他操作C)MsgBox語句的第一個參數不能省略D)如果省略MsgBox語句的第三個參數(Title),則信息框的標題為空(15)在窗體上畫一個文本框(名稱為Text1)和一個標簽(名稱為Label1),程序運行后,在文本框中每輸入一個字符，都會立即在標簽中顯示文本框中字符的個數,以下可以實現上述操作的事件過程是A)P

6、rivate Sub Text1_Change()Label1.Caption=str(Len(Text1.Text)End SubB)Private Sub Text1_Click()Label1.Caption=str(Len(Text1.Text)End SubC)Private Sub Text1_Change()Label1.Caption=Text1.TextEnd SubD)Private Sub Label1_Change()Label1.Caption=str(Len(Text1.Text)End Sub(16)在窗體上畫兩個單選按鈕(名稱分別為Option1,Option2

7、,標題分別為"宋體"和"黑體"),1個復選框(名稱為Check1,標題為粗體)和1個文本框(名稱為Text1,Text屬性為"改變文字字體")，窗體外觀如圖所示。程序運行后，要求“宋體”單選按鈕和“粗體”復選框被選中，則以下能夠實現上述操作的語句序列是A)Option1.Value=FalseCheck1.Value=TrueB)Option1.Value=TrueCheck1.Value=0C)Option2.Value=FalseCheck1.Value=2D)Option1.Value=TrueCheck1.Value=1(17

8、)在窗體上畫一個名稱為Command1的命令按鈕，然后編寫如下事件過程:PrivateSubCommand1_Click()c=1234c1=Trim(Str(c)Fori=1To4Print_NextEndSub程序運行后,單擊命令按鈕，要求在窗體上顯示如下內容：1121231234則在橫線處應填入的內容為A)Right(c1,i)B)Left(c1,i)C)Mid(c1,i,1)D)Mid(c1,i,1)(18)假定有一下程序段Fori=1To3Forj=5To1Step-1Printi*jNextjNexti則語句Print i*j 的執行次數是A)15 B)16 C)17 D)18(1

9、9)在窗體上畫兩個文本框（名稱分別為Text1和Text2）和一個命令按鈕（名稱為Command1），然后編寫如下事件過程：PrivateSubCommand1_Click()x=0DoWhilex<50x=(x+2)*(x+3)n=n+1LoopText1.Text=Str(n)Text2.Text=Str(x)EndSub程序運行后，單擊命令按鈕，在兩個文本框中顯示的值分別為A)1和0 B)2和72 C)3和50 D)4和168(20)閱讀程序：PrivateSubCommand1_Click()a=0Forj=1To15a=a+jMod3NextjPrintaEndSub程序運行后

10、，單擊窗體，輸出結果是A)105 B)1 C)120 D)15 (21)以下說法中正確的是A)當焦點在某個控件上時，按下一個字母鍵，就會執行該控件的KeyPress事件過程B)因為窗體不接受焦點，所以窗體不存在自己的KeyPress事件過程C)若按下的鍵相同，KeyPress事件過程中的KeyAscii參數與KeyDown事件過程中的KeyCode參數的值也相同D)在KeyPress事件過程中，KeyAscii參數可以省略 (22)語句Dim a(-3 To 4,3 To 6) As Integer 定義的數組的元素個數是A)18 B)28 C)21 D)32  

11、(23)在窗體上畫一個命令按鈕，其名稱為Command1，然后編寫如下代碼：OptionBase1PrivateSubCommand1_Click()Dimaa=Array(1,2,3,4)j=1Fori=4To1Step-1s=s+a(i)*jj=j*10NextiPrintsEndSub程序運行后，單擊命令按鈕，其輸出結果是A)4321 B)1234 C)34 D)12 (24)假定通過復制，粘貼操作建立了一個命令按鈕數組Command1，以下說法中錯誤的是A)數組中每個命令按鈕的名稱(Name屬性)均為Command1B)若未做修改,數組中每個命令按鈕的大小都一樣C)數組中各個

12、命令按鈕使用同一個Click事件過程D)數組中每個命令按鈕的Index屬性值都相同 (25)在窗體上畫一個命令按鈕，名稱為Command1,然后編寫如下代碼：OptionBase0PrivateSubCommand1_Click()DimA1(4)AsInteger,A2(4)AsIntegerFork=0To2A1(k+1)=InputBox("請輸入一個整數")A2(3-k)=A1(k+1)NextkPrintA2(k)EndSub程序運行后,單擊命令按鈕，在輸入對話框中依次輸入2、4、6則輸出結果為A)0 B)1 C)2 D)3 (26)以下關于函

13、數過程的敘述中，正確的是A)函數過程形參的類型與函數返回值的類型沒有關系B)在函數過程中，過程的返回值可以有多個C)當數組作為函數過程的參數是，既能以傳值方式傳遞，也能以傳址方式傳遞D)如果不指明函數過程參數的類型，則該參數沒有數據類型 (27)在窗體上畫兩個標簽按鈕和一個命令按鈕，其名稱分別為Label1、Label2和Command1，然后編寫如下程序：PrivateSubfunc(LAsLabel)L.Caption="1234"EndSubPrivateSubForm_Load()Label1.Caption="ABCDE"Label2

14、.Caption=10EndSubPrivateSubCommand1_Click()a=Val(Label2.Caption)Callfunc(Label1)Label2.Caption=aEndSub程序運行后，單擊命令按鈕，則在兩個標簽中顯示的內容分別為A)ABCD和10 B)1234和100 C)ABCD和100 D)1234和10 (28)在窗體上畫一個命令按鈕(名稱為Command1)，并編寫如下代碼:Functionfun1(ByValaAsInteger,bAsInteger)AsIntegerDimtAsIntegert=a-bb=t+afun1=t+bEndFun

15、ctionPrivateSubCommand1_Click()DimxAsIntegerx=10Printfun1(fun1(x,(fun1(x,x-1),x-1)EndSub程序運行后，單擊命令按鈕，輸出結果是A)10 B)0 C)11 D)21 (29)以下關于過程及過程參數的描述中，錯誤的是A)過程的參數可以是控件名稱B)調用過程時使用的實參的個數應與過程形參的個數相同C)只有函數過程能夠將過程中處理的信息返回到調用程序中D)窗體可以作為過程的參數 (30)設有如下通用過程PublicFunctionFun(xStrAsString)AsStringDimtStrAs

16、String,strLAsIntegertStr=""strL=Len(xStr)i=strL/2DoWhilei<=strLtStr=tStr&Mid(xStr,i+1,1)i=i+1LoopFun=tStr&tStrEndFunction在窗體上畫一個名稱為Text1的文本框和一個名稱為Command1的命令按鈕。然后編寫如下事件過程PrivateSubCommand1_Click()DimS1AsStringS1="ABCDEF"Text1.Text=LCase(Fun(S1)EndSub程序運行后，單擊命令按鈕，文本框中顯示

17、的是A)ABCDEF B)abcdef C)defdef D)defabc (31)在窗體上畫一個命令按鈕和一個文本框（名稱分別為Command1和Text1）,并把窗體的KeyPreview屬性設置為True,然后編寫如下代碼：DimSaveAllAsStringPrivateSubForm_Load()ShowText1.Text=""Text1.SetFocusEndSubPrivateSubCommand1_Click()Text1.Text=LCase(SaveAll)+SaveAllEndSubPrivateSubForm_KeyPress(KeyAs

18、ciiAsInteger)SaveAll=SaveAll+Chr(KeyAscii)EndSub程序運行后，直接用鍵盤輸入：VB,再單擊命令按鈕則文本框中顯示的內容為A)vbVB B)不顯示任何信息 C)VB D)出錯 (32)設有以下程序PrivateSubForm_Click()x=50Fori=1To4y=InputBox("請輸入一個整數")y=Val(y)IfyMod5=0Thena=a+yx=yElsea=a+xEndIfNextiPrintaEndSub程序運行后，單擊窗體，在輸入對話框中依次輸入15,24,35,46,輸出結果為A)100 B)50

19、 C)120 D)70 (33)以下關于菜單的敘述中，錯誤的是A)當窗體為活動窗體時，用Ctrl+E鍵可以打開菜單編輯器B)把菜單項的Enabled屬性設置為False,則可刪除該菜單項C)彈出式菜單在菜單編輯器中設計D)程序運行時，利用控件數組可以實現菜單項的增加或減少 (34)以下敘述中錯誤的是A)在程序運行時,通用對話框控件是不可見的B)調用同一個通用對話框控件的不同方法(如ShowOpen或ShowSave)可以打開不同的對話框窗口C)調用通用對話框控件的ShowOpen方法,能夠直接打開在該通用對話框中指定的文件D)調用通用對話框控件的ShowColor方法,可以

20、打開顏色對話框窗口(35)設在工程文件中有一個標準模塊，其中定義了如下記錄類型:TypeBooksNameAsString*10TelNumAsString*20EndType在窗體上畫一個名為Command1的命令按鈕，要求當執行事件過程Command1_Click時，在順序文件Person.txt中寫入一條Books類型的記錄，下列能夠完成該操作的事件過程是A)PrivateSubCommand1_Click()DimBAsBooksOpen"Person.txt"ForOutputAs#1B.Name=InputBox("輸入姓名")B.Name=

21、InputBox("輸入電話號碼")Write#1,B.Name,B.TelNumClose#1EndSubB)PrivateSubCommand1_Click()DimBAsBooksOpen"Person.txt"ForOutputAs#1B.Name=InputBox("輸入姓名")B.Name=InputBox("輸入電話號碼")Print#1,B.Name,B.TelNumClose#1EndSubC)PrivateSubCommand1_Click()DimBAsBooksOpen"Perso

22、n.txt"ForOutputAs#1B.Name=InputBox("輸入姓名")B.Name=InputBox("輸入電話號碼")Write#1,BClose#1EndSubD)PrivateSubCommand1_Click()DimBAsBooksOpen"Person.txt"ForOutputAs#1B.Name=InputBox("輸入姓名")B.Name=InputBox("輸入電話號碼")Print#1,Name,TelNumClose#1EndSub二、填空題（每空

23、2分，共計30分）(1)假設用一個長度為50的數組(數組元素的下標從0到49)作為棧的存儲空間,棧底 指針bottom指向棧底元素,棧頂指針top指向棧頂元素,如果bottom=49,top=30(數租下標),則棧中具有【1】個元素(2)軟件測試可分為白盒測試和黑盒測試。基本路徑測試屬于【2】測試(3)符合結構化原則的三種基本控制結構是:選擇結構、循環結構和【3】(4)數據庫系統的核心是【4】(5)在E-R圖中，圖形包括矩形框、菱形框、橢圓框。其中表示實體聯系的是【5】框(6)窗體如圖所示,其中汽車是名稱為Image1的圖像框，命令按鈕的名稱Command1, 計時器的名稱為Timer1,直線

24、的名稱為Line1。程序運行時，單擊命令按鈕，則汽車每0.1秒向左移動100，車頭到達左邊的直線時停止移動。請填空完成下面的屬性設置和程序，以便實現上述功能。1)Timer1的Interval屬性的值應事先設置為【6】2)Private Sub Command1_Click()Timer1.Enabled = TrueEnd Sub3)Private Sub Timer1_Timer()If Image1.Left > 【7】 ThenImage1.Left = 【8】 - 100End IfEnd Sub 7.上題【7】的答案是 8.上一題【8】的答案是 

25、9. (7)設窗體上有一個名稱為Combo1的組合框,并有以下程序：Private Sub Combo1_KeyPress(KeyAscii As Integer)If 【9】 = 13 ThenFor k = 0 To Combo1.ListCount - 1If Combo1.Text = Combo1.List(k) ThenCombo1.Text = ""Exit ForEnd IfNext kIf Combo1.Text <> "" ThenCombo1.AddItem 【10】End IfEnd IfEnd Sub程序的功能是：在組合框的編輯區中輸入文本后按回車鍵，則檢查列表中有無與此文本相同的項目，若有，則把編輯區中的文本刪除，否則把編輯區中的文本添加到列表的尾部。請填空。 10. 上一題【10】的答案是 11. (8)在當前目錄下有一個名為"myfile.txt"的文本文件,其中有若干行文本。下面程序的功能是讀入此文件中的所有文本行，按行計算每行字符的ASCII碼之和，并顯示在窗體上。請填空PrivateSubCommand1_Click()Dimch$,asciiAsIntegerOpen"myfile.txt"For【11】As#1WhileNot