南京工業(yè)大學(xué)VB期末考試模擬題6

1、安全土木化工化學(xué) vb練習(xí)題4滿分：ill分姓名：1、單項(xiàng)選擇題(本題共計(jì)60分)1、在過程調(diào)用中，參數(shù)的傳遞可以分-(為)和兩種方式。A、按值傳遞按地址傳遞B、按地址傳遞按參數(shù)傳遞C、按參數(shù)傳遞按值傳遞D、按位置傳遞按參數(shù)傳遞2、下面的過程定義語句中合法的是A、Sub Piocl (ByValn 0)B、Sub PiocKn )As Site gerC、Function ProcKPiocl)D n Function P xocl (ByValn )3、在參數(shù)傳遞過程中,使用關(guān)鍵字來修飾參數(shù),可以使之按值傳遞。A、ByVaiB、ByR efC、VaheD、R eference4、要想在過程調(diào)

2、用后返回兩個(gè)結(jié)果，下面的過程定義語句合法的(是)A、Sub Piocl (ByValn , ByValm )B、Sub Piocl(n , ByValm )C、Sub PidcI (n , m )D、Sub Procl(ByValn , m )5、通用過程可以通過執(zhí)行“工具”菜單中的 命令來建立。()A、添加過程B、通用過程C、添加窗體D、添加模塊6、可以在窗體模塊的通用聲明段中聲明的是 。()A、全局變量B、全局常量C、全局?jǐn)?shù)組D、全局用戶自定義類型7、當(dāng)運(yùn)行程序時(shí)，系統(tǒng)自動(dòng)執(zhí)行啟動(dòng)窗體的 事件過程。()A 、 LoadB、C lizk C、U nLoad D、G otFocus8、在語句P

3、ublic Sub Sort(iAs hteger)屮i是一個(gè)按傳遞的參數(shù)。()A、地址B、值C、變量D、常量9、下列定義Sub過程的語句中，止確的語句是 oPrivate Sub TestgtAs String* 8) Private Sub T est(S anay () A s S tring * 5) (3) P rizate S ub Test(Sanay () A s String)1 P rivals Sub Test(S tA s S tring)()A、B、©C、D、10、在窗體模塊的通用聲明處有如下語句，會產(chǎn)生錯(cuò)誤的語句是 o ©ConstA Ashte

4、ger=25 ® Public S tA s S tring *8 R eD in B (3) A s bteger D in ConstX As hteger=10 ()A、B、C、D、11 > 在窗體 Form 1 中用 Public Sub Fun (k A s hteger,y A s S hgle) ” 定義過程 Fun,在窗體 Form 2 中定義了變量i為htegerj為Single,若要在 Fozm 2的某事件過程中調(diào)用 Foim 1中的Fun過程， 則下列語句中，正確的語句有 個(gè)。 Ca31Fun(iJCallFoim 1. Fun(ij>Form l.

5、Fun Q, j Form 1.Fun 卄1,0()A、1B、2C、3D、412. 某過程的說明語句中，正確的數(shù)組說明語句是oC onstN as hteger=4D in L as hteger D in X (L) A s Integer D in A(K) As IntegerC onstK A s lnteger=3 D in B(N) A s Integer D in Y G000 To 2008) As Integerr B.r C.D.13、程序中的不同過程之間，不能通過 進(jìn)行數(shù)據(jù)傳遞。全局變量 窗體或模塊級變量形參與實(shí)參結(jié)合靜態(tài)變量()A、B、C、D、14>調(diào)用由語句 P

6、rK7ate Sub C onvertQf As htegex)定義的Sub過程時(shí)，以下不是按值傳遞的語 句是。()A、C alLC onvert (X)B、C aILC onvert(X *1)C C onvert(X)D、C onvertX15、Sub過程和Function過程最根本的區(qū)別是 。()A、Sub a程可以使用Call語句或直接使用過程名調(diào)用，而Function過程不可以B、Functbn過程可以有參數(shù)，Sub過程不可以C、兩種過程參數(shù)的傳遞方式不同D、Sub過程的過程名不能返回值，而 Functbn過程能通過過程名返回值16、在窗體模塊的通用聲明段中聲明變量時(shí)，不能使用關(guān)鍵字

7、。()A、DinB、Pubh?C、PrivateD、S tatic17、假定己定義了一個(gè)過Sub AddQAsSingpb AsSingle),則正確的調(diào)用語句是 (程)A、Add (12 , 12)B、CallAdd(2 *x , Sh(1.57)C、C allAdd x , yD、CallAdd(12 ,12, x)18單擊一次命令按鈕后，下列程序代碼的執(zhí)行結(jié)果為 Private Sub proc(3 0 As foteger)S tatic iA s IntegerD o a. Q = a (i + a (i+ 1)f i+ 1Loop W hfb i< 2End SubPriva

8、te Sub C om m andl_C lick0D in m As Jhteger; iAs Integer; x(10)As IntegerFor i= 0 To 4xQ = i+ 1N ext iFor i= 1 To 2C alproc (x)N ext iFor i= 0 To 4PrintxQN ext iEnd SubA.34756 r B.35745C.12345D.1235719、如下程序，運(yùn)行的結(jié)果是D in a% ,b% ,c%Public Sub pl(x% ,y% )din c% =2*x : y-y+2 : c=x+yEnd SubPublr Sub P2(x%,

9、 ByValy%din c%x=2*x : y二y+2 : c二x+yEnd SubPrivate Sub C om m andLC rk(a=2:b=4:c=6caILplfe,b)pnnt a= ; a ; b= ; b ; c= ; c callp2 G,b)pmt a= ; a ; b= ; b ; c= ; cEnd Sub ()A、a=2 b=4 c=6a=4 b=6 c=10B、a=4 b=6 c=10a=8 b=8 c=16C、a=4 b=6 c=6a=8 b二6 c=6D、a=4 b=6 c=14a=8 b=8 c=620、設(shè)有如下說明：Public Sub F1&%

10、 )n =3%i+4End SubPrivate Sub C om m andLC lickOD in n% , m %n=3m =4'調(diào)用Fl語句End Sub則在CommandLClhk事件中有效的地址傳遞的調(diào)用語句是。()A、F1 n+mB、Fl mC、Fl 5D、F1m +521、窗體的Name屬性為Fxm 1 ,在窗體模塊通用聲明處和過程Subl中分別用Public K Ashteger,D in K As hteger聲明了兩個(gè)同名變量 K，則在過程Subl中要訪問全局變量 K，可采用 O()A、Fm l.KB、Forai .KC、Form l.KD、K22、要使Piin方

11、法在 Foim Load事件中起作用，要對窗體的 屬性進(jìn)行設(shè)置。()A、BackC obrB、FoxeC obrC、AutoR ediawD、C aptbn23、在調(diào)用Sub過程或Functbn過程時(shí)，采用 傳送相應(yīng)過程的變量名、數(shù)組名、常數(shù)或表達(dá)式。()A、形式參數(shù)B、實(shí)際參數(shù)C、對象參數(shù)D、數(shù)組參數(shù)24以下有關(guān)Sub過程與Functbn過程的區(qū)別，正確的是 °()A、 Sub過程可以使用C a!L語句或直接使用過程名調(diào)用，而 Functbn過程不可以B、Functbn過程可以有形參，Sub過程不能有形參C、兩種過程參數(shù)傳遞方式不同D、Sub過程沒有返回值，F(xiàn)unctbn過程能返回

12、值25、給出下列程序代碼，在單擊命令按鈕時(shí)的輸出結(jié)果是oPKRrate Sub C om m andl_C lick ()D in xAs hteger; yAs Integerx 二 1:y 二 1Forn=lTO 3z=F irstFunc 仗，y)Printn, z ,N extnEnd SubP rkrate Functbn FirtFunc 仗 A s htegei; yAs htegei) A s htegerD in n A s htegerDo W hile n <= 4x 二 x+yn 二 n+1LoopF irstFunc=xEnd Function ()A、1621

13、1316B、26131116C、123456D、21313326、給出下列程序代碼在第一次單擊命令按鈕時(shí)文本框Textl和Text2中的內(nèi)容，第二次單擊命令按鈕時(shí)文本框Text!和Texl2的內(nèi)容。D in y As IntegerPrivate Sub C om m andl_C Lck()D in x As Integerx=2TextlText=S econdFunc (FirstFunc 仗)，y)Text2.TexlFFinslFunc 仗)End SubPrivate Functbn FirtFunc (x As Integei)x 二 x+y:y 二 x+yF irstFunc=

14、x+YEnd FunctbnP rirate Functbn S econdFunc (x A s htegei; y A s Jntegei)S econdFunc=2*x+yEnd Functbn ()A .10,10 20,20B、20,20 30,30C、50,50 10,10D .10,10 58,5827、給出下列程序代碼，在單擊三次命令按鈕時(shí)的輸出結(jié)果是D in x, y, z A s htegerSub ss ()x=x+ly二 y+1z=z+lPrhtx;y;zSub EndPrirate Sub C om m andl_C lick ()D in x, y, zx=l:y=

15、2:z=3CallSSP rhtx;y;zEnd Sub ()A、1111 2 32 2 21 2 33 3 31 2 3B、1111 1 12 2 22 2 23 3 33 3 3C、1231 2 31 2 3D、1112 2 23 3 328、設(shè)有下列程序代碼，在單擊命令按鈕時(shí)的輸出結(jié)果是oS ub S S (ByValx, ByRefy, z)x=x+ly二 y+1z=z+lEnd SubPrRrate Sub C om m andl_C Lek ()A = 1:B二2CallSS (A,B,C)P rhtA ,B ,CEnd Sub ()A、123B、134C、224D、133陰影”2

16、9、一般來說，當(dāng)變量名稱相同而作用域不同時(shí)，局限性 的變量總會用遮住局限性不太大的變量。()A、大B、小C、更小D、比較小30、在過程中定義的變量，如果希望在離開該過程后，還能保持過程中局部變量的值，則應(yīng)該使用關(guān)鍵字在過程中定義局部變量。()A、DinB、PrivateC、PubkD s S tatb31、如果在被調(diào)用過程中改變了形參值，只影響副本，而不會影響實(shí)參的變量本身，這種參 數(shù)傳遞方式稱為傳遞。 （）A、按值B、按地址C、ByR efD、按形參32通用過程可以完成一項(xiàng)指定任務(wù)，必須由 調(diào)用才行。r A應(yīng)用程序rB.系統(tǒng)引發(fā)rJc.定時(shí)器rD.Sub Main（1分）33.以下說法正確的

17、是 or A屬性是對象的一部分£Lb.方法是對象的一部分事件是對象的一部分CjDA、B都正確34、若在應(yīng)用程序中用Private Sub Subl(Xash-teger,YasS hgle)定義了子程序 Subl,調(diào)用程序中的變量I、J均為hteger型，則止確調(diào)用子程序Subl的Call語句是。© CallSubl aj)©CallSubl (3.1415,1)©CallSubl (3.14,234) CallSubl ( “ 245 ”，“ 231.5” )()A、B、C、D、無35、窗體上畫一個(gè)按鈕，然后編寫如下的事件代碼。在按鈕上單擊，輸出為oP

18、rivate Sub fiin ()S tatic a A s htegera=a+2Prints;End SubPrivate Sub C om m andl_C Lck()D in m A s htegerForm =1 To 3C allfiinX extmEnd Sub ()A、222B、000C、248D、24636、在窗體上添加一個(gè)命令按鈕，名為Commandl ,事件過程如下。執(zhí)行結(jié)果是 Sub pb(b()As htegei)For Fl To 4B ®二2*iN ext iEnd SubPrivate Sub C om m andl_C lick()D in a(l

19、 To 4)As htegera (1)=5 :a (2)=6 : a 6)=7 :a (4)=8pb aFor Fl To 4PrhtaO;N ext iEnd Sub ()A、55551010B、5555510C、5 5 1051010D、55510 10 1037、在窗體上畫一個(gè)名稱Com m andl的命令按鈕和一個(gè)名稱為Textl的文本框，然后編寫如下程序：Private Sub C om m andl_C LckOD in x, y, z As htegerx=5:y=7:z = 0Textl.Text二C allpl (x, y, z)Textl.Text= S trfe)End

20、 SubPrKrate Sub pl (ByVala As hteger, ByValb As Integei; c As htegei)c = a + bEnd Sub程序運(yùn)行后，如果單擊命令按鈕，則在文本框中顯示的內(nèi)容是。()A、 0B 、 12 C 、S trfe)D、沒有顯示38、856.窗體中添加一個(gè)命令按鈕，程序運(yùn)行后，輸出結(jié)果為Private Sub test(x,y,z)x=x+l:y=y+2:z=z + 3PrintSub 二；x;y;zEnd SubPrivate Sub C om m andl_C lick()al = 10:bl 二 17: cl = 41C aJlte

21、stGl'bl+Z, fcl)PrhtzI ah=，/; al; bl; clEnd Sub ()A、Sub=10 17 41M ah=ll 17 44B、Sub=10 17 41M ah=ll 17 44C、Sub二 12 11 41M ah=10 1141D、Sub二 11 21 44M ain=ll 17 4139 閱讀下列程序，其輸出的結(jié)果是oPrivate Sub C om m andl_C lickOD in a (1 To 3) A s btegerFor Fl To 3 a(D=iN ext iC allsubl (a)ForF2 To 3Printa (N ext i

22、End SubPublh Sub subl Q 0 A s Integer)For Fl To 3a (D=跑N ext iEnd Sub£LJa.12B.23rr，C.49 r D.14(1分)40.程序中未定義的變量均為integer ,單擊C om m andl,程丿了:的輸出 是2Private Sub C om m andl_C lick0k=4 : m =1n=Func (k, m )Prhtn, Func(k,m )End SubPublr Function Func (3. A s Integet; b A s Integer) A sIntegers tatic m

23、 As Integerm =0 : f2Fi+m +1m 二#a+bFunc=mEnd Function£31.88B.820r C.8161D.817（1分）41. 在多窗體的應(yīng)用程序中，當(dāng)前窗體模塊的Form_Click事件過程中包含如下語句，單擊該窗體，其中 一定可以將 Hello顯示在當(dāng)前窗體上。r A Forml.Printr門B Me.Print" HelloC . Debug.Print “ Hello “CD Form2.Print " Hello "（1分）42. 當(dāng)一個(gè)工程含有多個(gè)窗體時(shí)，其中的啟動(dòng)窗體是。A.啟動(dòng)時(shí)建立的窗體（1分）

24、(B.第一個(gè)添加窗體廠C .最后一個(gè)添加的窗體r D.在“工程屬性”對話框中指定的窗體43. Sub Main函數(shù)可以在模塊中定義。A.窗體r B.標(biāo)準(zhǔn)r C類模塊（1分）“添加窗r D以上均可44. 下列操作中不能向工程添加窗體的是 。r A.單擊工具欄上的添加窗體按鈕廠B.右擊窗體，在彈岀的菜單中選擇“添加窗體”命令r C.右擊工程資源管理器，在彈出菜單中選擇“添加”，然后在下一級菜單中選擇體”r D執(zhí)行“工程”菜單中的“添加窗體”命令45. 要為工程添加一個(gè)過程，可執(zhí)行“”菜單中的“添加過程”廣A文件B.視圖r C.工程D.工具46. 以下說法正確的是 r A.在vb中，過程可以嵌套定義

25、也可以嵌套調(diào)用 rB.在VB中，過程可以嵌套定義但不可以嵌套調(diào)用（1分）（1分）（1分）C在VB中，過程不可以嵌套定義但可以嵌套調(diào)用D.在VB中，過程不可以嵌套定義也不可以嵌套調(diào)用47. 模塊的通用聲明處有如下語句，會產(chǎn)生錯(cuò)誤的語句是 ©Const a as Integer=25 Public St As String *8 Re Dim B（3） As Integer Dim Const X As Integer=10C A.B.（1分）48. 使用Public Const語句聲明一個(gè)全局的符號常量時(shí)，該語句應(yīng)放在 過程中廠B.窗體模塊的通用聲明段C. 標(biāo)準(zhǔn)模塊的通用聲明段D窗體模

26、塊或標(biāo)準(zhǔn)模塊的通用聲明段（1分）49. 可以在 中，使用語句 Public PubStr As String*20 定義一個(gè)定長字符串。r A窗體模塊標(biāo)準(zhǔn)模塊類模塊' D三者均可（1分）50. 在窗體的General段聲明變量時(shí)，不能使用 關(guān)鍵字。B PublicPrivateStatic51. 以下有關(guān)變量作用域的說明中，錯(cuò)誤的是 r A只有在標(biāo)準(zhǔn)模塊中用Public語句說明的變量才是全局變量B在過程中不能使用Public語句說明全局變量C C.在標(biāo)準(zhǔn)模塊的通用聲明處可用語句說明模塊級變量（1分）r D在窗體的通用聲明處可用Private語句說明窗體級變量52. 單擊按鈕，輸出為oP

27、rivate Sub fun()Static a As Integera=a+2Print a;End SubPrivate Sub Command l_Click()Dim m As IntegerFor m = l To 3Call funNext mEnd SubrA.222rB000rC.248rD.246（1分）53. 在單擊命令按鈕時(shí)的輸出結(jié)果是 Private Sub Command l_Click （）Dim x%, y%x=l：y=lFor n = l to 3z=First （x, y）Print n, zNext n26131116C.123456D. 213133(1分

28、)End SubPrivate Function First% (x%, y%)Dim n%Do While n <= 4x=x+yn=n+lLoopFirs t=xEnd Function1 A. 1621131654. 設(shè)有下列程序代碼，在單擊命令按鈕時(shí)的輸出結(jié)果是Sub SS (ByVai x, By Ref y, z)x=x+ly=y+lz=z+lEnd SubPrivate Sub Command l_Click ()A=1: B=2:C=3CallSS (A,B,C)Print A,B,CEnd Subr A. 1 23r B. 1 34廠 C. 224D. 133(1分)5

29、5. 程序運(yùn)行后，如果單擊命令按鈕，則在文木框中顯示的內(nèi)容是Private Sub Command l_Click()dim x, y, z As Integerx=5: y=7: z=0textl=call pl(xyz)text l=str(z)End SubPrivate Sub p l(ByVal a%, By Vai b%, c%)c=a+bEnd Sub 廣 |a. or B. 12廣C Str(z)r D沒有顯示(1分)56. 當(dāng)在Cmdl按鈕上單擊時(shí)，程序的輸出是 .Public Function Func(a%,b%)As IntegerStatic m As Integer

30、 : Dim i As Integerm=0 : i=2: i=i+m + l : m=i+a+b : Func=mEnd FunctionPrivate Sub Cmd l_Click()Dim k%,m%,n%k=4 : m = l :n=Func(k,m)Print n, Func(k, in)End Sub£L_A. 88r B 8 20C . 8 16D . 8 17(1分),可使57. 若需要在同一窗口內(nèi)安排兩組相互獨(dú)立的單選按鈕(OptionBuHon )用，控件將它們分隔開。 TexBox Picture linage Frame£1 B.r_c.D(1分)

31、的Load事件過程中有foxm2.show ,則程序啟動(dòng)58. 如果是啟動(dòng)窗體，并且 Foini 1 后。r A發(fā)生一個(gè)運(yùn)行時(shí)錯(cuò)誤r B.發(fā)生一個(gè)編譯錯(cuò)誤r C.在所有的初始化代碼運(yùn)行后Forml是活動(dòng)窗體D.在所有的初始化代碼運(yùn)行后Form2是活動(dòng)窗體（1分）59.要從自定義對話框 Form2中退出，可以在該對話框的“退出”按鈕的Click事件過程中使用的語句是。A.Unload Form2BHide Form2C.Unload Foi*m2D.Form2.Unload(1分)60.窗體有一個(gè)方法可以使窗體隱藏但不從內(nèi)存中卸載，該方法是ShowB.R e leaser C.HideD.U n

32、bad2、填空題（本題共計(jì)51分）1.下而程序的功能是：通過鍵盤輸入一個(gè)正整數(shù)N ,找岀所有分母為N,且數(shù)值介于1/3和1/4之間的最簡分?jǐn)?shù)（即分子、分母除 1以外無公因子）。Private Sub Command l_Click()dim i As Integer, J As Integer, n As Integer, Flag As Booleann = Val(InputBox( “輸入分母 N :",11)for i = 1 To n - 1Call Sub 1(1,N,Flag)If ThenPrint CStr(I)； "/ ” ； CStr (N)End I

33、fnext iEnd SubPrivate Sub Sub 1(K As Integer, N As Integer , F As Boolean)dim i As Integerif Thenfor i = 2 To kIf ©ThenExit SubEnd Ifnext if = Trueend IfEnd Sub(4分)答案：(1) I, (2), (3) I, (4) I2.下列程序的功能是：單擊窗體事件后，在窗體上顯示1 ! +2 ! +3 ! +9 !的和。Private Sub Form_Click()Dim s&, i%s=0For i=l To 9s=s +

34、Next iPrint sEnd SubPrivate Function fact( )As LongDim i%,f&For i=2 To nf=f*iNext iEnd Function答案：(1) I, (2) I, (3) I, (4) I3.用二分法求函數(shù)<10_5of(x)=x 3_4x + 1=0在 范圍內(nèi)的x=05附近的一個(gè)實(shí)根，其計(jì)算誤差為x=2(4分)1x1x21Private Sub form_Click ()Dim x!, t!, xl As Single, x2 As Singlexl=0: x2=5Do While _x = (xl+x2)/2If S

35、gn(func(x) ® Thenx2 = xElsexl = xEnd IfLoopPrint ux = ”; xEnd SubPrivate Function func( x! ) As Single fl =End Function答案:(1)4.用隨機(jī)數(shù)模擬擲骰子，統(tǒng)計(jì)擲 50次，骰子各點(diǎn)出現(xiàn)的次數(shù)。 隨機(jī)整數(shù))Option Base 1Private Sub Command l_Click()Dim For i = 1 To 50n =d (n )=Next iFor i = 1 To 6Print i; u點(diǎn)出現(xiàn)的次數(shù)：“；d(i)Next iEnd Sub（3分）（提示

36、：骰子點(diǎn)數(shù)只能是 16位答案：（1） II , (3) I（3分）；將A、B語句交換位置，運(yùn)行5執(zhí)行程序單擊命令按鈕后，調(diào)試窗口中顯示的結(jié)果是 程序后調(diào)試窗口的內(nèi)容是 。Option ExplicitSub qq(k,x)Dim i As IntegerX=1For i=l To kx=x*iNext iEnd SubPrivate Sub Command l_Click()Dim n%, i%, x%n=l : x=lFor i=l To 3Call qq(i,x) 'A n=n+x'BNext iDebug.Print "n=" & nEnd S

37、ub答案：(1)儀分)；將A、B語句互換后，執(zhí)行結(jié)果是 。6. 下列程序執(zhí)行后，輸出的結(jié)果為Private Sub Command l_Click()Dim x As Integerx = 1Call sort(x) ,APrint x;call sort(x) ,BPrint x;End SubPrivate Sub sort(y As Integer)y 二 y+1End Sub答案：(1) I,(2分)7. 運(yùn)行下列程序，在窗體上顯示的第一行是第二行是_®_。Private Function t(n As Integer, k As Integer) As Integert =

38、 0Do While k>0t = n Mod 10n = n 10 k = k- 1LoopEnd FunctionPrivate Sub Form_Click()Print t(1234, 2)Print t(1234, 4)End sub答案：(1),(2分)8. 執(zhí)行程序，單擊窗體后在窗體上顯示的第一行是 ，第二行是 ；若將sub過程形參表中的ByVai關(guān)鍵字刪除，再執(zhí)行程序后在窗體上顯示的第一行是，第二行是 。Private Sub Value (ByVai m As Integer,ByVai n As Integer)m=m*2n=n-5Print,m=,;m,'n

39、=,;nEnd SubPrivate Sub Form_Click()Dim x As Integer As IntegerX=20 : y=15Call Value(x,y)Print,x=',;x,y=,;yEnd Sub(4分)d ,第二行是 ,第三行是_(3L o答案：(1)9. 執(zhí)行下列程序，在窗體上顯示的第一行是Option ExplicitPrivate Sub Commandl_Click()dim x As Single, i As Integerx = 1.2For i = 1 To 3x = x * iPrint fun l(x)Next iEnd SubPriv

40、ate Function funl(x As Single) As SingleStatic y As Singley = y+ xfun 1 = y / 2End Function 答案：(1) I,(2) I, (3) I(3分)10. 單擊按鈕 Commandl , A ( 1, 1)的值是_,A ( 1, 4)的值昱 ,A (4,1)的值是，A (4, 4)的值是 。Option Base 1Private Sub Command l_Click()Dim a() As Integer, i%, j% , k%, n%n=4 : Re Dim a(n, n)i=l : j=n : a(

41、i, j) = 1For k = 2 To n *nIf i+l>n Theni = n -j + 2: j= 1Els elf i+l<=n And j+l>n ThenJ=JT :匸 1Elsei=i+l:j=j+lEnd Ifa(i,j) = kNext kFor i = 1 To nFor j = 1 To nPrint a(i,j);Next jPrintNext i第二行,T extlEnd Sub11、運(yùn)行下面程序，當(dāng)單擊窗體時(shí)，窗體上顯示的內(nèi)容的第一行(1)是是(2)o Private Sub test(x As htegei)x = x *2 + 1Ifx

42、< 6 ThenC a 11 test©)End Ifx = x *2 + 1Fonn l.PrintxEnd SubPrivate Sub Foun _C JickOtest2End Sub12、添加按鈕Commandl和文本框TextL,并編寫下列代碼。執(zhí)行程序單擊命令按鈕后中是;將A、B語句交換位置，執(zhí)行程序單擊命令按鈕后,Textl中是。0 ptbn ExplicitSub abc(k,x)D in iA s htegerx=lFor Fl To kx 二 x*iN ext iEnd SubPrkate S ub C om m andl_C lickOD in n As

43、 3htegei;iAs hteger;x As htegern 二 0 :x=0For Fl To 3C allabc (i,x) ?A 語句n二n+x 'B 語句N ext iTextl.Texbn二"& nEnd Sub13、運(yùn)行下面程療；，單擊命令按鈕 C om m andl ,則在窗體上顯示的內(nèi)容是 Private Sub C om m andl_C Lck()D in x As Long,n As htegerx=33 :n=5y=ret(x,n)PrhtyEnd SubPrivate Function retg As Long,L As htegex)A

44、s LongIfL> 1 Then re1=iet(S 丄T)S 二 S+2reiFSE nd Function14、下程序的功能是找出此數(shù)各位數(shù)字的階乘相加之和等于該數(shù)，并在列表框 階乘由Fundn計(jì)算。在(1)、處填上正確內(nèi)容。Private Sub C om m andl_C lick()Fork=l To 1000a=LTrin (S tr(k)n=0For Fl To Len fe)p=Val(M Bfe,il)n=n+fect>)N ext iIfn=k Then(1)N extkEnd SubPrivate Functbn :fectQifx< = l Then

45、feclFlElsefeclF(2)End IfE nd Functbn15、窗體中有一文本框Textl ,執(zhí)行下面程序后，窗體上結(jié)果是果是。0 ptbn ExplicitPrivate Sub Form _C lick()D in a A s htegera=2CallSubKa)T extl.T ext=aEnd SubPrivate Sub Subl (x As htegex)x=x2+lfx< 10 ThenC allSubl (x)List!中顯示。，文本框中輸出結(jié)End Ifx=x*2+lP rhtx;End Sub16、執(zhí)行下面的程序，在窗體上顯示的輸出結(jié)果的第二行是.0

46、ptbn ExplicitD in a A s Integei; b A s IntegerPrivate Sub C om m andl_C Lck()D in c A s Integera = 1 :b = 3: c = 5P rhtfiin fc)printa ;b ;cP rhtfiin fc)End SubP rizate Functbn fiin (x A s htegerfA s S :inglefiin = a + b + x/2a = a + bb = a + xx = b + aE nd Function17、一個(gè)窗體上有一個(gè)命令按鈕C om m andl ,下列程序執(zhí)行后,Private Sub C om m andl_C Lck()D in x As IntegerX = 1C alsort(x)P rhtx;caILsort(x)P rhtx;End SubPrivate Sub sort(y A s htegex)y = y+1End Sub18、運(yùn)行下面程序，單擊窗體后在窗體上顯示的第二行結(jié)果是, 第三行是 輸出的結(jié)果為 _(D_ ;第四行結(jié)果是_D in y As IntegerPrivate Sub Foun _C lickOD in x As Integerx =