VB試題加答案

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

2、是A)編譯程序 B)操作系統(tǒng) C)教務管理系統(tǒng) D)匯編程序(6)下面敘述中錯誤的是A)軟件測試的目的是發(fā)現(xiàn)錯誤并改正錯誤B)對被調試程序進行錯誤定位是程序調試的必要步驟C)程序調試也成為DebugD)軟件測試應嚴格執(zhí)行測試計劃，排除測試的隨意性(7)耦合性和內聚性是對模塊獨立性度量的兩個標準。下列敘述中正確的是A)提高耦合性降低內聚性有利于提高模塊的獨立性B)降低耦合性提高內聚性有利于提高模塊的獨立性C)耦合性是指一個模塊內部各個元素間彼此結合的緊密程度D)內聚性是指模塊間互相連接的緊密程度(8)數(shù)據(jù)庫應用系統(tǒng)中的核心問題是A)數(shù)據(jù)庫設計 B)數(shù)據(jù)庫系統(tǒng)設計 C)數(shù)據(jù)庫維護 D)數(shù)據(jù)庫管理員

3、培訓(9)有兩個關系R,S如下：由關系R通過運算得到關系S,則所使用的運算為A)選擇 B)投影 C)插入 D)連接(10)將E-R圖轉換為關系模式時,實體和聯(lián)系都可以表示為A)屬性 B)鍵 C)關系 D)域(11)執(zhí)行語句 Dim X,Y As Integer 后,A)X和Y均被定義為整型變量B)X和Y均被定義為變體類型變量C)X被定義為整型變量,Y被定義為變體變量D)X被定義為變體類型變量,Y被定義為整型變量(12)以下關系表達式中，其值為True的是A)XYZXYz B)VisualBasicvisualbasicC)the=there D)IntegerInt(13)執(zhí)行以下程序段a$=

4、Visual Basic Programmingb$=C+C$=UCase(Left$(a$,7) & b$ & Right$(a$,12)后,變量C$的值為A)Visual BASIC Programming B)VISUAL C+ ProgrammingC)Visual C+ Programming D)VISUAL BASIC Programming(14)下列敘述中正確的是A)MsgBox語句的返回值是一個整數(shù)B)執(zhí)行MsgBox語句并出現(xiàn)信息框后,不用關閉信息框即可執(zhí)行其他操作C)MsgBox語句的第一個參數(shù)不能省略D)如果省略MsgBox語句的第三個參數(shù)(Title),則信息框的標

5、題為空(15)在窗體上畫一個文本框(名稱為Text1)和一個標簽(名稱為Label1),程序運行后,在文本框中每輸入一個字符，都會立即在標簽中顯示文本框中字符的個數(shù),以下可以實現(xiàn)上述操作的事件過程是A)Private 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)Pr

6、ivate Sub Label1_Change()Label1.Caption=str(Len(Text1.Text)End Sub(16)在窗體上畫兩個單選按鈕(名稱分別為Option1,Option2,標題分別為宋體和黑體),1個復選框(名稱為Check1,標題為粗體)和1個文本框(名稱為Text1,Text屬性為改變文字字體)，窗體外觀如圖所示。程序運行后，要求“宋體”單選按鈕和“粗體”復選框被選中，則以下能夠實現(xiàn)上述操作的語句序列是A)Option1.Value=FalseCheck1.Value=TrueB)Option1.Value=TrueCheck1.Value=0C)Opti

7、on2.Value=FalseCheck1.Value=2D)Option1.Value=TrueCheck1.Value=1(17)在窗體上畫一個名稱為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=5T

8、o1Step-1Printi*jNextjNexti則語句Print i*j 的執(zhí)行次數(shù)是A)15 B)16 C)17 D)18(19)在窗體上畫兩個文本框（名稱分別為Text1和Text2）和一個命令按鈕（名稱為Command1），然后編寫如下事件過程：PrivateSubCommand1_Click()x=0DoWhilex50x=(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)閱讀程序：PrivateS

9、ubCommand1_Click()a=0Forj=1To15a=a+jMod3NextjPrintaEndSub程序運行后，單擊窗體，輸出結果是A)105 B)1 C)120 D)15(21)以下說法中正確的是A)當焦點在某個控件上時，按下一個字母鍵，就會執(zhí)行該控件的KeyPress事件過程B)因為窗體不接受焦點，所以窗體不存在自己的KeyPress事件過程C)若按下的鍵相同，KeyPress事件過程中的KeyAscii參數(shù)與KeyDown事件過程中的KeyCode參數(shù)的值也相同D)在KeyPress事件過程中，KeyAscii參數(shù)可以省略(22)語句Dim a(-3 To 4,3 To 6

10、) As Integer 定義的數(shù)組的元素個數(shù)是A)18 B)28 C)21 D)32 (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)假定通過復制，粘貼操作建立了一個命令按鈕數(shù)組Command1，以下說法中錯誤的是A)數(shù)組中每個命令按鈕的名稱(Name屬性)均為

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

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

13、bPrivateSubCommand1_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+bEndFunctionPrivateSubCommand

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

15、xStr)i=strL/2DoWhilei 【7】 ThenImage1.Left = 【8】 - 100End IfEnd Sub7.上題【7】的答案是8.上一題【8】的答案是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.

16、Text ThenCombo1.AddItem 【10】End IfEnd IfEnd Sub程序的功能是：在組合框的編輯區(qū)中輸入文本后按回車鍵，則檢查列表中有無與此文本相同的項目，若有，則把編輯區(qū)中的文本刪除，否則把編輯區(qū)中的文本添加到列表的尾部。請?zhí)羁铡?0. 上一題【10】的答案是11. (8)在當前目錄下有一個名為myfile.txt的文本文件,其中有若干行文本。下面程序的功能是讀入此文件中的所有文本行，按行計算每行字符的ASCII碼之和，并顯示在窗體上。請?zhí)羁誔rivateSubCommand1_Click()Dimch$,asciiAsIntegerOpenmyfile.txtFo

17、r【11】As#1WhileNotEOF(1)LineInput#1,chascii=toascii(【12】)PrintasciiWendClose#1EndSubPrivateFunctiontoascii(mystr$)AsIntegern=0Fork=1To【13】n=n+Asc(Mid(mystr,k,1)Nextktoascii=nEndFunction12. 上一題【12】的答案是13. 上一題【13】的答案是14. (9)本程序實現(xiàn)文本加密。先給定序列:a1,a2,.,an,它們的取值范圍是1n,而且互不相同。加密算法是:把原文本中第k個字符放到加密后文本的第ak個位置處。若原文本長度大于n，則只對前面n個字符加密,后面的字符不變；若原文本長度小于n，則在后面補字符*使文本長度為n后再加密。例如：若給定序列a1,a2,.a7分別為2,5,3,7,6,1,4當文本為“PROGRAM時，加密后的文本為APOMRRG當文本為THANK時，加密后的文本為*TA*HKN下面的過程code實現(xiàn)這一算法。其中參數(shù)數(shù)組a()中存放給定序列(個數(shù)與數(shù)組a的元素個數(shù)相等)a1,a2,a3.的值，要加密