2023年VB期末考試題庫及答案

試卷方案:2023０５VｉsualBasiｃ期末考試方案一、單項選擇_共50題(選:20題*1’第1題以下有關(guān)對象屬性的說法中，錯誤的是＿____＿＿____.A.工具箱中的控件并不是VB中所有的控件Ｂ.若將Frame的Ｅｎaｂled屬性設(shè)立為Fａlｓe，則不能使用放置在Frame里面的控件C．對象的Naｍe屬性在運營時不能改變D.對象的所有屬性都可以在屬性窗口中設(shè)立第2題數(shù)學表達式的VB算術(shù)表達式為_______.Ａ.Ｓin(2７)+Sqr(x+Exp3)/（x＋ｙ)B.Sｉn(２7*3.１４１5９/1８0)+Sqr(ｘ+Eｘｐ(3）)/Abｓ(x＋y)C.Sin(2７＊３.14159／180)+Ｓqr（x+e^3)／Abs(x+y)D.Siｎ(２７＊ｐi/１80）+Sqr(x+Exp(3）/Ａbs（ｘ+ｙ)第3題下列有關(guān)對象的敘述中,對的的是_＿＿_＿＿A.對象由屬性，事件和方法構(gòu)成Ｂ.對象的所有屬性既可以在屬性窗口設(shè)立,又可以在程序運營時用賦值語句設(shè)立C.對象的事件一定就是由VB預先設(shè)立好的人工干預的動作D.對象的方法是對象響應某個事件后執(zhí)行的一段程序代碼第4題表達式CIｎt（4.５）+Cｉｎｔ(-4.51)+Iｎt（4．９)+Int(-４.１）+Fix（-1.9）＋０Mｏd2的運算結(jié)果是_＿_.A.1 ?B.-1 ?C.–2 Ｄ.第5題下列關(guān)于菜單的說法中,錯誤的是_＿______＿＿.A.每一個菜單項就是一個對象，并且可設(shè)立自己的屬性和事件B.菜單項不可以響應DbｌClicｋ事件C.VB6.0允許創(chuàng)建超過四級的子菜單D.程序執(zhí)行時，假如規(guī)定菜單項是灰色，不能被用戶選擇,則應設(shè)立菜單項的Eｎaｂled屬性為Faｌse第6題以下關(guān)于數(shù)組的說法中,錯誤的是_＿__＿_＿___.A．使用了Preservｅ子句的Ｒedim語句，只允許改變數(shù)組最后一維的上界B.對于動態(tài)數(shù)組,Rediｍ語句可以改變其維界但不可以改變其數(shù)據(jù)類型C.Erase語句的功能只是對固定大小的數(shù)組進行初始化D.Lｂｏunｄ函數(shù)返回值是指定數(shù)組某一維的下界第７題設(shè)a=3，b=2,ｃ=1,運營printa>b＞c的結(jié)果是＿_＿＿＿＿＿_＿___.Ａ.Tｒue? B.False??C.1??Ｄ．犯錯第８題以下說法不對的的是＿__＿____＿_＿_.Ａ.使用不帶關(guān)鍵字Preｓerve的RｅDim語句可以重新定義數(shù)組的維數(shù)B．使用不帶關(guān)鍵字Ｐｒeseｒｖe的ＲeDim語句可以改變數(shù)組各維的上、下界C.使用不帶關(guān)鍵字Pｒeserｖe的ＲｅDim語句可以改變數(shù)組的數(shù)據(jù)類型Ｄ.使用不帶關(guān)鍵字Prｅserve的ＲeＤim語句可以對數(shù)組中的所有元素進行初始化第9題在列表框Ｌist1中有若干列表項，可以刪除選定列表項的語句是__＿＿＿__＿_＿.A.Ｌｉsｔ1.text=""Ｂ.Lｉst1.Liｓt(List1．ＬistIndex)＝""C．Liｓt1.ClｅarＤ.Lｉｓｔ1.RemｏveItemLｉst1.ＬiｓｔIndeｘ第10題數(shù)學表達式相應的ＶＢ表達式是＿_____＿__＿．A.(e^(２*π＊ｘ-5)＊Lｏg（x)+(Ｓin(２ｘ))^3)/Sqr(Sin（ｘ)-Cos(x＾2)）B．(Exp（2*3.14159*x-５)*Log（x)+（Sin(2*x))＾3)/Ｓqr(Ｓｉｎ(x)-Cｏs（x＾2））C.(Eｘp(2*π*ｘ-5)*Lｎ(ｘ)+(Sin(2＊x)）^3)/Sｑr（Sin（ｘ）-Ｃos(ｘ＾２））Ｄ.ｅ^(２*3.14159*x-5)*Ｌn(x)+(Sｉn(2＊x)）^3)／Sｑr(Sｉn(ｘ)-Ｃｏｓ（x^2）)第11題以下有關(guān)數(shù)組參數(shù)的說明中,對的的是＿＿__＿_A.在過程中也可用Dim語句對形參數(shù)組進行說明Ｂ．動態(tài)數(shù)組作為實參時，可用ＲeDim語句在過程中改變相應形參數(shù)組的維界Ｃ.調(diào)用過程時，數(shù)組名不能作為實參D.數(shù)組可以按地址傳遞也可以按植傳遞第12題下列有關(guān)過程的說法中,錯誤的是___＿____＿____.A.在Sｕｂ或Fｕｎcｔioｎ過程內(nèi)部不能再定義其它Sub或Ｆunｃｔioｎ過程B.對于使用ＢyRef說明的形參,在過程調(diào)用時形參和實參只能按傳址方式結(jié)合C.遞歸過程既可以是遞歸Ｆｕｎctioｎ過程，也可以是遞歸Sｕｂ過程Ｄ．可以像調(diào)用Ｓub過程同樣使用Ｃａlｌ語句調(diào)用Ｆｕncｔiｏn過程第１３題要將焦點設(shè)立在某個控件上，以下四個選項中對的的是___＿＿_.Ａ.只能使用鼠標直接點擊控件B.只能使用Taｂ鍵將焦點移到該控件C．只能在程序中調(diào)用該控件的SeｔFocｕs方法D.A、Ｂ、C三選項中涉及的方法均可使用第14題以下Cａｓe語句中,能對的描述Y的絕對值大于６的是＿_＿＿__.A.CaｓｅAbs（Y)>6 ?B.Case-6To６C.ＣaｓeNｏt(-6To6)?? ?D.CaｓeIs<－6,Ｉｓ＞6第15題以下關(guān)于變量作用域的敘述中,對的的是_＿____＿_＿＿＿_.A.窗體中凡用Prｉvate聲明的變量只能在某個指定的過程中使用B.模塊級變量只能用Dim語句聲明C.凡是在窗體模塊或標準模塊的通用聲明段用Puｂｌic語句聲明的變量都是全局變量D.當不同作用域的同名變量發(fā)生沖突時，優(yōu)先訪問局限性小的變量第16題以下關(guān)于數(shù)值常量的說法中,錯誤的是______A．八進制數(shù)的表達方法是在數(shù)字前面加&OB.十六進制數(shù)的表達方法是在數(shù)字前面加&HC.在浮點運算中使用D來分隔尾數(shù)和指數(shù)時,系統(tǒng)將把該數(shù)值作為單精度型數(shù)解決Ｄ.32768是合法的數(shù)值常量第17題數(shù)學表達式相應的ＶB表達式是＿_＿___＿＿___.A.Aｂs（e^x+Sin(30）＾3)∕Sqr(x+y))Ｂ.Ａbs(Exp(x）+Sin(30)^3)∕(Sqｒ(x+y))C.Abs(e^x+Sin(30*3.1４159∕180)^3）∕(Sqr(x+y)）D.Abs(Exｐ(x)+Sin(３0＊3.14159∕18０)^3)∕Ｓqr(x+y）)第18題下面的4個表達式中，有關(guān)__＿______個可以對Sｉnｇle類型變量x（正數(shù))的第３位小數(shù)對的地進行四舍五入計算．Ｆormat(x，″#.00″)?Ｉｎt(１０0*(x＋0.005)）／100?ＣIｎt(１0０*(x+0.005)／10０?Fix(1００*(x+０.０0５））／1０0A.１個? B.2個??C.3個 ?Ｄ．4個第１９題執(zhí)行以下語句時,會出現(xiàn)錯誤提醒的是__＿___＿___.A.Pｒiｎt"2b3"+12.5 B．Ｐrｉnｔ"12．５＂+12? C.Print"1２．5＂&１2．5??第20題以下Case語句具有錯誤的是__＿____＿＿＿_.Ａ.Cａｓe0To１0 ??B．ＣasｅIｓ＞10? Ｃ.CaseIｓ＞１０ＡndIs<５0 D.第21題下列語句中，對的的是＿＿_______＿A.Teｘtl．SetFoｃｕｓ?B．Formｌ．Cｌeaｒ?C.Labell.SetＦoｃus D.Ｌistl.Ｃls第22題下列選項中，所包含的所有表達式可以將兩位整數(shù)x的個位數(shù)與十位數(shù)對調(diào)(如將7８轉(zhuǎn)換為87)的是＿______＿__＿____.①Ｖal(Ｒigｈｔ（X,1)&Ｌeft（X,1)）②Val(Ｒiｇｈt(Ｓtｒ(Ｘ),1）&Left(Sｔr(X）,1))③Vａl（Righｔ（CStｒ（X）,1）＆Left(ＣStr（X),1）)④Val(Mid(X,2,1)＋Mid（Ｘ,1,1))A.①② ?B.②③ ?Ｃ．②④ ?D.①③④第23題以下關(guān)于子過程或函數(shù)的定義中,對的的是＿___＿_A．Sｕbf１(nAsString＊1) ?? ?B．Subf１(nAsＩnteｇer)AsＩntegerC.Funｃtionf1（f1AsIｎtegｅr)AsＩnteｇer Ｄ．Functionｆ1(BｙＶaｌnAsIｎteｇer)第24題下列有關(guān)控件數(shù)組的說法中，錯誤的是__＿__＿.A.控件數(shù)組由一組具有相同名稱和相同類型的控件組成,不同類型的控件無法組成控件數(shù)組B.控件數(shù)組中的所有控件不得具有各自不同的屬性設(shè)立值C．控件數(shù)組中的所有控件共享同一個事件過程Ｄ.控件數(shù)組中每個元素的下標由控件的Inｄex屬性指定第２5題以下對數(shù)組參數(shù)的說明中,錯誤的是____＿＿＿____.A．在過程中可以用Dim語句對形參數(shù)組進行聲明B.形參數(shù)組只能按地址傳遞C．實參為動態(tài)數(shù)組時,可用RｅDim語句改變相應形參數(shù)組的維界D.只需把要傳遞的數(shù)組名作為實參,即可調(diào)用過程第26題要向文獻dａt(yī)al．txｔ添加數(shù)據(jù),對的的文獻打開命令是_＿______＿_＿＿_．A.Open"datal.txｔ"FｏrOutpｕtAｓ#1B.Oｐeｎ"datａｌ.ｔxt"FｏrInputＡs#1C.Ｏpｅn"dａt(yī)ａl.txt＂ForAppenｄAｓ#５Ｄ.Opeｎ"dａt(yī)al.ｔｘｔ＂FｏrWｒiteAs＃5第2７題下面有關(guān)數(shù)組解決的敘述中,對的的是__＿_______.A．在過程中使用ＲeDｉm語句可以改變動態(tài)數(shù)組數(shù)據(jù)的類型B.在過程中,可以使用Ｄｉm、Privａt(yī)e和Ｓtatｉｃ語句來定義數(shù)組C.用ReDim語句重新定義動態(tài)數(shù)組時,可以改變數(shù)組的大小，但不能改變數(shù)組的維數(shù)D.不可以用Ｐｕblic語句在窗體模塊的通用處說明一個全局數(shù)組第２8題下面的表達式中,運算結(jié)果為True的是__＿______＿．A.＂ａｂｃrd"<="ABCRD＂ ??Ｂ.Iｎt(1３4.69)<=CＩnt(13４.69)Ｃ.3>2>1 ?? ?D．Mid（"Vｉsual",1,４)＝Riｇhｔ（"lａusiV",4）第２9題設(shè)計界面時,要使一個文本框具有水平和垂直滾動條，應先將其______＿_屬性置為True,再將ScrｏllBaｒ?qū)傩栽O(shè)立為3.A.ＭuｌtiLｉnｅ??B.AutoＳize??C．Aliｇnmenｔ D.RigｈtTｏLeft第3０題下面有關(guān)數(shù)組的說法中，對的的是_＿＿＿__A.數(shù)組的維下界不可以是負數(shù)Ｂ．模塊通用聲明處有ＯpｔionＢase1，則模塊中數(shù)組定義語句DimA(0Tｏ５）會與之沖突C.模塊通用聲明處有ＯptiｏnBase１，模塊中有DimA（0To５),則A數(shù)組第一維維下界為0D.模塊通用聲明處有OｐtｉoｎBaｓe1，模塊中有ＤimA(０Tｏ5）,則A數(shù)組第一維維下界為1第31題下面有關(guān)數(shù)組的敘述中,不對的的是___＿_＿．①在過程中用ReDim語句定義的動態(tài)數(shù)組，其下標的上下界可以是變量②數(shù)組作為形式參數(shù)時,傳遞的是每個數(shù)組元素的值③在窗體模塊的通用聲明處可以用Pｕbｌｉc說明一個全局數(shù)組④數(shù)組定義語句中可以用負數(shù)或小數(shù)來指定某一維的維下界或維上界的值A(chǔ).②③? B.①③④??Ｃ．①②③④??D.③④第3２題下列關(guān)于對象SetFoｃｕs與GｏtFocus的描述中,對的的是＿＿＿＿_A.SetFocus是事件,ＧotFｏｃus是方法? ?B.Setｆocuｓ和Gotｆocus都是事件Ｃ.Sｅtfocus和GotFocus都是方法 ?Ｄ．SｅtＦｏcus是方法，GotFocuｓ是事件第３3題創(chuàng)建一個名為＂文獻＂的菜單項,欲使其可用Ａlｔ＋F方式訪問,則在菜單編輯器的標題文本框中應輸入＿________．A.文獻(＄F）??B.文獻(&F） C．文獻(#F）? D.文獻(％Ｆ)第34題在下列屬性中,屬于ＣｏmmandBｕｔton控件、ListBoｘ控件共有的是___＿__．A.Capｔioｎ、Ｔeｘt??B.Visible、Foｎｔ??Ｃ.Ｃａpｔiｏn、Ｖｉｓible ?D.Lｉｓｔ、Visibｌe第35題下列可以對的表達條件＂Ｘ≤Y<Ｚ"的ＶＢ邏輯表達式是_＿_＿_＿A.X≤Y＜Ｚ Ｂ．Ｘ<=YAndＹ<Ｚ? C.X≤YORY<Ｚ Ｄ．X<=Y＜Z第3６題以下關(guān)于Functiｏn過程的說法中,錯誤的是_______＿＿_＿.Ａ.Funｃｔioｎ過程名可以有一個或多個返回值Ｂ.在Fuｎctｉon過程內(nèi)部不得再定義Ｆｕncｔion過程C．Functioｎ過程中可以包含多個EｘitFuｎｃtioｎ語句D.可以像調(diào)用Sub過程同樣調(diào)用Fuｎｃtioｎ過程第３7題下面的關(guān)系表達式中,運算結(jié)果為Tｒue的是＿＿___＿.A.CInt(1.5)=Ｉnt(１.５）? ?B．Ｆｉx（1.5)=Int(1.5)C.Fiｘ(-1．5）=CＩnt(-1.5) Ｄ.Fｉx（-1.5)=Inｔ（-1.５)第３８題已知Ｘ＜Ｙ,A>B,則下列表達式中，結(jié)果為True的是＿____＿A.Sgｎ(X-Y）+Sgn(A－B)=-１ ?B.Sgｎ（Ｘ-Ｙ)＋Ｓｇn(A-B)＝－2C.Sｇn(Y－X)+Sgn(A-Ｂ)=2 ??D.Sｇn(Y-Ｘ)+Ｓgn（A-B)=０第39題執(zhí)行＿__＿___＿＿_語句時,會出現(xiàn)犯錯提醒信息.A.Print５＋7=14 ?? ?Ｂ.Ｐrinｔ163８４*2C.Prｉnt3２76８*2 ? D．Priｎt"14"＋3２第40題數(shù)學表達式相應的VisｕａlＢaｓiｃ表達式是_____＿.A．Ｓin(３0＊3.14159/18０)+Sqr(Log(x)+y)/2*3.14１５9+Ｅxp（x+y)B.（Sin（３０*π/180)+Sqｒ(Ｌｎ（x)＋y)）/（2＊π+Exp(ｘ+y)）C.Ｓｉn（30*180/3.１41５９）+Ｓqr(Ｌog(x)+y)/(2*３.14159+e＾(x+y））Ｄ.（Sin(30*３.１4１５9/180）+Sｑr（Log（x）+ｙ))/(2*3．14１59＋Exｐ(ｘ+y))第4１題在一個多窗體程序中,可以僅將窗體Fｏｒm2從內(nèi)存中卸載的語句是__＿_＿＿_＿．A.Foｒm2．Ｕnlｏａｄ ????B.UnloaｄFｏrm2C．Form2.End ?D.Foｒm2.Hｉdｅ第４2題Print方法可在______上輸出數(shù)據(jù).①窗體②文本框③圖片框④標簽⑤列表框⑥立即窗口A.①③⑥ ?B.②③⑤? C.①②⑤??D.③④⑥第43題若要使邏輯表達式ｘ>yXoｒy<z結(jié)果為Trｕｅ,則x、ｙ、z的取值應為下列選項中的＿＿____＿.A.ｘ=３、y＝3、z＝4?? B.ｘ=2、y=1、z=２C.ｘ＝1、y＝3、z=2??? D.x=2、y=2、z＝２第4４題下列_＿_______＿__是合法的變量名.A.abs? ?Ｂ.–ａl? C.cdcd ??D.Abｅ_10第45題下列___＿__是對的的VB常量.Ａ．Ｄ-6 ? B．E-6?? C.５D?? 第４６題若在模塊中用PrｉvateFunctionFuｎ（ＡasSｉｎgle,BasIntｅger)ＡsＩｎtｅｇer定義了函數(shù)Ｆｕn.調(diào)用函數(shù)Fｕｎ的過程中定義了I、J和K三個Intｅger型變量，則下列語句中不能對的調(diào)用函數(shù)Fｕn的語句是____＿____＿_．A.Fun３.１4,J??B．CallFun(I，365)? C．Fun（I),(J) ?D.Ｋ=Fｕn（"2４",＂35"）第４7題若需要在同一窗體內(nèi)安排兩組互相獨立的單選按鈕（OptionＢuｔtoｎ),可使用＿＿_＿_＿控件做容器將它們分開.①TextBox②ＰictｕreBｏx③Image④FrａmｅA．①或② ?B.②或③??C.②或④ ?D.③或④第48題以下關(guān)于文獻的敘述中,錯誤的是＿_________。A.用Oｕtput模式打開一個順序文獻，即使不對它進行寫操作，本來的內(nèi)容也被清除B．可以用Pｒiｎt#語句或Wriｔｅ#語句將數(shù)據(jù)寫到順序文獻中Ｃ.若以O(shè)ｕtpｕt、Ａpｐend、Rａndom、Binaｒy方式打開一個不存在的文獻，系統(tǒng)會犯錯D.順序文獻或隨機文獻都可以用二進制訪問模式打開第４9題窗體上有若干命令按鈕和一個文本框,程序運營時焦點置于文本框中,為了在按下回車鍵時執(zhí)行某個命令按鈕的Ｃlｉck事件過程,需要將該按鈕的_＿__＿____屬性設(shè)立為True.A.Ｅnabｌｅｄ? Ｂ.Deｆauｌt C.Cancel ?D.Visible第50題數(shù)學表達式相應的VＢ表達式是____＿_A．(x＾5－Cｏs（29))/Sｑr（e^x+In(y))+5B．(x^5-Cos(2９））／(Sqr(Exp(x）+Ｌog(y))＋5)C．(x^5-Cos（29*3.１41５9/1８０))/（Sqr（Exp(ｘ）+Ｌog(y))＋5)D.(x^５-Cos(29＊3.１４１59/180)）／(Ｓｑr(e^ｘ+Ｌog(ｙ))＋5二、填空_共20題(選：15空*２’=３0分）——閱讀理解：第1題運營下列程序，單擊Comｍaｎｄ1,在窗體上顯示的第一行內(nèi)容是＿＿＿___【1】__＿_,第二行的內(nèi)容是_____【2】＿＿__，第三行的內(nèi)容是＿___＿【3】＿__＿＿_。OptionＥxplicitＰrｉvateSｕbＣommand1_Clｉck()DiｍsAsStrings="Ｂasｉc"Caｌltｒans(s)ＥndSubPrivateSubtraｎs(sAｓStｒing)DimjAsＩｎtegeｒ,ｔAｓＳtｒiｎgDｉmkAｓIntegeｒｋ=3Doj＝InStｒ(s,"ａ")t=LCaｓe(Ｒight（ｓ，ｊ))ｓ=Ｒight(t,Ｌｅn(ｓ)-ｋ)＆Leｆt(s,Leｎ(t))ｋ=k-1PriｎｔsＬoｏpUntilk=０ＥndSuｂ第2題執(zhí)行下面程序,單擊Cｏmmand1，則窗體上顯示的第一行是＿【1】_＿＿,第三行是＿＿【2】__,最后一行是__【3】＿＿。OｐtｉonEｘplｉｃiｔPriｖatｅＳｕbCommaｎd1_Ｃlick()DiｍｘAsIｎteｇｅｒ，yAｓInｔｅgerｘ=１２:y=0DoＷhileｘ＞0ＩｆxMod4＝0Thenｙ=y+ｘElsey=ｙ-ｘEndIfx=x-3Pｒｉntx,yLoopEnｄSｕb第3題執(zhí)行下面的程序,單擊Ｃｏmmand１,窗體上顯示的第一行是_____＿【１】_＿__＿,第二行是______【２】_＿＿_,第四行是___＿__【3】_＿＿_＿。OptionExpliｃitＰrｉvａt(yī)eＳｕbCoｍmaｎd1＿Clｉｃk(）DｉmａAsIｎteger，bAｓIntegera＝1:b=1Caｌｌｓuｂ1(a,b）Priｎｔa,bEｎｄSubＰrivaｔeＳubsuｂ1(aAsＩntegeｒ,bAｓInteｇeｒ)ａ＝ａ＋b：b＝b+aPrｉｎta，bＩfａ>1０Ｔhena=ａ+bb=b+aＥｌseＣallｓub１(a,b)EｎdIｆEｎdSｕb第4題運營下面的程序,單擊Cｏｍmand1,在窗體上顯示的變量a的值為___＿【1】______,變量ｂ的值為____＿【2】___＿，變量c的值為_____【3】＿_＿＿__。OｐtioｎExpliｃｉtＰrivateSubＣommanｄ1_Ｃlｉｃｋ(）DimaAsInteｇer，bAｓＩnｔegｅr,cＡsIｎｔｅｇera=5：b＝１0:c=1５Priｎｔfun(a，b,c)＋fuｎ(ａ，ｂ，c)Priｎta,b,cEndSubPrivateFｕnctiｏnfun(xAsIntegeｒ,yAsIntegeｒ,zAsIntｅｇｅr)AsIｎtegerz＝xｘ＝x+ｙｙ=ｙ+zfuｎ=x+ｙEｎｄFｕnction第5題執(zhí)行下面的程序，連續(xù)三次單擊命令按鈕Commａnd1之后，A數(shù)組共有【1】個元素；數(shù)組元素Ａ(2)的值【２】,Ａ（4)的值是【３】。OptｉoｎＥｘpliｃitOptionBase1PrivaｔeSｕbCoｍmaｎｄ1_Clicｋ()ＳｔatｉcA(）AsInｔeｇer，nAsInteｇｅrDｉmiAsＩnｔeger,ｋＡsIｎteｇｅrｋ=n'n=n+２ＲeDiｍＰreseｒveA(ｎ)Foｒi=k＋１TonA(i）=i＊ｎ+1NeｘtiFori=1TonPrintA(i);NextiＰriｎｔEndSuｂ第6題運營下面程序,單擊Cｏmｍaｎd1,在窗體上顯示的變量A的值為_＿_【１】_＿__,變量B的值為____【2】_____＿。OpｔionExplicitDｉmaAsInteｇｅrPrivａt(yī)eSubCoｍｍａnd1＿Clｉck(）DｉmｂAsＩntegerｂ=3a＝４b＝fuｎ(fｕｎ(ａ，b＋２),ａ)＋bPｒinta,bＥndSｕｂPriｖateFunctionｆun（nAsIｎteger,kAsInｔｅger）n=n+aｋ=n-kｆuｎ=n+k+aEｎｄFｕnction第７題執(zhí)行下面的程序,單擊Coｍmaｎdl，則窗體上第一行顯示的是【1】,第二行顯示的是【2】。ＯptionＥxｐｌｉcｉｔＤimxAｓInｔeｇeｒPrivaｔeSubCｏmｍanｄ1＿Clicｋ()ＤｉmyａｓＩnｔegerX=１0：Y=2Cａllpｒocesｓ（ｙ）PrintX，ＹＣaｌlprocess((y)）ＰrｉntＸ,YＥnｄSｕbＰｒivateＳubpｒocess（nAｓInｔegｅr)DimyAsIｎtegerIfｎ>0Theｎx=x－ｎy=xElsex=x＋nｙ=x+２EｎｄIfｎ＝－nEｎｄSub第８題執(zhí)行下面程序,單擊Ｃｏmｍand1,窗體上顯示的第一行是＿_【1】＿__，第二行是＿__【２】_＿_，第四行是__＿【3】_______，最后一行是__＿【4】_＿__＿．ＯptionExpliciｔPｒiｖａt(yī)eSubCｏmmanｄ１＿Cｌiｃk(）ＤimnAsIntegeｒｎ=5Ｃallｔｅst(ｎ）PriｎｔnEndＳubＰrｉvateSｕbtesｔ（ByValnAｓIntｅgeｒ)DｉmiAsInｔeｇer,sＡsInｔegerIfn>0ＴｈeｎFoｒｉ=１Ｔonｓ=ｓ＆CＳtｒ(i)ＮextｉPrinｔsCalltｅst(ｎ-２)ＥlsｅPrint"OVEＲ"ＥndＩfEndＳub第9題運營下列程序,單擊Comｍａnd1,在窗體上顯示的第一行內(nèi)容是【１】,第二行的內(nèi)容是【2】,第三行的內(nèi)容是【3】。(＂A"的ASCII碼是65,"Z"是90)OptiｏｎExｐliｃitPｒｉvateSubCｏmmand１＿Clｉck（)DｉmiAsＩnteｇer,sｔAｓStｒiｎg，ｎAsIｎteｇer，pAｓString*１p="Ｂ"Ｆoｒi=3To１Step-１n=Asｃ（p)－ｉIfn<6５Thenn=ｎ+26ｓt=Chr(n)st＝st&Ｆ(i)PrintstNeｘｔiEｎdSuｂPrivａt(yī)ｅFｕnｃtiｏnF(nAｓＩｎtｅger)DimｉＡsＩnｔegerSｔaticsAｓIntegｅrFori=1Tons=s+iNｅxtiF=sEndＦunｃtｉoｎ第10題執(zhí)行下面的程序，單擊Coｍmand1,輸出的變量i的值是【1】，變量ｊ的值是【2】，變量k的值是【３】。OptionExplｉcｉtPrｉvaｔeＳuｂCｏmｍａnd１_Cliｃk()DiｍiAsＩnｔeger,ｊAsIntｅgerDｉmkAｓIntｅgerｉ=10j＝4k=Fuｎk（i,ｊ)Prinｔｉ,j,kEｎdSubPriatｅFunctionFunk（BｙValＡAsＩntegｅr,ＢＡｓInteger)AｓIntｅｇerＡ=A＋BB=B－2IfB=0OｒB=1ＴhenFunk=1ElsｅFｕnk＝A＋Funk(Ａ,B)ＥｎｄIfEndFunｃtｉｏn第11題運營下面程序，假如連續(xù)三次單擊命令按鈕之后，Ａ數(shù)組共有__＿【1】__＿個元素;數(shù)組元素A(2）的值是＿_【２】_＿__,A(５)的值是＿_【3】___＿__.OpｔｉonExｐlicitOptionBase1ＰrivaｔｅSｕbComｍａnｄ1＿Click()Statｉcａ()AsIｎｔｅger，ｎAsIntegｅｒDimiAｓInteger,kAsIntegeｒｋ＝nn=n＋2ＲeDimＰreservea(n)Foｒi=k＋１Tｏna(i)=ｉ＊n+１NextiFori＝1TonPｒinｔa（i);ＮｅxtｉPrintEndＳｕｂ第１２題執(zhí)行下面的程序，單擊Cｏmmand1,在窗體界面上顯示的第一行是【１】,第二行是【2】，第三行是【3】，第四行是【4】。OptiｏｎExplｉciｔPrivateＳｕbＣommanｄ1＿Clicｋ()DiｍaAsInteger,bAｓIｎtｅgｅr,iAｓIntegerｉ=１218ａ=i＼1０0ｂ=iＭod100Ｉfb＜>0ThｅnPriｎtａPｒintb.PｒｉntＬｃd(（a),（b));ａ;bＰrintＬcｄ(ａ,b)；a;bEnｄIfEnｄＳｕｂPrivaｔｅFunctionＬｃd(xＡsInｔeger,YAsＩnteｇer）AｓIntｅｇｅrDimdAsIntｅgerIfx<ｙthend＝x:x=ｙ:y＝dＥndIfd=xDoＩｆxMody＝0ＴhｅnLｃd＝xExｉtDoElsex=x＋dEndIfLoopEｎｄＦｕnction第13題執(zhí)行以下程序，單擊Commaｎｄ１，則在Picturel上顯示的第一行是【1】，第二行是【2】,第三行是【3】。OｐtionExpｌiｃitPrivateSubCｏmmand1_Clｉck()DimＡ(3,3)AsＩnteｇer，iAsInteｇer,jAsIntegerDimｋAｓInｔｅgeri=3：ｊ=2:Ａ(ｉ，j）＝1:ｋ=1DｏＵntｉlｋ>9k=k＋1Ｉfｉ＋１>3Ａｎdj+1<=3Tｈeni=1:j=j+1ＥlｓeIfi+１<=3Andｊ＋１>３Thｅni＝i+１：j=１Elｓeｌfi+1>3Andｊ＋1>3Ｔheni=i-1ElseIfi+1<=3Aｎｄj＋1<=3AndA（i+１,j+１）＜>０Ｔheni=ｉ-1Elｓei＝i+1:j＝j(luò)＋1EndIfA(i,j）＝kLoopＦori=1Tｏ３Forj=１To3Picｔure１.PrintA（ｉ,j);NeｘｔjＰictuｒe1.PｒintNextiEndSub第１4題執(zhí)行下列程序，單擊Coｍmａnｄ1,在窗體上顯示的第一行內(nèi)容是＿_【1】_＿,第二行的內(nèi)容是＿＿【2】__，第三行的內(nèi)容是_【3】＿_＿。ＯｐtionExpliciｔＰrｉvａt(yī)eSubCｏmmａnd1＿ClｉckDｉｍnAsIntｅger，iＡsIｎｔegern=2Ｆori=7To1Step-１Cａlｌsuｂ２(i，n)Ｐrｉnti，nNｅｘtｉEnｄSubＰrｉvateSuｂsｕb2(ｘＡsIntｅger,yＡsInteｇｅr）StaticnAｓＩntegeｒDimiＡsIｎteｇerFｏrｉ＝２To1Step-1n=ｎ+xx=x-１Neｘtiy=y+nＥndSub第１5題執(zhí)行下列的程序,單擊Comｍａnd1，在窗體上顯示的變量b的值為__【1】＿_，變量c的值為__＿【2】_,變量ｚ的值為_＿【3】_＿。PriｖateSuｂCｏmmanｄ1＿Click()ＤiｍbAsInteger，cAsIｎtegｅr,zAsＩntegｅrｂ=2c＝1z=fun(b,fｕn（b+1，c))＋b－ｃ+1Priｎｔb,ｃ,zEｎdSubPrivａt(yī)eFunctionｆuｎ(xAsInteger,ＢyVaｌyAｓＩnteger)AsIｎｔeｇerx=x－ｙy=ｘ+ｙ+２fun=y-ｘEndFｕnction第1６題執(zhí)行下面程序,單擊Ｃｏmmand1，窗體上顯示的第一行是____【1】____,第二行是___＿_【2】____，第四行是__【3】______.OｐｔionＥxｐlicｉｔPrivateSubCommａnd1＿Cｌick()ＤiｍaAｓIntegｅr,bAｓIｎtegeｒ,ｉAｓIntegera=２:b=5Foｒｉ＝aTｏａ*bＳｔepaCａlｌｓub1(ｉ,a,b)Printa，ｂＮｅｘtiPrinｔa,b,ｉEndＳubPrivａt(yī)eＳubsuｂ1(ｉAｓＩnteｇer,aAｓInｔegeｒ,bＡsIntｅｇeｒ）ｉ＝i＋1a＝ａ+1ｂ=ｂ+1EnｄSｕb第1７題執(zhí)行下面程序，單擊Cｏmmaｎｄ１,窗體上顯示的第一行是＿_【1】＿＿，第二行是＿_【2】＿＿，第三行是_【3】＿_＿。OpｔioｎＥxplｉｃitＯptionBａse1PｒivateSubCｏmmanｄ1_Clｉcｋ()Ｄｉmｓa(3,3）AsＳｔｒｉng*1,iAｓＩnteger,ｊAsIｎteger,kasIntｅgeｒk=1Fori=1To3Ｆｏrj=1Tｏ3sa(i,ｊ)=Chr(Asc（"Ａ＂）+(k+i+j)Mod26）Prｉnｔsａ(i,j）;"＂;k=k+3NｅｘtjPrｉntNeｘｔiＥｎｄSub第１8題執(zhí)行下面程序，單擊Comｍａnｄ１,則數(shù)組元素ａ(1,2）的數(shù)值是__＿_【1】_____,a(3,3)的數(shù)值是___＿【２】＿_＿_＿_，圖片框中最后一行顯示的是_＿_＿【3】＿____.OptionExplicitＰrivａｔeSuｂCoｍmａｎd１＿Clicｋ（)Dima(４,４)asInｔegeｒ,iasIntｅｇer,ｊasＩｎtｅｇerDimkAsInteｇer，nuｍａｓIntｅgerｎum=0Ｆorｋ=1To４Fori=1Tok-1num=num+１ａ（i,k)＝nuｍnextiFｏrj=kＴo1Sｔｅp-1nuｍ=nｕｍ+1a（k，j)=nｕmｎextｊnextｋＦｏri＝1Ｔo4Foｒｊ＝1To4Pictｕre1．PrｉntRight（""&a(i,ｊ),3)；NextjPｉcｔuｒe1.PrintNextiEndSｕｂ第19題執(zhí)行下面程序,單擊Coｍmand1,則圖片框中顯示的第一行是＿＿_【１】＿__,顯示的第二行是＿___＿【２】_＿_，最后一行顯示的是___【3】＿＿___.PｒivatｅSuｂCoｍmａnd１_Ｃlｉck()Dimａ(3,3)AｓInteｇerＤiｍiAｓInteger，jAsＩnteｇerFori=1To3Ｆorj=3To1Sｔep-1Ｉｆi>=jTheｎa(i,j）=i-ｊElsea(i,j)=ｊ-iEnｄIfＮｅｘtjＮｅxtｉＦｏri=1Ｔo3Forj=3To1Step-1Pictｕre1.Ｐrinｔa(i,j);NextjPicture1.PriｎtNｅxtiEndSub第2０題執(zhí)行下面程序，單擊Coｍmaｎd1,則窗體上顯示的第一行是【1】,第二行是【2】，第三行是【３】。OｐtioｎEｘpｌiciｔPｒｉvａt(yī)eＳubCommａｎd１＿Click()DimaAｓSｔring,iAｓIｎtｅｇerＤimxAsStｒｉng，ｚAｓＳtringa="iamｓtｕdenｔ"i=IｎStr（5,a，"ｄ"）Dｏx=Ｍid(a,i,３)z=Rｉgｈt(ｘ,1)z＝UCａsｅ(x&Z)ｉ=i-2PriｎtｚＬoopUntiｌi=1EnｄSｕb三、程序填空_共1６題（選：１０空*２’=2０分)——完形填空：第１題＇本程序的功能是把由4個"．"分隔的十進制數(shù)表達的IP地址轉(zhuǎn)換為由3２位二進制數(shù)組成＇的ＩP地址。例如十進制表達的ＩＰ地址為２０2.119.1９1．1，其中每個十進制數(shù)相應一個8位＇的二進制數(shù),合起來構(gòu)成一個３2位二進制的ＩP地址00００000１。'過程Tiqu用于提取十進制ＩP地址中每個用"."分隔的十進制數(shù);＇過程Ｃoｎｖert用于將十進制數(shù)轉(zhuǎn)換為相應的8位二進制數(shù)。程序界面參見下圖。OptｉonＥxplｉcitPrivaｔｅSuｂCommand1_Cliｃk()Diｍstr1ＡsStｒing,ｓtr2AsStｒｉngDｉma（4）AｓＩｎteger，iＡsInｔegeｒsｔr1=Texｔ1.TeｘtCalｌＴiｑu(ｓｔr１,a)Fｏｒi=1Ｔo４Ifａ（i)<0Ora(i)>255TｈenＭｓgBｏｘ（"IＰ地址錯誤！")ＥxｉtＳubElse'*＊**＊**＊*＊SPACE********＊＊【?】ＥnｄIfＮextiＴext2.Teｘt=stｒ2EndＳuｂPrivateＳubTiqu(stAsString,a()AｓInｔｅger)DimnＡsInｔeger，kAsInteger,sAsStｒing，ｄAsString*1，iＡｓInteｇｅｒn＝Ｌen(st）:ｋ＝0:ｓ＝""Fori=１Ｔoｎ'*＊***＊*＊**ＳPＡCE＊＊********【?】Ｉfｄ＝＂.＂Tｈｅnk=ｋ+1a(k)=Vaｌ(ｓ)'＊******＊**ＳPACＥ***＊＊*****【?】Elsｅs=s＆ｄEndＩfNｅxtia(4)=sEndSｕｂPrivａt(yī)eFunctioｎcｏnｖert（ByValnAｓＩｎｔegｅｒ）AsSｔringDimbAｓＩｎteｇer,iAｓInteｇｅr，sAsＳｔringDｏWhilen>0b=nMｏd2n=n＼2'*＊＊＊******ＳPACE*********＊【?】ＬoopＦori=1To8-Lｅn(s)ｓ=＂0"&sNｅxti＇****＊****＊SPAＣE*＊***＊*＊＊*【?】ＥnｄＦunctioｎ第２題＇下面程序的功能是:記錄存放在數(shù)組A中的N個數(shù)有多少個是不同的。'具體做法是：變量Ｌeｆt指向要被解決的數(shù)（從第２個元素開始),＇Ｒight指向數(shù)組最后一個元素。若A（Ｌｅfｔ)與排在它前面的某個數(shù)組元素值相同,'就用數(shù)組元素A（Riｇht)的值來替換A(Lefｔ)的值,同時將變量Rigｈt的值減1;'否則將變量Left的值加１，解決數(shù)組下一個元素，反復以上過程,直到Left>Rｉｇｈｔ為止。'Ｒighｔ的值即為不同的數(shù)的個數(shù)。程序界面參見下圖所示。ＯpｔionEｘplicitOpｔioｎBａse1PrivateSｕbComｍand1_Ｃlick()DimA()AsＩｎtｅgeｒ,ＮＡsInteger，IＡsInｔｅｇerDｉｍＯPＡsIｎtｅgｅrN＝InｐutBox（"請輸入數(shù)據(jù)個數(shù)",,1０）RｅDimA(N)RandomizｅForI=1ToＮA（I)＝Ｉnｔ(Rnｄ＊１０)+1Text1=Text１&A(I)&""NextICallｓtaｔｉｓｔiｃ（A，OＰ)Text2="有"&ＯP&"個不同的數(shù):＂ＦoｒI=1ToOＰText２=Text２&Ａ(I）&＂"ＮextIEnｄSubPrｉｖaｔｅSｕbstatisｔic(A(）ＡsInｔeｇeｒ,RｉgｈｔAsIntｅger)DiｍLeｆtAsＩｎｔｅｇer，ＫAｓInteger,ＩAsIntegｅｒ＇**＊***＊***SPAＣE*******＊**Right=【?】Leｆｔ=2DｏWhｉlｅＬｅft<＝Riｇｈt'*＊****＊***SPＡCE**＊*******K＝【?】ForI=KTo1Ｓtep-１IfA(Leｆt)＝A(I)TｈenＥxiｔＦorNeｘtI'＊＊＊＊*＊**＊*ＳPＡCE＊＊*＊＊****＊Ｉf【?】ＴｈenLｅｆｔ=Left＋1ＥｌseA(Left）＝A(Right)＇＊**＊*＊＊＊**ＳPACE＊＊＊＊***＊*＊【?】ＥnｄＩｆLoopEndSuｂ第3題＇下面程序的功能是隨機生成小于１０0的諸素數(shù)組成的數(shù)據(jù)。程序界面如下圖所示。OpｔｉonExplｉcitPriｖateSｕbＣomｍａｎd1_Clicｋ()Dimp()AsIntegｅｒ,iAsInｔegｅr，ｎAsIntegeｒDimsｔＡｓStrｉｎg,kAsIｎtegerRａndomizek=InputBox("元素個數(shù)；＂,,20）ＲeＤimp(k)Ｄon＝Iｎｔ(Rnd*9０)+1０＇＊*＊*＊**＊**SＰＡCＥ＊*＊＊******Iｆ【？】Thｅｎi=i+１p(i)=nＥnｄIf＇***＊*＊*＊**SPＡCＥ*＊＊*******LｏopUｎtil【?】Fori=1ToUBound(p)ｓt=sｔ&Sｔr（ｐ（i))IfiＭod1０＝0Thenst=st＆vbＣｒLfNｅxtiTeｘt1=ｓｔＥｎdSubＰｒivateFunctｉonprime(ｎAsＩnｔegｅｒ)AsＢooleａnDimiAsＩntｅgｅｒPrime＝ＴrｕeFori=2ＴｏSqr(ｎ)IfnMoｄi=０Then＇*＊**＊*＊*＊*ＳＰＡCＥ**＊****＊**【?】ＥxiｔFｏrEｎdIfＮextｉEndＦunction第４題'用以下公式求f(x）的值。當通項的絕對值小于10＾-7時停止計算，x的值由鍵盤輸入。'程序界面和公式參考圖片所示：ＯptiｏnEｘｐlicitPrivａt(yī)eSubCommanｄ1＿Cliｃk（)DimｘAsSｉnglｅ,fxAｓSingleDimaAsSｉnglｅ，a１AsＳinglｅ，ａ２ＡｓＳinｇleＤimtＡｓSiｎglea1＝1：a2=2x=Texｔ1'*********＊SＰACE＊**＊＊*****If【?】ThenMｓgBoｘ("ｘ必須在-1～１之間＂)ExｉtSubEndIffｘ=a1*x-a２＊x＊xｔ=(-1)*x*xDoａ=1／(a1+ａ２）ｔ＝(-1)*t*x'*****＊*＊**ＳＰACE*******＊**fｘ=【？】a１=ａ2＇*＊**＊***＊*SPACＥ*****＊＊***【?】ＬoopＵntilAbs（a*t)<０．00００001Text2＝fxＥnｄＳｕb第5題'下面程序的功能是：一方面生成一個由小到大已排好序的整數(shù)數(shù)組，再輸入一個數(shù)據(jù)，'單擊＂插入"按鈕會自動把這個數(shù)據(jù)插人到原數(shù)組適當?shù)奈恢?，并保持?shù)組的有序性。'程序界面參見下圖。ＯptionＥxｐliｃｉtDima()AsIｎtegerPｒivatｅSｕbＦorｍ＿Activａt(yī)e(）'生成有序數(shù)組DｉmiＡsIｎteｇｅｒＲeDima(10)Foｒｉ＝1Ｔo１0a(i)＝（i－1)*10+1Tｅxt1=Text1&Ｓtｒ（a（ｉ)）ＮｅxｔiText２.SｅｔFｏcusＥndSubPrivａt(yī)eSubCｏmmand1＿Clｉcｋ（)ＤｉｍnAsＩｎteger，iAsIntegeｒｎ=Ｔext2Fori=１ToＵBound(a）'*****＊****SＰＡCE＊＊***＊＊*＊*If【?】ThｅnExiｔＦｏｒ'擬定插入的位置Ｎexti＇********＊*SＰＡCE＊***＊***＊*【?】Fori=1ToUBoｕnd(a)Texｔ３＝Text3&Sｔr（ａ（i))NeｘｔiＥndSｕbPrｉｖateＳubｉnst(P()ＡsＩnｔeger,nAｓIｎteger,ｋAｓIｎtegｅr）'數(shù)組元素移位并實現(xiàn)插入ＤimiAsIｎtegｅr'*＊********SPACＥ*＊********【?】Fori=UBouｎｄ(P)-1ＴoｋStｅｐ-1＇**＊***＊***ＳPＡCＥ**＊*******【?】NextiP（k)=nＥndSub第6題'下面程序的功能是：將輸入的2位16進制數(shù)的每一位轉(zhuǎn)換為一個４位的二進制數(shù)，'再組合成為一個8位的二進制數(shù)。程序界面參見下圖。OptioｎＥxｐlicitＰｒｉｖaｔeＳubCｏmmand1_Cｌiｃｋ（）DｉmｈAｓＳtring,h1ＡsString＊1，h2AsＳtrｉng*1ｈ＝Teｘt1h１=Lefｔ（h，１)：h2=Right(h,1)Text2=h2b(h1)＆ｈ2ｂ（h2)EndSｕbPrivateＦｕｎctiｏnh2b(pＡsSｔrinｇ）AsStrｉｎgDimｓtAsＳtｒing,ｉＡsＩnｔｅｇersｔ=″ABCDEF″Ｆoｒi=1ToLｅn(st)'***＊******SＰAＣE**＊*＊*＊***Ｉf【?】ThｅnＥxitForNextii=i-１Ｄo＇******＊***ＳPAＣE**＊＊＊*＊*＊*h2b＝【?】i=i\2LoｏpUntｉli＜=0＇*＊**＊**＊＊*SＰACE＊*＊**＊***＊h2ｂ=【?】EｎdFunｃtion第7題'用以下公式（公式如下圖所示)求Sin(x)的值.當級數(shù)通項的絕對值小與ｅps=10^-7時停止＇計算,x的值由鍵盤輸入．'請完善如下程序OｐtionEｘｐlicitPrivａt(yī)eSubFｏrm_Ｃlｉck()DiｍxＡｓDoｕble,ｔAsDouｂle，nAsInteger，sumAsＤoubleＣｏnｓｔeps＝0.000０00１X=Ｖal(InｐutＢox("請輸入x：＂))＇*****＊**＊*SPACＥ***＊***＊**【?】sum=ｔn=1＇**********SPＡCE＊*********DｏＵntil【？】ｔ=-ｔ'*＊******＊*SPＡCＥ*＊*＊******ｔ=【?】sum=suｍ+ｔn＝n+1ＬｏopＰrｉnt＂Ｓin(";x;"）＝";Ｆormａt(yī)(suｍ,"０．0０0＂)ＥnｄＳuｂ第8題'下面程序的功能是：在文本框１中輸入若干以空格分隔的整數(shù)(末尾無空格),'程序自動將輸入的數(shù)據(jù)分解并存儲到一個一維數(shù)組，'再把數(shù)組中所有反復的元素刪除(只保存一個)，并輸出到文本框2。ＯptionEｘplicitOptionBａｓe1PrivatｅSｕbComｍaｎd1_Ｃｌｉｃk（)Dｉma（)AｓInｔｅgｅr，ｉAｓIntｅger,stＡsＳtringDｉmkAsInteｇer,ｐAsIntegｅrｓt=Ｔｅｘt１Dｏｐ=InＳtr(st，"＂)Ifp<>0Tｈeｎ＇*****＊****ＳPACＥ**＊******＊【?】ReDiｍPreseｒvｅa(k)a(k）=Ｖaｌ(Ｌeft(sｔ，p－１))st=Ｒight(st,Ｌeｎ(st)-p）Elｓｅ'*****＊****SPACE**＊＊**＊＊**【?】a(k+1)=Vaｌ(st)EｎｄIf'****＊**＊＊*ＳＰACE*＊**＊****＊LｏopUnｔｉl【?】Ｃalldeｌ(a)Forｉ=1ToUBounｄ(a）Teｘt2=Text2&Stｒ(a(i））NｅxtｉTexｔ2=ＬTrim(Ｔext２)ＥndSｕbＰｒiｖaｔeＳubｄeｌ(ａ(）ＡsInｔegｅr)ＤｉｍiAｓIｎtｅger,jＡsIｎtｅｇer,kAsIntegerDｏi＝i+1ｊ=i+1DoWhilej<=Ubouｎd(a)＇＊*********SPACE***＊＊＊****If【?】ThｅnFｏrk=ｊＴｏUBouｎd（a)-1ａ(ｋ)=a（k+1)ＮｅxｔkＲｅDimＰｒeservea(UＢouｎd(a）－1）Eｌｓe＇****＊*****SPACE＊****＊****【?】ＥndＩfLooｐＬoopＵntili＞UBｏund(a）EndSub第9題＇下面程序的功能是將給定整數(shù)N表達成若干個質(zhì)數(shù)因子相乘的形式（分解質(zhì)因數(shù)）．'程序界面參見下圖。OptioｎＥxpliciｔOptioｎＢase1PｒiｖateＳubＣomｍaｎd1_Click（）DimnAｓIntｅｇeｒ,ａ(）ＡsIntegerDimsｔＡsＳtｒing,iAsIntegerｎ=Tｅxt１Cａｌｌfeｎjｉe(ｎ,a)ｓt=ＣSｔr(n）＆"="Ｆorｉ=1TｏUBounｄ(ａ)-1St=st＆a(i)&"*"NexｔiＴexｔ2=ｓt＆ａ(ｉ)EndSub'*＊＊**＊*＊**SPACE*＊*＊****＊*Privａt(yī)eSuｂfenjｉe(【?】)DｉmkAsIｎtｅgｅr,iＡsIntｅgerk=2DoIfnＭｏｄｋ=0Thenｉ＝i+1ReＤimPrｅｓerｖea(ｉ)a(i)＝k'**＊*****＊*SPAＣE＊**＊***＊＊*【？】Eｌse'*＊*******＊SＰACＥ＊＊*＊**＊＊＊＊【?】EndIf'*******＊**SPACE*******＊**LoｏpＵntｉl【?】EnｄSub第１0題'學生的某次課程測驗中,選擇題的答案已記錄在列表框Ｌｉｓt1中，'其數(shù)據(jù)行格式是:學號為６個字符長度、２個空格、選擇題的答案為15個字符長度。'程序根據(jù)標準答案進行批改，每答對一題給1分,并將得分存放到列表框Lｉst２中。'標準答案存放在變量Exａct中。程序界面參考圖片所示。OptiｏｎEｘpｌｉｃｉｔPｒｉｖateSubＣoｍmａnｄ１_Ｃlick(）DiｍAnwAsＳtrｉnｇ,SｔudIｄAsＳｔringDｉmScorＡｓＩntｅgｅr,ＥｘａctAｓStrｉnｇDimIAsIntegeｒ，JAsIntegerＥｘaｃt="ABCCBAAＣＢBDCCＤＡ"'標準答案'****＊*****SPACE＊********＊ＦｏrI＝【？】'＊*＊**＊＊**＊ＳＰＡＣE*******＊**Anｗ=【?】ＳtｕdＩd=Lefｔ(Anw,6)Anw=Right(Anw,Ｌen(Anw)-8)'*＊＊＊＊**＊*＊SＰACE*＊*＊＊*****【?】ForJ=1ToLeｎ(Anw）＇**********SPACE****＊*＊*＊*If【?】TheｎＳｃｏr＝Ｓcor＋1EnｄIfＮｅｘtJLｉst2.AddIｔemStudIｄ&＂＂&ScorNextIEｎdSub第１1題'下面程序的功能是：輸入一個n位的整數(shù)（n≤10）,求出由這n個數(shù)字組成的n位的＇最小整數(shù)和最大整數(shù)。OptｉonExpliciｔ０ptioｎBａse1PrｉｖatｅSubCommand1_Click()DiｍnＡsLｏｎｇ,a()AsSｔringn=Text１Cａllcｈａngｅ(ｎ,a)Caｌlsｏrｔ(a）Forｉ＝1ToUBoｕnd(ａ）ｌaｒge＝a(i)&ｌarｇｅ'*******＊＊*SＰACE*******＊＊*small=【？】NeｘｔｉTeｘt２＝largｅFｏｒi＝1TｏLeｎ（small）'*＊*******＊SPＡCE****＊*****Ｉf【?】TheｎEｘitForＮexｔiＩｆi<>1Ｔheｎsｍall=Miｄ(small,ｉ，1)&Lefｔ(small,i-1)&Rｉgｈt（sｍall,Lｅｎ(ｓmaｌl）-ｉ)ＥndIfTeｘt3=smalｌEnｄSuｂPｒivaｔｅSｕbsort(a()AsInｔｅｇｅr)＇冒泡法排序DiｍｉAsIｎteｇer,jAsInteger,tAsＩntegeｒFｏri=1TｏUBound(a)-１Forj＝1TｏＵBound(ａ）-i＇******＊*＊SＰACE****＊*****Iｆ【？】Thｅnt=a(ｊ)ａ(j）=a（j+1)a(ｊ+１)=ｔEndIｆNｅxtjNextiＥndSｕｂ'********＊*SPACE**＊*******ＰrivateＳuｂchange(【?】)DｉmkＡsIｎtegerDok=k+１ReＤｉｍＰreservｅa（k)a(k)=nMod10＇＊**＊******SPACE*****＊**＊*n＝【?】ＬoopUntiｌn=０EndＳub第12題'下面程序的功能是計算如圖所示的值。請完善如下程序:OptionＥxpｌicｉtＰrｉvａt(yī)eSubＣommａnd1_Click()ＤimｎAsIntegeｒ，stAｓStriｎg，ｉAsIntｅｇｅrDiｍkAsＳiｎgｌｅ,sAsSinglｅ,jAsIntegｅrn=Teｘt1ｓ=１Fori=2Ton'＊*＊＊**＊*＊*SＰACE＊*＊＊******【?】Forj=１Toｉst=st&CSｔr（i）nｅxtj'*＊***＊**＊＊SPACE*＊****＊***k=【?】s=s+ｋNeｘtiText2＝sEnｄSub第1３題'在計算機中用一個字節(jié)(8位)來存儲一個字符的AＳＣＩI碼,'其中低7位二進制數(shù)相應字符的編碼,每個字節(jié)的最高位一般保持為"0＂，'在數(shù)據(jù)傳輸時可用作奇偶校驗位。傳輸時ＡＳCIＩ代碼轉(zhuǎn)換成傳輸碼的方法是,'若7位ＡSCII碼有偶數(shù)個１,則最高位為1。有奇數(shù)個１，則最高位為0。＇例如字母"A"的AＳCII碼十進制表達為6５,二進制表達為010０0001。'＂A"的傳輸碼則為＂110000０１"。本程序的功能就是把ASＣII代碼轉(zhuǎn)換成這種傳輸碼。＇程序參考界面如下圖所示。OptionEｘｐlicｉtPrivａｔeSubCoｍmanｄ1_Click()DiｍiAｓIntegｅr,sＡsStringDimｓtrAsＳtrｉng，chＡsSｔrinｇstr=Tｅxｔ1.ＴexｔFori=1TｏＬeｎ（sｔr）'*＊＊**＊****SPACＥ****＊*＊*＊*【?】Callcｏnvert(ch,s)List1.AｄdIｔemcｈ&"==＞"&sNextｉＥndSubPrivateＳuｂconｖｅｒt（chAｓStｒｉｎｇ，sＡsＳtｒing)ＤimmＡsIntｅger，kAｓＩntｅgｅr,nAｓInｔegｅr，ｉＡsInteger'＊*＊***＊＊**SPACE**＊*******ｓ=【?】n=Asc(ch)DoWhｉｌen＞0'**＊＊＊*＊***ＳPACE＊＊**＊**＊**【?】s=m&ｓIfm=１Thenk＝ｋ＋1EndＩfn=ｎ\2LoopＦori=1To７-Lｅn(s)＇將字符的二進制代碼補足7位ｓ＝"0＂＆sNeｘtiIｆkMod2=0Ｔｈen'*＊***＊＊***SＰACE**＊*******【？】Elsｅs="0"&ｓEndIfＥndSub第14題'下面程序的功能是：找出僅由數(shù)字1、2、３、４組成的4位素數(shù),規(guī)定每個素數(shù)由4個不'同數(shù)字組成。算法提醒：函數(shù)Validａt(yī)e用于驗證一個4位數(shù)是否由4個不同數(shù)字組成。'在函數(shù)中用A數(shù)組的各個元素分別相應數(shù)字0~9，只要某數(shù)字出現(xiàn)在四位數(shù)中，無論幾次,'均將該數(shù)字相應的數(shù)組元素值置為１。程序界面參見下圖。ＯptｉonEｘplｉcitＰrivａt(yī)eSubCｏmmand1＿Clｉｃｋ()ＤiｍiAｓInｔegｅr,FlgAsBooleanFｏri=１２３4Tｏ４321'＊*********SPＡCE＊＊********【?】ＣallPrime(i,Fｌｇ)IfＦlgTheｎI(lǐng)ｆＶaｌｉdate(i)ThｅnTeｘｔ1＝Texｔ1＆i＆vbCrＬf．EndIfＥnｄIfNexｔｉEｎdSubPrivateSｕbPrime（nＡｓIｎteger,fAｓＢooleaｎ）DiｍｋＡsInｔegｅrFoｒｋ=2TｏSｑr(n)＇***＊*＊****ＳPACE＊＊***＊*＊**【?】Nexｔkf=TrueＥnｄＳｕbPriｖａt(yī)ｅＦunctｉonValidａt(yī)e(nAsIntｅger)AsBooleanＤｉｍA(0To9)ＡsInteｇer,sAｓStrｉng,iAｓInｔegerDｉms１AsＳtrｉnｇ*1'*＊＊*******SＰACE*＊********【?】Forｉ=１ToＬeｎ（s)