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

試卷方案:2023０５VｉsualBasiｃ期末考試方案一、單項(xiàng)選擇_共50題(選:20題*1’第1題以下有關(guān)對(duì)象屬性的說法中，錯(cuò)誤的是＿_(dá)___＿＿_(dá)___.A.工具箱中的控件并不是VB中所有的控件Ｂ.若將Frame的Ｅｎaｂled屬性設(shè)立為Fａlｓe，則不能使用放置在Frame里面的控件C．對(duì)象的Naｍe屬性在運(yùn)營時(shí)不能改變D.對(duì)象的所有屬性都可以在屬性窗口中設(shè)立第2題數(shù)學(xué)表達(dá)式的VB算術(shù)表達(dá)式為_______.Ａ.Ｓ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)對(duì)象的敘述中,對(duì)的的是_＿＿_(dá)＿＿A.對(duì)象由屬性，事件和方法構(gòu)成Ｂ.對(duì)象的所有屬性既可以在屬性窗口設(shè)立,又可以在程序運(yùn)營時(shí)用賦值語句設(shè)立C.對(duì)象的事件一定就是由VB預(yù)先設(shè)立好的人工干預(yù)的動(dòng)作D.對(duì)象的方法是對(duì)象響應(yīng)某個(gè)事件后執(zhí)行的一段程序代碼第4題表達(dá)式CIｎt（4.５）+Cｉｎｔ(-4.51)+Iｎt（4．９)+Int(-４.１）+Fix（-1.9）＋０Mｏd2的運(yùn)算結(jié)果是_＿_(dá).A.1 ?B.-1 ?C.–2 Ｄ.第5題下列關(guān)于菜單的說法中,錯(cuò)誤的是_＿_(dá)_____＿＿.A.每一個(gè)菜單項(xiàng)就是一個(gè)對(duì)象，并且可設(shè)立自己的屬性和事件B.菜單項(xiàng)不可以響應(yīng)DbｌClicｋ事件C.VB6.0允許創(chuàng)建超過四級(jí)的子菜單D.程序執(zhí)行時(shí)，假如規(guī)定菜單項(xiàng)是灰色，不能被用戶選擇,則應(yīng)設(shè)立菜單項(xiàng)的Eｎaｂled屬性為Faｌse第6題以下關(guān)于數(shù)組的說法中,錯(cuò)誤的是_＿_(dá)_＿_(dá)＿_(dá)__.A．使用了Preservｅ子句的Ｒedim語句，只允許改變數(shù)組最后一維的上界B.對(duì)于動(dòng)態(tài)數(shù)組,Rediｍ語句可以改變其維界但不可以改變其數(shù)據(jù)類型C.Erase語句的功能只是對(duì)固定大小的數(shù)組進(jìn)行初始化D.Lｂｏunｄ函數(shù)返回值是指定數(shù)組某一維的下界第７題設(shè)a=3，b=2,ｃ=1,運(yùn)營printa>b＞c的結(jié)果是＿_(dá)＿＿＿＿＿_(dá)＿_(dá)__.Ａ.Tｒue? B.False??C.1??Ｄ．犯錯(cuò)第８題以下說法不對(duì)的的是＿_(dá)_＿_(dá)___＿_(dá)＿_(dá).Ａ.使用不帶關(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語句可以對(duì)數(shù)組中的所有元素進(jìn)行初始化第9題在列表框Ｌist1中有若干列表項(xiàng)，可以刪除選定列表項(xiàng)的語句是__＿＿＿_(dá)_＿_(dá)＿.A.Ｌｉsｔ1.text=""Ｂ.Lｉst1.Liｓt(List1．ＬistIndex)＝""C．Liｓt1.ClｅarＤ.Lｉｓｔ1.RemｏveItemLｉst1.ＬiｓｔIndeｘ第10題數(shù)學(xué)表達(dá)式相應(yīng)的ＶＢ表達(dá)式是＿_(dá)____＿_(dá)_＿．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ù)的說明中,對(duì)的的是＿＿_(dá)_＿_(dá)A.在過程中也可用Dim語句對(duì)形參數(shù)組進(jìn)行說明Ｂ．動(dòng)態(tài)數(shù)組作為實(shí)參時(shí)，可用ＲeDim語句在過程中改變相應(yīng)形參數(shù)組的維界Ｃ.調(diào)用過程時(shí)，數(shù)組名不能作為實(shí)參D.數(shù)組可以按地址傳遞也可以按植傳遞第12題下列有關(guān)過程的說法中,錯(cuò)誤的是___＿_(dá)___＿_(dá)___.A.在Sｕｂ或Fｕｎcｔioｎ過程內(nèi)部不能再定義其它Sub或Ｆunｃｔioｎ過程B.對(duì)于使用ＢyRef說明的形參,在過程調(diào)用時(shí)形參和實(shí)參只能按傳址方式結(jié)合C.遞歸過程既可以是遞歸Ｆｕｎctioｎ過程，也可以是遞歸Sｕｂ過程Ｄ．可以像調(diào)用Ｓub過程同樣使用Ｃａlｌ語句調(diào)用Ｆｕncｔiｏn過程第１３題要將焦點(diǎn)設(shè)立在某個(gè)控件上，以下四個(gè)選項(xiàng)中對(duì)的的是___＿＿_(dá).Ａ.只能使用鼠標(biāo)直接點(diǎn)擊控件B.只能使用Taｂ鍵將焦點(diǎn)移到該控件C．只能在程序中調(diào)用該控件的SeｔFocｕs方法D.A、Ｂ、C三選項(xiàng)中涉及的方法均可使用第14題以下Cａｓe語句中,能對(duì)的描述Y的絕對(duì)值大于６的是＿_(dá)＿＿_(dá)_.A.CaｓｅAbs（Y)>6 ?B.Case-6To６C.ＣaｓeNｏt(-6To6)?? ?D.CaｓeIs<－6,Ｉｓ＞6第15題以下關(guān)于變量作用域的敘述中,對(duì)的的是_＿_(dá)___＿_(dá)＿＿＿_(dá).A.窗體中凡用Prｉvate聲明的變量只能在某個(gè)指定的過程中使用B.模塊級(jí)變量只能用Dim語句聲明C.凡是在窗體模塊或標(biāo)準(zhǔn)模塊的通用聲明段用Puｂｌic語句聲明的變量都是全局變量D.當(dāng)不同作用域的同名變量發(fā)生沖突時(shí)，優(yōu)先訪問局限性小的變量第16題以下關(guān)于數(shù)值常量的說法中,錯(cuò)誤的是______A．八進(jìn)制數(shù)的表達(dá)方法是在數(shù)字前面加&OB.十六進(jìn)制數(shù)的表達(dá)方法是在數(shù)字前面加&HC.在浮點(diǎn)運(yùn)算中使用D來分隔尾數(shù)和指數(shù)時(shí),系統(tǒng)將把該數(shù)值作為單精度型數(shù)解決Ｄ.32768是合法的數(shù)值常量第17題數(shù)學(xué)表達(dá)式相應(yīng)的ＶB表達(dá)式是＿_(dá)＿_(dá)__＿＿_(dá)__.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個(gè)表達(dá)式中，有關(guān)__＿_(dá)_____個(gè)可以對(duì)Sｉnｇle類型變量x（正數(shù))的第３位小數(shù)對(duì)的地進(jìn)行四舍五入計(jì)算．Ｆormat(x，″#.00″)?Ｉｎt(１０0*(x＋0.005)）／100?ＣIｎt(１0０*(x+0.005)／10０?Fix(1００*(x+０.０0５））／1０0A.１個(gè)? B.2個(gè)??C.3個(gè) ?Ｄ．4個(gè)第１９題執(zhí)行以下語句時(shí),會(huì)出現(xiàn)錯(cuò)誤提醒的是__＿_(dá)__＿_(dá)__.A.Pｒiｎt"2b3"+12.5 B．Ｐrｉnｔ"12．５＂+12? C.Print"1２．5＂&１2．5??第20題以下Case語句具有錯(cuò)誤的是__＿_(dá)___＿＿＿_(dá).Ａ.Cａｓe0To１0 ??B．ＣasｅIｓ＞10? Ｃ.CaseIｓ＞１０ＡndIs<５0 D.第21題下列語句中，對(duì)的的是＿＿_(dá)______＿A.Teｘtl．SetFoｃｕｓ?B．Formｌ．Cｌeaｒ?C.Labell.SetＦoｃus D.Ｌistl.Ｃls第22題下列選項(xiàng)中，所包含的所有表達(dá)式可以將兩位整數(shù)x的個(gè)位數(shù)與十位數(shù)對(duì)調(diào)(如將7８轉(zhuǎn)換為87)的是＿_(dá)_____＿_(dá)_＿_(dá)___.①Ｖ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ù)的定義中,對(duì)的的是＿_(dá)__＿_(dá)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ù)組的說法中，錯(cuò)誤的是__＿_(dá)_＿.A.控件數(shù)組由一組具有相同名稱和相同類型的控件組成,不同類型的控件無法組成控件數(shù)組B.控件數(shù)組中的所有控件不得具有各自不同的屬性設(shè)立值C．控件數(shù)組中的所有控件共享同一個(gè)事件過程Ｄ.控件數(shù)組中每個(gè)元素的下標(biāo)由控件的Inｄex屬性指定第２5題以下對(duì)數(shù)組參數(shù)的說明中,錯(cuò)誤的是____＿＿＿_(dá)___.A．在過程中可以用Dim語句對(duì)形參數(shù)組進(jìn)行聲明B.形參數(shù)組只能按地址傳遞C．實(shí)參為動(dòng)態(tài)數(shù)組時(shí),可用RｅDim語句改變相應(yīng)形參數(shù)組的維界D.只需把要傳遞的數(shù)組名作為實(shí)參,即可調(diào)用過程第26題要向文獻(xiàn)dａt(yī)al．txｔ添加數(shù)據(jù),對(duì)的的文獻(xiàn)打開命令是_＿_(dá)_____＿_(dá)＿＿_(dá)．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ù)組解決的敘述中,對(duì)的的是__＿_(dá)______.A．在過程中使用ＲeDｉm語句可以改變動(dòng)態(tài)數(shù)組數(shù)據(jù)的類型B.在過程中,可以使用Ｄｉm、Privａt(yī)e和Ｓtatｉｃ語句來定義數(shù)組C.用ReDim語句重新定義動(dòng)態(tài)數(shù)組時(shí),可以改變數(shù)組的大小，但不能改變數(shù)組的維數(shù)D.不可以用Ｐｕblic語句在窗體模塊的通用處說明一個(gè)全局?jǐn)?shù)組第２8題下面的表達(dá)式中,運(yùn)算結(jié)果為True的是__＿_(dá)_____＿．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è)計(jì)界面時(shí),要使一個(gè)文本框具有水平和垂直滾動(dòng)條，應(yīng)先將其______＿_(dá)屬性置為True,再將ScrｏllBaｒ?qū)傩栽O(shè)立為3.A.ＭuｌtiLｉnｅ??B.AutoＳize??C．Aliｇnmenｔ D.RigｈtTｏL(fēng)eft第3０題下面有關(guān)數(shù)組的說法中，對(duì)的的是_＿＿＿_(dá)_A.數(shù)組的維下界不可以是負(fù)數(shù)Ｂ．模塊通用聲明處有ＯpｔionＢase1，則模塊中數(shù)組定義語句DimA(0Tｏ５）會(huì)與之沖突C.模塊通用聲明處有ＯptiｏnBase１，模塊中有DimA（0To５),則A數(shù)組第一維維下界為0D.模塊通用聲明處有OｐtｉoｎBaｓe1，模塊中有ＤimA(０Tｏ5）,則A數(shù)組第一維維下界為1第31題下面有關(guān)數(shù)組的敘述中,不對(duì)的的是___＿_(dá)＿．①在過程中用ReDim語句定義的動(dòng)態(tài)數(shù)組，其下標(biāo)的上下界可以是變量②數(shù)組作為形式參數(shù)時(shí),傳遞的是每個(gè)數(shù)組元素的值③在窗體模塊的通用聲明處可以用Pｕbｌｉc說明一個(gè)全局?jǐn)?shù)組④數(shù)組定義語句中可以用負(fù)數(shù)或小數(shù)來指定某一維的維下界或維上界的值A(chǔ).②③? B.①③④??Ｃ．①②③④??D.③④第3２題下列關(guān)于對(duì)象SetFoｃｕs與GｏtFocus的描述中,對(duì)的的是＿＿＿＿_(dá)A.SetFocus是事件,ＧotFｏｃus是方法? ?B.Setｆocuｓ和Gotｆocus都是事件Ｃ.Sｅtfocus和GotFocus都是方法 ?Ｄ．SｅtＦｏcus是方法，GotFocuｓ是事件第３3題創(chuàng)建一個(gè)名為＂文獻(xiàn)＂的菜單項(xiàng),欲使其可用Ａlｔ＋F方式訪問,則在菜單編輯器的標(biāo)題文本框中應(yīng)輸入＿_(dá)_______．A.文獻(xiàn)(＄F）??B.文獻(xiàn)(&F） C．文獻(xiàn)(#F）? D.文獻(xiàn)(％Ｆ)第34題在下列屬性中,屬于ＣｏmmandBｕｔton控件、ListBoｘ控件共有的是___＿_(dá)_．A.Capｔioｎ、Ｔeｘt??B.Visible、Foｎｔ??Ｃ.Ｃａpｔiｏn、Ｖｉｓible ?D.Lｉｓｔ、Visibｌe第35題下列可以對(duì)的表達(dá)條件＂Ｘ≤Y<Ｚ"的ＶＢ邏輯表達(dá)式是_＿_(dá)＿_(dá)＿A.X≤Y＜Ｚ Ｂ．Ｘ<=YAndＹ<Ｚ? C.X≤YORY<Ｚ Ｄ．X<=Y＜Z第3６題以下關(guān)于Functiｏn過程的說法中,錯(cuò)誤的是_______＿＿_(dá)＿.Ａ.Funｃｔioｎ過程名可以有一個(gè)或多個(gè)返回值Ｂ.在Fuｎctｉon過程內(nèi)部不得再定義Ｆｕncｔion過程C．Functioｎ過程中可以包含多個(gè)EｘitFuｎｃtioｎ語句D.可以像調(diào)用Sub過程同樣調(diào)用Fuｎｃtioｎ過程第３7題下面的關(guān)系表達(dá)式中,運(yùn)算結(jié)果為Tｒue的是＿＿_(dá)__＿.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,則下列表達(dá)式中，結(jié)果為True的是＿_(dá)___＿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í)行＿_(dá)_＿_(dá)__＿＿_(dá)語句時(shí),會(huì)出現(xiàn)犯錯(cuò)提醒信息.A.Print５＋7=14 ?? ?Ｂ.Ｐrinｔ163８４*2C.Prｉnt3２76８*2 ? D．Priｎt"14"＋3２第40題數(shù)學(xué)表達(dá)式相應(yīng)的VisｕａlＢaｓiｃ表達(dá)式是_____＿.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１題在一個(gè)多窗體程序中,可以僅將窗體Fｏｒm2從內(nèi)存中卸載的語句是__＿_(dá)＿＿_(dá)＿．A.Foｒm2．Ｕnlｏａｄ ????B.UnloaｄFｏrm2C．Form2.End ?D.Foｒm2.Hｉdｅ第４2題Print方法可在______上輸出數(shù)據(jù).①窗體②文本框③圖片框④標(biāo)簽⑤列表框⑥立即窗口A.①③⑥ ?B.②③⑤? C.①②⑤??D.③④⑥第43題若要使邏輯表達(dá)式ｘ>yXoｒy<z結(jié)果為Trｕｅ,則x、ｙ、z的取值應(yīng)為下列選項(xiàng)中的＿＿_(dá)___＿.A.ｘ=３、y＝3、z＝4?? B.ｘ=2、y=1、z=２C.ｘ＝1、y＝3、z=2??? D.x=2、y=2、z＝２第4４題下列_＿_(dá)______＿_(dá)_是合法的變量名.A.abs? ?Ｂ.–ａl? C.cdcd ??D.Abｅ_10第45題下列___＿_(dá)_是對(duì)的的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三個(gè)Intｅger型變量，則下列語句中不能對(duì)的調(diào)用函數(shù)Fｕn的語句是____＿_(dá)___＿_(dá)．A.Fun３.１4,J??B．CallFun(I，365)? C．Fun（I),(J) ?D.Ｋ=Fｕn（"2４",＂35"）第４7題若需要在同一窗體內(nèi)安排兩組互相獨(dú)立的單選按鈕（OptionＢuｔtoｎ),可使用＿＿_(dá)＿_(dá)＿控件做容器將它們分開.①TextBox②ＰictｕreBｏx③Image④FrａmｅA．①或② ?B.②或③??C.②或④ ?D.③或④第48題以下關(guān)于文獻(xiàn)的敘述中,錯(cuò)誤的是＿_(dá)________。A.用Oｕtput模式打開一個(gè)順序文獻(xiàn)，即使不對(duì)它進(jìn)行寫操作，本來的內(nèi)容也被清除B．可以用Pｒiｎt#語句或Wriｔｅ#語句將數(shù)據(jù)寫到順序文獻(xiàn)中Ｃ.若以O(shè)ｕtpｕt、Ａpｐend、Rａndom、Binaｒy方式打開一個(gè)不存在的文獻(xiàn)，系統(tǒng)會(huì)犯錯(cuò)D.順序文獻(xiàn)或隨機(jī)文獻(xiàn)都可以用二進(jìn)制訪問模式打開第４9題窗體上有若干命令按鈕和一個(gè)文本框,程序運(yùn)營時(shí)焦點(diǎn)置于文本框中,為了在按下回車鍵時(shí)執(zhí)行某個(gè)命令按鈕的Ｃlｉck事件過程,需要將該按鈕的_＿_(dá)_＿_(dá)___屬性設(shè)立為True.A.Ｅnabｌｅｄ? Ｂ.Deｆauｌt C.Cancel ?D.Visible第50題數(shù)學(xué)表達(dá)式相應(yīng)的VＢ表達(dá)式是____＿_(dá)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題運(yùn)營下列程序，單擊Comｍaｎｄ1,在窗體上顯示的第一行內(nèi)容是＿＿＿_(dá)__【1】__＿_(dá),第二行的內(nèi)容是_____【2】＿＿_(dá)_，第三行的內(nèi)容是＿_(dá)__＿【3】＿_(dá)_＿＿_(dá)。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１,窗體上顯示的第一行是_____＿【１】_＿_(dá)_＿,第二行是______【２】_＿＿_(dá),第四行是___＿_(dá)_【3】_＿＿_(dá)＿。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題運(yùn)營下面的程序,單擊Cｏｍmand1,在窗體上顯示的變量a的值為___＿【1】______,變量ｂ的值為____＿【2】___＿，變量c的值為_____【3】＿_(dá)＿＿_(dá)_。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】個(gè)元素；數(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題運(yùn)營下面程序,單擊Cｏmｍaｎd1,在窗體上顯示的變量A的值為_＿_(dá)【１】_＿_(dá)_,變量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,窗體上顯示的第一行是＿_(dá)【1】＿_(dá)_，第二行是＿_(dá)_【２】_＿_(dá)，第四行是__＿【3】_______，最后一行是__＿【4】_＿_(dá)_＿．Ｏ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題運(yùn)營下列程序,單擊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，ｎA(yù)sIｎ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題運(yùn)營下面程序，假如連續(xù)三次單擊命令按鈕之后，Ａ數(shù)組共有__＿【1】__＿個(gè)元素;數(shù)組元素A(2）的值是＿_(dá)【２】_＿_(dá)_,A(５)的值是＿_(dá)【3】___＿_(dá)_.OpｔｉonExｐlicitOptionBase1ＰrivaｔｅSｕbComｍａnｄ1＿Click()Statｉcａ()AsIｎｔｅger，ｎA(yù)sIntegｅｒ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)容是＿_(dá)【1】_＿,第二行的內(nèi)容是＿＿【2】__，第三行的內(nèi)容是_【3】＿_(dá)＿。Ｏｐ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】＿_(dá)，變量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】____,第二行是___＿_(dá)【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ｎｄ１,窗體上顯示的第一行是＿_(dá)【1】＿＿，第二行是＿_(dá)【2】＿＿，第三行是_【3】＿_(dá)＿。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ù)值是__＿_(dá)【1】_____,a(3,3)的數(shù)值是___＿【２】＿_(dá)＿_(dá)＿_(dá)，圖片框中最后一行顯示的是_＿_(dá)＿【3】＿_(dá)___.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,則圖片框中顯示的第一行是＿＿_(dá)【１】＿_(dá)_,顯示的第二行是＿_(dá)__＿【２】_＿_(dá)，最后一行顯示的是___【3】＿＿_(dá)__.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個(gè)"．"分隔的十進(jìn)制數(shù)表達(dá)的IP地址轉(zhuǎn)換為由3２位二進(jìn)制數(shù)組成＇的ＩP地址。例如十進(jìn)制表達(dá)的ＩＰ地址為２０2.119.1９1．1，其中每個(gè)十進(jìn)制數(shù)相應(yīng)一個(gè)8位＇的二進(jìn)制數(shù),合起來構(gòu)成一個(gè)３2位二進(jìn)制的ＩP地址00００000１。'過程Tiqu用于提取十進(jìn)制ＩP地址中每個(gè)用"."分隔的十進(jìn)制數(shù);＇過程Ｃoｎｖert用于將十進(jìn)制數(shù)轉(zhuǎn)換為相應(yīng)的8位二進(jìn)制數(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Ｐ地址錯(cuò)誤！")Ｅ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個(gè)數(shù)有多少個(gè)是不同的。'具體做法是：變量Ｌeｆt指向要被解決的數(shù)（從第２個(gè)元素開始),＇Ｒight指向數(shù)組最后一個(gè)元素。若A（Ｌｅfｔ)與排在它前面的某個(gè)數(shù)組元素值相同,'就用數(shù)組元素A（Riｇht)的值來替換A(Lefｔ)的值,同時(shí)將變量Rigｈt的值減1;'否則將變量Left的值加１，解決數(shù)組下一個(gè)元素，反復(fù)以上過程,直到Left>Rｉｇｈｔ為止。'Ｒighｔ的值即為不同的數(shù)的個(gè)數(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（"請(qǐng)輸入數(shù)據(jù)個(gè)數(shù)",,1０）RｅDimA(N)RandomizｅForI=1ToＮA（I)＝Ｉnｔ(Rnｄ＊１０)+1Text1=Text１&A(I)&""NextICallｓtaｔｉｓｔiｃ（A，OＰ)Text2="有"&ＯP&"個(gè)不同的數(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題＇下面程序的功能是隨機(jī)生成小于１０0的諸素?cái)?shù)組成的數(shù)據(jù)。程序界面如下圖所示。OpｔｉonExplｉcitPriｖateSｕbＣomｍａｎd1_Clicｋ()Dimp()AsIntegｅｒ,iAsInｔegｅr，ｎA(yù)sIntegeｒDimsｔＡｓStrｉｎg,kAsIｎtegerRａndomizek=InputBox("元素個(gè)數(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(ｎA(yù)sＩ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）的值。當(dāng)通項(xiàng)的絕對(duì)值小于10＾-7時(shí)停止計(jì)算，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題'下面程序的功能是：一方面生成一個(gè)由小到大已排好序的整數(shù)數(shù)組，再輸入一個(gè)數(shù)據(jù)，'單擊＂插入"按鈕會(huì)自動(dòng)把這個(gè)數(shù)據(jù)插人到原數(shù)組適當(dāng)?shù)奈恢茫⒈３謹(jǐn)?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ù)組元素移位并實(shí)現(xiàn)插入ＤimiAsIｎtegｅr'*＊********SPACＥ*＊********【?】Fori=UBouｎｄ(P)-1ＴoｋStｅｐ-1＇**＊***＊***ＳPＡCＥ**＊*******【?】NextiP（k)=nＥndSub第6題'下面程序的功能是：將輸入的2位16進(jìn)制數(shù)的每一位轉(zhuǎn)換為一個(gè)４位的二進(jìn)制數(shù)，'再組合成為一個(gè)8位的二進(jìn)制數(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)的值.當(dāng)級(jí)數(shù)通項(xiàng)的絕對(duì)值小與ｅps=10^-7時(shí)停止＇計(jì)算,x的值由鍵盤輸入．'請(qǐng)完善如下程序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("請(qǐng)輸入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ù)(末尾無空格),'程序自動(dòng)將輸入的數(shù)據(jù)分解并存儲(chǔ)到一個(gè)一維數(shù)組，'再把數(shù)組中所有反復(fù)的元素刪除(只保存一個(gè))，并輸出到文本框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表達(dá)成若干個(gè)質(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題'學(xué)生的某次課程測驗(yàn)中,選擇題的答案已記錄在列表框Ｌｉｓt1中，'其數(shù)據(jù)行格式是:學(xué)號(hào)為６個(gè)字符長度、２個(gè)空格、選擇題的答案為15個(gè)字符長度。'程序根據(jù)標(biāo)準(zhǔn)答案進(jìn)行批改，每答對(duì)一題給1分,并將得分存放到列表框Lｉst２中。'標(biāo)準(zhǔn)答案存放在變量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ＤＡ"'標(biāo)準(zhǔn)答案'****＊*****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題'下面程序的功能是：輸入一個(gè)n位的整數(shù)（n≤10）,求出由這n個(gè)數(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ｏL(fēng)eｎ（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題'下面程序的功能是計(jì)算如圖所示的值。請(qǐng)完善如下程序:OptionＥxpｌicｉtＰrｉvａt(yī)eSubＣommａnd1_Click()ＤimｎA(yù)sIntegeｒ，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３題'在計(jì)算機(jī)中用一個(gè)字節(jié)(8位)來存儲(chǔ)一個(gè)字符的AＳＣＩI碼,'其中低7位二進(jìn)制數(shù)相應(yīng)字符的編碼,每個(gè)字節(jié)的最高位一般保持為"0＂，'在數(shù)據(jù)傳輸時(shí)可用作奇偶校驗(yàn)位。傳輸時(shí)ＡＳCIＩ代碼轉(zhuǎn)換成傳輸碼的方法是,'若7位ＡSCII碼有偶數(shù)個(gè)１,則最高位為1。有奇數(shù)個(gè)１，則最高位為0。＇例如字母"A"的AＳCII碼十進(jìn)制表達(dá)為6５,二進(jìn)制表達(dá)為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)＇將字符的二進(jìn)制代碼補(bǔ)足7位ｓ＝"0＂＆sNeｘtiIｆkMod2=0Ｔｈen'*＊***＊＊***SＰACE**＊*******【？】Elsｅs="0"&ｓEndIfＥndSub第14題'下面程序的功能是：找出僅由數(shù)字1、2、３、４組成的4位素?cái)?shù),規(guī)定每個(gè)素?cái)?shù)由4個(gè)不'同數(shù)字組成。算法提醒：函數(shù)Validａt(yī)e用于驗(yàn)證一個(gè)4位數(shù)是否由4個(gè)不同數(shù)字組成。'在函數(shù)中用A數(shù)組的各個(gè)元素分別相應(yīng)數(shù)字0~9，只要某數(shù)字出現(xiàn)在四位數(shù)中，無論幾次,'均將該數(shù)字相應(yīng)的數(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)