VB試題加答案

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

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

3、培訓(xùn)(9)有兩個(gè)關(guān)系R,S如下：由關(guān)系R通過運(yùn)算得到關(guān)系S,則所使用的運(yùn)算為A)選擇 B)投影 C)插入 D)連接(10)將E-R圖轉(zhuǎn)換為關(guān)系模式時(shí),實(shí)體和聯(lián)系都可以表示為A)屬性 B)鍵 C)關(guān)系 D)域(11)執(zhí)行語句 Dim X,Y As Integer 后,A)X和Y均被定義為整型變量B)X和Y均被定義為變體類型變量C)X被定義為整型變量,Y被定義為變體變量D)X被定義為變體類型變量,Y被定義為整型變量(12)以下關(guān)系表達(dá)式中，其值為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語句的返回值是一個(gè)整數(shù)B)執(zhí)行MsgBox語句并出現(xiàn)信息框后,不用關(guān)閉信息框即可執(zhí)行其他操作C)MsgBox語句的第一個(gè)參數(shù)不能省略D)如果省略MsgBox語句的第三個(gè)參數(shù)(Title),則信息框的標(biāo)

5、題為空(15)在窗體上畫一個(gè)文本框(名稱為Text1)和一個(gè)標(biāo)簽(名稱為Label1),程序運(yùn)行后,在文本框中每輸入一個(gè)字符，都會(huì)立即在標(biāo)簽中顯示文本框中字符的個(gè)數(shù),以下可以實(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)在窗體上畫兩個(gè)單選按鈕(名稱分別為Option1,Option2,標(biāo)題分別為宋體和黑體),1個(gè)復(fù)選框(名稱為Check1,標(biāo)題為粗體)和1個(gè)文本框(名稱為Text1,Text屬性為改變文字字體)，窗體外觀如圖所示。程序運(yùn)行后，要求“宋體”單選按鈕和“粗體”復(fù)選框被選中，則以下能夠?qū)崿F(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)在窗體上畫一個(gè)名稱為Command1的命令按鈕，然后編寫如下事件過程:PrivateSubCommand1_Click()c=1234c1=Trim(Str(c)Fori=1To4Print_NextEndSub程序運(yùn)行后,單擊命令按鈕，要求在窗體上顯示如下內(nèi)容：1121231234則在橫線處應(yīng)填入的內(nèi)容為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)在窗體上畫兩個(gè)文本框（名稱分別為Text1和Text2）和一個(gè)命令按鈕（名稱為Command1），然后編寫如下事件過程：PrivateSubCommand1_Click()x=0DoWhilex50x=(x+2)*(x+3)n=n+1LoopText1.Text=Str(n)Text2.Text=Str(x)EndSub程序運(yùn)行后，單擊命令按鈕，在兩個(gè)文本框中顯示的值分別為A)1和0 B)2和72 C)3和50 D)4和168(20)閱讀程序：PrivateS

9、ubCommand1_Click()a=0Forj=1To15a=a+jMod3NextjPrintaEndSub程序運(yùn)行后，單擊窗體，輸出結(jié)果是A)105 B)1 C)120 D)15(21)以下說法中正確的是A)當(dāng)焦點(diǎn)在某個(gè)控件上時(shí)，按下一個(gè)字母鍵，就會(huì)執(zhí)行該控件的KeyPress事件過程B)因?yàn)榇绑w不接受焦點(diǎn)，所以窗體不存在自己的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ù)組的元素個(gè)數(shù)是A)18 B)28 C)21 D)32 (23)在窗體上畫一個(gè)命令按鈕，其名稱為Command1，然后編寫如下代碼：OptionBase1PrivateSubCommand1_Click()Dimaa=Array(1,2,3,4)j=1Fori=4To1Step-1s=s+a(i)*jj=j*10NextiPrintsEndSub程序運(yùn)行后，單擊命令按鈕，其輸出結(jié)果是A)4321 B)1234 C)34 D)12(24)假定通過復(fù)制，粘貼操作建立了一個(gè)命令按鈕數(shù)組Command1，以下說法中錯(cuò)誤的是A)數(shù)組中每個(gè)命令按鈕的名稱(Name屬性)均為

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

12、2 D)3(26)以下關(guān)于函數(shù)過程的敘述中，正確的是A)函數(shù)過程形參的類型與函數(shù)返回值的類型沒有關(guān)系B)在函數(shù)過程中，過程的返回值可以有多個(gè)C)當(dāng)數(shù)組作為函數(shù)過程的參數(shù)是，既能以傳值方式傳遞，也能以傳址方式傳遞D)如果不指明函數(shù)過程參數(shù)的類型，則該參數(shù)沒有數(shù)據(jù)類型(27)在窗體上畫兩個(gè)標(biāo)簽按鈕和一個(gè)命令按鈕，其名稱分別為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程序運(yùn)行后，單擊命令按鈕，則在兩個(gè)標(biāo)簽中顯示的內(nèi)容分別為A)ABCD和10 B)1234和100 C)ABCD和100 D)1234和10(28)在窗體上畫一個(gè)命令按鈕(名稱為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程序運(yùn)行后，單擊命令按鈕，輸出結(jié)果是A)10 B)0 C)11 D)21(29)以下關(guān)于過程及過程參數(shù)的描述中，錯(cuò)誤的是A)過程的參數(shù)可以是控件名稱B)調(diào)用過程時(shí)使用的實(shí)參的個(gè)數(shù)應(yīng)與過程形參的個(gè)數(shù)相同C)只有函數(shù)過程能夠?qū)⑦^程中處理的信息返回到調(diào)用程序中D)窗體可以作為過程的參數(shù)(30)設(shè)有如下通用過程PublicFunctionFun(xStrAsString)AsStringDimtStrAsString,strLAsIntegertStr=strL=Len(

15、xStr)i=strL/2DoWhilei 【7】 ThenImage1.Left = 【8】 - 100End IfEnd Sub7.上題【7】的答案是8.上一題【8】的答案是9. (7)設(shè)窗體上有一個(gè)名稱為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ū)中輸入文本后按回車鍵，則檢查列表中有無與此文本相同的項(xiàng)目，若有，則把編輯區(qū)中的文本刪除，否則把編輯區(qū)中的文本添加到列表的尾部。請(qǐng)?zhí)羁铡?0. 上一題【10】的答案是11. (8)在當(dāng)前目錄下有一個(gè)名為myfile.txt的文本文件,其中有若干行文本。下面程序的功能是讀入此文件中的所有文本行，按行計(jì)算每行字符的ASCII碼之和，并顯示在窗體上。請(qǐng)?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)本程序?qū)崿F(xiàn)文本加密。先給定序列:a1,a2,.,an,它們的取值范圍是1n,而且互不相同。加密算法是:把原文本中第k個(gè)字符放到加密后文本的第ak個(gè)位置處。若原文本長度大于n，則只對(duì)前面n個(gè)字符加密,后面的字符不變；若原文本長度小于n，則在后面補(bǔ)字符*使文本長度為n后再加密。例如：若給定序列a1,a2,.a7分別為2,5,3,7,6,1,4當(dāng)文本為“PROGRAM時(shí)，加密后的文本為APOMRRG當(dāng)文本為THANK時(shí)，加密后的文本為*TA*HKN下面的過程code實(shí)現(xiàn)這一算法。其中參數(shù)數(shù)組a()中存放給定序列(個(gè)數(shù)與數(shù)組a的元素個(gè)數(shù)相等)a1,a2,a3.的值，要加密