1、試卷方案：201105 Visual Basic期末考試方案題型：5種1.單選題（20題*1=20分） 2.程序運(yùn)行結(jié)果填空題（15空*2=30分） 3.完善程序填空題（10空*2=20分） 4.改錯(cuò)題（3錯(cuò)*4=12分） 5.編程題（共2題，1題為8分，另一題10分=18分）一、單項(xiàng)選擇 共50題第1題 題號(hào):44以下有關(guān)對(duì)象屬性的說(shuō)法中，錯(cuò)誤的是_.A. 工具箱中的控件并不是VB中所有的控件B. 若將Frame的Enabled屬性設(shè)置為False，則不能使用放置在Frame里面的控件C. 對(duì)象的Name屬性在運(yùn)行時(shí)不能改變D. 對(duì)象的所有屬性都可以在屬性窗口中設(shè)置答案：D第2題 題號(hào):3數(shù)

2、學(xué)表達(dá)式 的VB算術(shù)表達(dá)式為_(kāi) . A. Sin(27)+Sqr(x+Exp3)/(x+y)B. Sin(27*3.14159/180)+Sqr(x+Exp(3)/Abs(x+y)C. Sin(27*3.14159/180)+Sqr(x+e3)/Abs(x+y)D. Sin(27*pi/180)+Sqr(x+Exp(3)/Abs(x+y)答案：B第3題 題號(hào):17下列有關(guān)對(duì)象的敘述中,正確的是_A. 對(duì)象由屬性，事件和方法構(gòu)成B. 對(duì)象的所有屬性既可以在屬性窗口設(shè)置，又可以在程序運(yùn)行時(shí)用賦值語(yǔ)句設(shè)置C. 對(duì)象的事件一定就是由VB預(yù)先設(shè)置好的人工干預(yù)的動(dòng)作D. 對(duì)象的方法是對(duì)象響應(yīng)某個(gè)事件后執(zhí)行

3、的一段程序代碼答案：A第4題 題號(hào):46表達(dá)式CInt(4.5)+Cint(-4.51)+Int(4.9)+Int(-4.1)+Fix(-1.9)+0 Mod 2的運(yùn)算結(jié)果是_.A. 1B. -1C. 2D. 3答案：D第5題 題號(hào):32下列關(guān)于菜單的說(shuō)法中,錯(cuò)誤的是_.A. 每一個(gè)菜單項(xiàng)就是一個(gè)對(duì)象，并且可設(shè)置自己的屬性和事件B. 菜單項(xiàng)不可以響應(yīng)DblClick事件C. VB6.0允許創(chuàng)建超過(guò)四級(jí)的子菜單D. 程序執(zhí)行時(shí)，如果要求菜單項(xiàng)是灰色，不能被用戶(hù)選擇，則應(yīng)設(shè)置菜單項(xiàng)的Enabled屬性為False答案：C第6題 題號(hào):42以下關(guān)于數(shù)組的說(shuō)法中,錯(cuò)誤的是_.A. 使用了Preserv

4、e 子句的Redim語(yǔ)句，只允許改變數(shù)組最后一維的上界B. 對(duì)于動(dòng)態(tài)數(shù)組, Redim 語(yǔ)句可以改變其維界但不可以改變其數(shù)據(jù)類(lèi)型C. Erase語(yǔ)句的功能只是對(duì)固定大小的數(shù)組進(jìn)行初始化D. Lbound函數(shù)返回值是指定數(shù)組某一維的下界答案：C第7題 題號(hào):8設(shè)a=3,b=2,c=1,運(yùn)行print a>b>c的結(jié)果是_.A. TrueB. FalseC. 1D. 出錯(cuò)答案：B第8題 題號(hào):4以下說(shuō)法不正確的是_.A. 使用不帶關(guān)鍵字Preserve的ReDim語(yǔ)句可以重新定義數(shù)組的維數(shù)B. 使用不帶關(guān)鍵字Preserve的ReDim語(yǔ)句可以改變數(shù)組各維的上、下界C. 使用不帶關(guān)鍵字

5、Preserve的ReDim語(yǔ)句可以改變數(shù)組的數(shù)據(jù)類(lèi)型D. 使用不帶關(guān)鍵字Preserve的ReDim語(yǔ)句可以對(duì)數(shù)組中的所有元素進(jìn)行初始化答案：C第9題 題號(hào):37在列表框List1中有若干列表項(xiàng),可以刪除選定列表項(xiàng)的語(yǔ)句是_.A. List1.text=""B. List1.List(List1.ListIndex)=""C. list1.ClearD. List1.RemoveItem List1.ListIndex答案：D第10題 題號(hào):41數(shù)學(xué)表達(dá)式 對(duì)應(yīng)的VB表達(dá)式是_.A. (e(2*x-5)*Log(x)+(Sin(2x)3)/Sqr(Si

6、n(x)-Cos(x2)B. (Exp(2*3.14159*x-5)*Log(x)+(Sin(2*x)3)/Sqr(Sin(x)-Cos(x2)C. (Exp(2*x-5)*Ln(x)+(Sin(2*x)3)/Sqr(Sin(x)-Cos(x2)D. e(2*3.14159*x-5)*Ln(x)+(Sin(2*x)3)/Sqr(Sing(x)-Cos(x2)答案：B第11題 題號(hào):14以下有關(guān)數(shù)組參數(shù)的說(shuō)明中，正確的是_A. 在過(guò)程中也可用Dim語(yǔ)句對(duì)形參數(shù)組進(jìn)行說(shuō)明B. 動(dòng)態(tài)數(shù)組作為實(shí)參時(shí)，可用ReDim語(yǔ)句在過(guò)程中改變對(duì)應(yīng)形參數(shù)組的維界C. 調(diào)用過(guò)程時(shí)，數(shù)組名不能作為實(shí)參D. 數(shù)組可以按地

7、址傳遞也可以按植傳遞答案：B第12題 題號(hào):43下列有關(guān)過(guò)程的說(shuō)法中,錯(cuò)誤的是_.A. 在Sub或 Function過(guò)程內(nèi)部不能再定義其它Sub或 Function 過(guò)程B. 對(duì)于使用ByRef說(shuō)明的形參,在過(guò)程調(diào)用時(shí)形參和實(shí)參只能按傳址方式結(jié)合C. 遞歸過(guò)程既可以是遞歸Function過(guò)程,也可以是遞歸Sub過(guò)程D. 可以像調(diào)用Sub過(guò)程一樣使用Call語(yǔ)句調(diào)用Function過(guò)程答案：B第13題 題號(hào):49要將焦點(diǎn)設(shè)置在某個(gè)控件上,以下四個(gè)選項(xiàng)中正確的是_.A. 只能使用鼠標(biāo)直接點(diǎn)擊控件B. 只能使用Tab鍵將焦點(diǎn)移到該控件C. 只能在程序中調(diào)用該控件的SetFocus方法D. A、B、C

8、三選項(xiàng)中涉及的方法均可使用答案：D第14題 題號(hào):55以下Case語(yǔ)句中,能正確描述Y的絕對(duì)值大于6的是_.A. Case Abs(Y)>6B. Case -6 To 6C. Case Not(-6 To 6)D. Case Is<-6,Is>6答案：D第15題 題號(hào):45以下關(guān)于變量作用域的敘述中,正確的是_.A. 窗體中凡用Private聲明的變量只能在某個(gè)指定的過(guò)程中使用B. 模塊級(jí)變量只能用Dim語(yǔ)句聲明C. 凡是在窗體模塊或標(biāo)準(zhǔn)模塊的通用聲明段用Public語(yǔ)句聲明的變量都是全局變量D. 當(dāng)不同作用域的同名變量發(fā)生沖突時(shí)，優(yōu)先訪(fǎng)問(wèn)局限性小的變量答案：C第16題 題號(hào)

9、:16以下關(guān)于數(shù)值常量的說(shuō)法中,錯(cuò)誤的是_A. 八進(jìn)制數(shù)的表示方法是在數(shù)字前面加&OB. 十六進(jìn)制數(shù)的表示方法是在數(shù)字前面加&HC. 在浮點(diǎn)運(yùn)算中使用D來(lái)分隔尾數(shù)和指數(shù)時(shí)，系統(tǒng)將把該數(shù)值作為單精度型數(shù)處理D. 32768是合法的數(shù)值常量答案：C第17題 題號(hào):27數(shù)學(xué)表達(dá)式 對(duì)應(yīng)的VB表達(dá)式是_.A. Abs(ex+Sin(30)3)Sqr(x+y)B. Abs(Exp(x)+Sin(30)3)(Sqr(x+y)C. Abs(ex+Sin(30*3.14159180)3)(Sqr(x+y)D. Abs(Exp(x)+Sin(30*3.14159180)3)Sqr(x+y)答案：

10、D第18題 題號(hào):29下面的4個(gè)表達(dá)式中,有關(guān)_個(gè)能夠?qū)ingle類(lèi)型變量x(正數(shù))的第3位小數(shù)正確地進(jìn)行四舍五入計(jì)算. Format(x,#.00) Int(100*(x+0.005)/100 CInt(100*(x+0.005)/100 Fix(100*(x+0.005)/100A. 1個(gè)B. 2個(gè)C. 3個(gè)D. 4個(gè)答案：C第19題 題號(hào):26執(zhí)行以下語(yǔ)句時(shí),會(huì)出現(xiàn)錯(cuò)誤提示的是_.A. Print"2b3 " +12.5B. Print"12.5"+ 12C.Print"12.5" & 12.5D.Print"

11、;2e3"+12答案：A第20題 題號(hào):34以下Case語(yǔ)句含有錯(cuò)誤的是_.A. Case 0 To 10B. Case Is>10C. Case Is>10 And Is<50D. Case 3,5,Is>10答案：C第21題 題號(hào):1下列語(yǔ)句中,正確的是_A. Textl.SetFocusB. Forml.ClearC. Labell.SetFocusD. Listl.Cls答案：A第22題 題號(hào):9下列選項(xiàng)中,所包含的所有表達(dá)式能夠?qū)晌徽麛?shù)x的個(gè)位數(shù)與十位數(shù)對(duì)調(diào)(如將78轉(zhuǎn)換為87)的是_. Val(Right(X,1)&Left(X,1) V

12、al(Right(Str(X),1)&Left(Str(X),1) Val(Right(CStr(X),1)&Left(CStr(X),1) Val(Mid(X,2,1)+Mid(X,1,1)A. B. C. D. 答案：D第23題 題號(hào):15以下關(guān)于子過(guò)程或函數(shù)的定義中,正確的是_A. Sub f1(n As String*1 )B. Sub f1(n As Integer)As IntegerC. Function f1(f1 As Integer)As IntegerD. Function f1(ByVal n As Integer)答案：D第24題 題號(hào):54下列有關(guān)控

13、件數(shù)組的說(shuō)法中,錯(cuò)誤的是_.A. 控件數(shù)組由一組具有相同名稱(chēng)和相同類(lèi)型的控件組成，不同類(lèi)型的控件無(wú)法組成控件數(shù)組B. 控件數(shù)組中的所有控件不得具有各自不同的屬性設(shè)置值C. 控件數(shù)組中的所有控件共享同一個(gè)事件過(guò)程D. 控件數(shù)組中每個(gè)元素的下標(biāo)由控件的Index屬性指定答案：B第25題 題號(hào):7以下對(duì)數(shù)組參數(shù)的說(shuō)明中,錯(cuò)誤的是_ .A. 在過(guò)程中可以用Dim語(yǔ)句對(duì)形參數(shù)組進(jìn)行聲明B. 形參數(shù)組只能按地址傳遞C. 實(shí)參為動(dòng)態(tài)數(shù)組時(shí)，可用ReDim語(yǔ)句改變對(duì)應(yīng)形參數(shù)組的維界D. 只需把要傳遞的數(shù)組名作為實(shí)參，即可調(diào)用過(guò)程答案：A第26題 題號(hào):6要向文件datal.txt添加數(shù)據(jù),正確的文件打開(kāi)命令是

14、_.A. Open"datal.txt"For Output As #1B. Open"datal.txt"For Input As #1C. Open"datal.txt"For Append As #5D. Open"datal.txt" For Write As #5答案：C第27題 題號(hào):31下面有關(guān)數(shù)組處理的敘述中，正確的是_.A. 在過(guò)程中使用ReDim語(yǔ)句可以改變動(dòng)態(tài)數(shù)組數(shù)據(jù)的類(lèi)型B. 在過(guò)程中，可以使用Dim 、Private和 Static語(yǔ)句來(lái)定義數(shù)組C. 用ReDim語(yǔ)句重新定義動(dòng)態(tài)數(shù)組時(shí)，可

15、以改變數(shù)組的大小，但不能改變數(shù)組的維數(shù)D. 不可以用Public語(yǔ)句在窗體模塊的通用處說(shuō)明一個(gè)全局?jǐn)?shù)組答案：D第28題 題號(hào):35下面的表達(dá)式中,運(yùn)算結(jié)果為T(mén)rue的是_.A. "abcrd" <="ABCRD"B. Int(134.69) <=CInt(134.69)C. 3>2>1D. Mid("Visual",1,4)=Right("lausiV",4)答案：B第29題 題號(hào):36設(shè)計(jì)界面時(shí),要使一個(gè)文本框具有水平和垂直滾動(dòng)條,應(yīng)先將其_屬性置為T(mén)rue,再將ScrollBar屬性設(shè)置

16、為3.A. MultiLineB. AutoSizeC. AlignmentD. RightToLeft答案：A第30題 題號(hào):23下面有關(guān)數(shù)組的說(shuō)法中,正確的是_A. 數(shù)組的維下界不可以是負(fù)數(shù)B. 模塊通用聲明處有Option Base 1，則模塊中數(shù)組定義語(yǔ)句Dim A(0 To 5)會(huì)與之沖突C. 模塊通用聲明處有Option Base 1，模塊中有Dim A(0 To 5),則A數(shù)組第一維維下界為0D. 模塊通用聲明處有Option Base 1，模塊中有DimA(0 To 5),則A數(shù)組第一維維下界為1答案：C第31題 題號(hào):53下面有關(guān)數(shù)組的敘述中,不正確的是_. 在過(guò)程中用ReD

17、im語(yǔ)句定義的動(dòng)態(tài)數(shù)組,其下標(biāo)的上下界可以是變量 數(shù)組作為形式參數(shù)時(shí),傳遞的是每個(gè)數(shù)組元素的值 在窗體模塊的通用聲明處可以用Public 說(shuō)明一個(gè)全局?jǐn)?shù)組 數(shù)組定義語(yǔ)句中可以用負(fù)數(shù)或小數(shù)來(lái)指定某一維的維下界或維上界的值A(chǔ). B. C. D. 答案：A第32題 題號(hào):11下列關(guān)于對(duì)象SetFocus與GotFocus的描述中,正確的是_A. SetFocus是事件,GotFocus是方法B. Setfocus和Gotfocus都是事件C. Setfocus和GotFocus都是方法D. SetFocus是方法,GotFocus是事件答案：D第33題 題號(hào):2創(chuàng)建一個(gè)名為"文件"

18、;的菜單項(xiàng),欲使其可用Alt+F方式訪(fǎng)問(wèn),則在菜單編輯器的標(biāo)題文本框中應(yīng)輸入_.A. 文件($F)B. 文件(&F)C. 文件(#F)D. 文件(%F)答案：B第34題 題號(hào):50在下列屬性中,屬于CommandButton控件、ListBox控件共有的是_.A. Caption、TextB. Visible、FontC. Caption、VisibleD. List、Visible答案：B第35題 題號(hào):22下列能夠正確表示條件"XY<Z"的VB邏輯表達(dá)式是_A. XY<ZB. X<=Y And Y<ZC. XY OR Y<ZD. X

19、<=Y<Z答案：B第36題 題號(hào):33以下關(guān)于Function過(guò)程的說(shuō)法中,錯(cuò)誤的是_.A. Function過(guò)程名可以有一個(gè)或多個(gè)返回值B. 在Function過(guò)程內(nèi)部不得再定義Function過(guò)程C. Function過(guò)程中可以包含多個(gè)Exit Function語(yǔ)句D. 可以像調(diào)用Sub過(guò)程一樣調(diào)用Function過(guò)程答案：A第37題 題號(hào):52下面的關(guān)系表達(dá)式中,運(yùn)算結(jié)果為T(mén)rue的是_.A. CInt(1.5)=Int(1.5)B. Fix(1.5)=Int(1.5)C. Fix(-1.5)=CInt(-1.5)D. Fix(-1.5)=Int(-1.5)答案：B第38題

20、題號(hào):21已知X<Y,A>B,則下列表達(dá)式中,結(jié)果為T(mén)rue的是_A. Sgn(X-Y)+Sgn(A-B)=-1B. Sgn(X-Y)+Sgn(A-B)=-2C. Sgn(Y-X)+Sgn(A-B)=2D. Sgn(Y-X)+Sgn(A-B)=0答案：C第39題 題號(hào):38執(zhí)行_語(yǔ)句時(shí),會(huì)出現(xiàn)出錯(cuò)提示信息.A. Print 5+7=14B. Print 16384*2C. Print 32768*2D. Print "14"+32答案：B第40題 題號(hào):51數(shù)學(xué)表達(dá)式 對(duì)應(yīng)的Visual Basic表達(dá)式是_.A. Sin(30*3.14159/180)+Sqr

21、(Log(x)+y)/2*3.14159+Exp(x+y)B. (Sin(30*/180)+Sqr(Ln(x)+y)/(2*+Exp(x+y)C. Sin(30*180/3.14159)+Sqr(Log(x)+y)/(2*3.14159+e(x+y)D. (Sin(30*3.14159/180)+Sqr(Log(x)+y)/(2*3.14159+Exp(x+y)答案：D第41題 題號(hào):48在一個(gè)多窗體程序中,可以?xún)H將窗體Form2從內(nèi)存中卸載的語(yǔ)句是_.A. Form2.UnloadB. Unload Form2C. Form2.EndD. Form2.Hide答案：B第42題 題號(hào):12Pr

22、int方法可在_上輸出數(shù)據(jù).窗體 文本框 圖片框 標(biāo)簽 列表框 立即窗口A. B. C. D. 答案：A第43題 題號(hào):47若要使邏輯表達(dá)式x>y Xor y<z 結(jié)果為T(mén)rue,則x、y、z的取值應(yīng)為下列選項(xiàng)中的_.A. x=3、y=3、z=4B. x=2、y=1、z=2C. x=1、y=3、z=2D. x=2、y=2、z=2答案：A第44題 題號(hào):5下列_是合法的變量名.A. absB. alC. cdc dD. Abe_10答案：D第45題 題號(hào):10下列_是正確的VB常量.A. D-6B. E-6C. 5DD. 5E-6答案：D第46題 題號(hào):56若在模塊中用Private

23、 Function Fun(A as Single,B as Integer) As Integer 定義了函數(shù)Fun.調(diào)用函數(shù)Fun的過(guò)程中定義了I、J和K三個(gè)Integer型變量,則下列語(yǔ)句中不能正確調(diào)用函數(shù)Fun的語(yǔ)句是_.A. Fun 3.14,JB. Call Fun(I,365)C. Fun(I),(J)D. K=Fun("24","35")答案：B第47題 題號(hào):57若需要在同一窗體內(nèi)安排兩組相互獨(dú)立的單選按鈕(OptionButton),可使用_控件做容器將它們分開(kāi).TextBox PictureBox Image FrameA. 或B.

24、 或C. 或D. 或答案：C第48題 題號(hào):58以下關(guān)于文件的敘述中，錯(cuò)誤的是_。A. 用Output模式打開(kāi)一個(gè)順序文件，即使不對(duì)它進(jìn)行寫(xiě)操作，原來(lái)的內(nèi)容也被清除B. 可以用Print #語(yǔ)句或 Write# 語(yǔ)句將數(shù)據(jù)寫(xiě)到順序文件中C. 若以O(shè)utput、Append、Random、Binary 方式打開(kāi)一個(gè)不存在的文件，系統(tǒng)會(huì)出錯(cuò)D. 順序文件或隨機(jī)文件都可以用二進(jìn)制訪(fǎng)問(wèn)模式打開(kāi) 答案：C第49題 題號(hào):24窗體上有若干命令按鈕和一個(gè)文本框,程序運(yùn)行時(shí)焦點(diǎn)置于文本框中,為了在按下回車(chē)鍵時(shí)執(zhí)行某個(gè)命令按鈕的Click事件過(guò)程,需要將該按鈕的_屬性設(shè)置為T(mén)rue.A. EnabledB. D

25、efaultC. CancelD. Visible答案：B第50題 題號(hào):13數(shù)學(xué)表達(dá)式 對(duì)應(yīng)的VB表達(dá)式是_A. (x5-Cos(29)/Sqr(ex+In(y)+5B. (x5-Cos(29)/(Sqr(Exp(x)+Log(y)+5)C. (x5-Cos(29*3.14159/180)/(Sqr(Exp(x)+Log(y)+5)D. (x5-Cos(29*3.14159/180)/(Sqr(ex+Log(y)+5答案：C二、填空 共20題 第1題 題號(hào):28運(yùn)行下列程序，單擊Command1, 在窗體上顯示的第一行內(nèi)容是_【1】_, 第二行的內(nèi)容是_【2】_, 第三行的內(nèi)容是_【3】_。

26、 Option Explicit Private Sub Command1_Click() Dim s As String s="Basic" Call trans(s) End Sub Private Sub trans(s As String) Dim j As Integer,t As String Dim k As Integer k=3 Do j=InStr(s,"a") t=LCase(Right(s,j) s=Right(t,Len(s)-k) & Left(s,Len(t) k=k-1 Print s Loop Until k=0

27、 End Sub答案：=(答案1)=icBa=(答案2)=baicBa=(答案3)=baba第2題 題號(hào):18執(zhí)行下面程序，單擊Command1，則窗體上顯示的第一行是【1】，第三行是【2】，最后一行是【3】。Option ExplicitPrivate Sub Command1Click() Dim x As Integer,y As Integer x=12:y=0 Do While x> 0 If x Mod 4=0 Then y=y+x Else y=y-x End If x=x-3 Print x,y LoopEnd Sub答案：=(答案1)=9 12=(答案2)=3 -3=(

28、答案3)=0 -6第3題 題號(hào):27執(zhí)行下面的程序，單擊Command1,窗體上顯示的第一行是_【1】_，第二行是_【2】_,第四行是_【3】_。 Option Explicit Private Sub Command1_Click() Dim a As Integer, b As Integer a=1 : b=1 Call sub1(a, b) Print a, b End SubPrivate Sub sub1(a As Integer, b As Integer) a=a+b : b=b+a Print a, b If a>10 Then a=a+b b=b+a Else Cal

29、l sub1(a, b) End If End Sub答案：=(答案1)=2 3=(答案2)=5 8=(答案3)=34 55第4題 題號(hào):26運(yùn)行下面的程序，單擊Command1,在窗體上顯示的變量a的值為_(kāi)【1】_，變量b的值為_(kāi)【2】_,變量c的值為_(kāi)【3】_。 Option Explicit Private Sub Command1_Click() Dim a As Integer, b As Integer, c As Integer a=5: b=10: c=15 Print fun(a,b,c)+fun(a,b,c) Print a,b,c End SubPrivate Funct

30、ion fun(x As Integer, y As Integer, z As Integer) As Integer z=x x=x+y y=y+z fun=x+yEnd Function答案：=(答案1)=30=(答案2)=30=(答案3)=15第5題 題號(hào):16執(zhí)行下面的程序，連續(xù)三次單擊命令按鈕Command1之后，A數(shù)組共有 【1】 個(gè)元素；數(shù)組元素A(2)的值是【2】 ，A(4)的值是 【3】 。 Option Explicit Option Base 1 Private Sub Command1_Click() Static A( ) As Integer,n As Integ

31、er Dim i As Integer,k As Integer k=n ' n=n + 2 ReDim Preserve A(n) For i=k+1 To n A(i)=i*n+1 Next i For i=1 To n Print A(i); Next i Print End Sub答案：=(答案1)=6=(答案2)=5=(答案3)=17第6題 題號(hào):32運(yùn)行下面程序，單擊Command1，在窗體上顯示的變量A的值為_(kāi)【1】_,變量B的值為_(kāi)【2】_。Option ExplicitDim a As IntegerPrivate Sub Command1_Click() Dim b

32、 As Integer b = 3 a = 4 b = fun(fun(a, b + 2), a) + b Print a, bEnd SubPrivate Function fun(n As Integer, k As Integer) n = n + a k = n - k fun = n + k + aEnd Function答案：=(答案1)=19=(答案2)=68第7題 題號(hào):14執(zhí)行下面的程序，單擊Commandl，則窗體上第一行顯示的是【1】 ，第二行顯示的是【2】 。 Option Explicit Dim x As Integer Private Sub Command1_C

33、lick() Dim y as Integer X=10:Y=2 Call process(y) Print X,Y Call process(y) Print X,Y End Sub Private Sub process(n As Integer) Dim y As Integer If n>0 Then x=x-n y=x Else x=x+n y=x+2 End If n=-n End Sub答案：=(答案1)=8 -2=(答案2)=6 -2第8題 題號(hào):37執(zhí)行下面程序，單擊Command1，窗體上顯示的第一行是_【1】_，第二行是_【2】_，第四行是_【3】_，最后一行是_【

34、4】_.Option ExplicitPrivate Sub Command1_Click() Dim n As Integer n = 5 Call test(n) Print nEnd SubPrivate Sub test(ByVal n As Integer) Dim i As Integer, s As Integer If n > 0 Then For i = 1 To n s = s & CStr(i) Next i Print s Call test(n - 2) Else Print "OVER" End IfEnd Sub答案：=(答案1)

35、=12345=(答案2)=123=(答案3)=OVER=(答案4)=5第9題 題號(hào):38運(yùn)行下列程序，單擊Command1，在窗體上顯示的第一行內(nèi)容是【1】,第二行的內(nèi)容是【2】,第三行的內(nèi)容是【3】。（"A"的ASCII碼是65，"Z"是90）Option ExplicitPrivate Sub Command1_Click() Dim i As Integer, st As String, n As Integer, p As String * 1 p = "B" For i = 3 To 1 Step -1 n = Asc(p)

36、 - i If n < 65 Then n = n + 26 st = Chr(n) st = st & F(i) Print st Next iEnd SubPrivate Function F(n As Integer) Dim i As Integer Static s As Integer For i = 1 To n s = s + i Next i F = sEnd Function答案：=(答案1)=Y6=(答案2)=Z9=(答案3)=A10第10題 題號(hào):21執(zhí)行下面的程序，單擊Command1，輸出的變量i的值是【1】，變量j的值是【2】，變量k的值是【3】。

37、Option Explicit Private Sub Command1_Click() Dim i As Integer,j As Integer Dim k As Integer i=10 j=4 k=Funk(i,j) Print i,j,k End Sub Priate Function Funk(ByVal A As Integer,B As Integer) As Integer A=A+B B=B-2 If B=0 Or B=1 Then Funk=1 Else Funk=A+Funk(A,B) End If End Function答案：=(答案1)=10=(答案2)=0=(答

38、案3)=15第11題 題號(hào):31運(yùn)行下面程序，如果連續(xù)三次單擊命令按鈕之后，數(shù)組共有_【1】_個(gè)元素；數(shù)組元素A(2)的值是_【2】_,A(5)的值是_【3】_.Option ExplicitOption Base 1Private Sub Command1_Click() Static a() As Integer, n As Integer Dim i As Integer, k As Integer k = n n = n + 2 ReDim Preserve a(n) For i = k + 1 To n a(i) = i * n + 1 Next i For i = 1 To n P

39、rint a(i); Next i PrintEnd Sub答案：=(答案1)=6=(答案2)=5=(答案3)=31第12題 題號(hào):17執(zhí)行下面的程序，單擊Command1,在窗體界面上顯示的第一行是【1】，第二行是【2】，第三行是【3】 ，第四行是【4】 。 Option Explicit Private Sub Command1_Click() Dim a As Integer,b As Integer,i As Integer i=1218 a=i100 b=i Mod 100 If b<>0 Then Print a Print b Print Lcd(a),(b);a;b

40、 Print Lcd(a,b);a;b End If End Sub Private Function Lcd(x As Integer,Y As Integer) As Integer Dim d As Integer If x<y then d=x:x=y:y=d End If d=x Do If x Mod y=0 Then Lcd=x Exit Do Else x=x+d End If LoopEnd Function答案：=(答案1)=12=(答案2)=18=(答案3)=36 12 18=(答案4)=36 36 12第13題 題號(hào):13執(zhí)行以下程序，單擊Command1，則在P

41、icturel上顯示的第一行是【1】，第二行是【2】，第三行是【3】 。 Option Explicit Private Sub Command1_Click() Dim A(3,3) As Integer,i As Integer,j As Integer Dim k As Integer i=3:j=2:A(i,j)=1:k=1 Do Until k>9 k=k+1 If i+1>3 And j+1<=3 Then i=1:j=j+1 ElseIf i+1<=3 And j+1>3 Then i=i+1:j=1 Elself i+1>3 And j+1&

42、gt;3 Then i=i-1 ElseIf i+1<=3 And j+1<=3 And A(i+1,j+1)<>0 Then i=i-1 Else i=i+1:j=j+1 End If A(i,j)=k Loop For i=1 To 3 For j=1 To 3 Picture1.Print A(i,j); Next j Picture1.Print Next iEnd Sub答案：=(答案1)=4 9 2=(答案2)=3 5 7=(答案3)=8 1 6第14題 題號(hào):22執(zhí)行下列程序，單擊Command1，在窗體上顯示的第一行內(nèi)容是【1】，第二行的內(nèi)容是【2】，第

43、三行的內(nèi)容是【3】。Option ExplicitPrivate Sub Command1_Click Dim n As Integer ,i As Integer n=2 For i=7 To 1 Step -1 Call sub2(i,n) Print i,n Next i End SubPrivate Sub sub2(x As Integer,y As Integer) Static n As Integer Dim i As Integer For i =2 To 1 Step -1 n =n+x x =x-1 Next i y=y+nEnd Sub答案：=(答案1)=5 15=(答

44、案2)=2 35=(答案3)=-1 56第15題 題號(hào):20執(zhí)行下列的程序，單擊Command1，在窗體上顯示的變量b的值為【1】，變量c的值為【2】，變量z的值為【3】。 Private Sub Command1_Click() Dim b As Integer,c As Integer,z As Integer b=2 c=1 z=fun(b,fun(b+1,c)+b-c+1 Print b,c,z End Sub Private Function fun(x As Integer,ByVal y As Integer) As Integer x=x-y y=x+y+2 fun=y-x E

45、nd Function答案：=(答案1)=-1=(答案2)=1=(答案3)=4第16題 題號(hào):25執(zhí)行下面程序，單擊Command1,窗體上顯示的第一行是_【1】_,第二行是_【2】_,第四行是_【3】_. Option Explicit Private Sub Command1_Click() Dim a As Integer, b As Integer, i As Integer a=2:b=5 For i=a To a*b Step a Call sub1(i,a,b) Print a,b Next i Print a,b,i End Sub Private Sub sub1(i As

46、Integer, a As Integer, b As Integer) i=i+1 a=a+1 b=b+1 End Sub答案：=(答案1)=3 6=(答案2)=4 7=(答案3)=5 8 11第17題 題號(hào):19執(zhí)行下面程序，單擊Command1，窗體上顯示的第一行是【1】，第二行是【2】，第三行是【3】。Option ExplicitOption Base 1Private Sub Command1_Click() Dim sa (3,3) As String*1,i As Integer,j As Integer,k as Integer k=1 For i=1 To 3 For j=1 To 3 sa(i,j)=Chr(Asc("A")+(k+i+j) Mod 26) Print sa(i,j);" " k=k+3 Next j Print Next iEnd Sub答案：=(答案1)=D