2023年VB期末考试题库及答案

试卷方案:2023０５VｉsualBasiｃ期末考试方案一、单项选择_共50题(选:20题*1’第1题以下有关对象属性的说法中，错误的是＿____＿＿____.A.工具箱中的控件并不是VB中所有的控件Ｂ.若将Frame的Ｅｎaｂled属性设立为Fａlｓe，则不能使用放置在Frame里面的控件C．对象的Naｍe属性在运营时不能改变D.对象的所有属性都可以在属性窗口中设立第2题数学表达式的VB算术表达式为_______.Ａ.Ｓ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题下列有关对象的叙述中,对的的是_＿＿_＿＿A.对象由属性，事件和方法构成Ｂ.对象的所有属性既可以在属性窗口设立,又可以在程序运营时用赋值语句设立C.对象的事件一定就是由VB预先设立好的人工干预的动作D.对象的方法是对象响应某个事件后执行的一段程序代码第4题表达式CIｎt（4.５）+Cｉｎｔ(-4.51)+Iｎt（4．９)+Int(-４.１）+Fix（-1.9）＋０Mｏd2的运算结果是_＿_.A.1 ﻩB.-1 ﻩC.–2 Ｄ.第5题下列关于菜单的说法中,错误的是_＿______＿＿.A.每一个菜单项就是一个对象，并且可设立自己的属性和事件B.菜单项不可以响应DbｌClicｋ事件C.VB6.0允许创建超过四级的子菜单D.程序执行时，假如规定菜单项是灰色，不能被用户选择,则应设立菜单项的Eｎaｂled属性为Faｌse第6题以下关于数组的说法中,错误的是_＿__＿_＿___.A．使用了Preservｅ子句的Ｒedim语句，只允许改变数组最后一维的上界B.对于动态数组,Rediｍ语句可以改变其维界但不可以改变其数据类型C.Erase语句的功能只是对固定大小的数组进行初始化D.Lｂｏunｄ函数返回值是指定数组某一维的下界第７题设a=3，b=2,ｃ=1,运营printa>b＞c的结果是＿_＿＿＿＿＿_＿___.Ａ.Tｒueﻩ B.FalseﻩﻩC.1ﻩﻩＤ．犯错第８题以下说法不对的的是＿__＿____＿_＿_.Ａ.使用不带关键字Preｓerve的RｅDim语句可以重新定义数组的维数B．使用不带关键字Ｐｒeseｒｖe的ＲeDim语句可以改变数组各维的上、下界C.使用不带关键字Pｒeserｖe的ＲｅDim语句可以改变数组的数据类型Ｄ.使用不带关键字Prｅserve的ＲeＤim语句可以对数组中的所有元素进行初始化第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题数学表达式相应的ＶＢ表达式是＿_____＿__＿．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题以下有关数组参数的说明中,对的的是＿＿__＿_A.在过程中也可用Dim语句对形参数组进行说明Ｂ．动态数组作为实参时，可用ＲeDim语句在过程中改变相应形参数组的维界Ｃ.调用过程时，数组名不能作为实参D.数组可以按地址传递也可以按植传递第12题下列有关过程的说法中,错误的是___＿____＿____.A.在Sｕｂ或Fｕｎcｔioｎ过程内部不能再定义其它Sub或Ｆunｃｔioｎ过程B.对于使用ＢyRef说明的形参,在过程调用时形参和实参只能按传址方式结合C.递归过程既可以是递归Ｆｕｎctioｎ过程，也可以是递归Sｕｂ过程Ｄ．可以像调用Ｓub过程同样使用Ｃａlｌ语句调用Ｆｕncｔiｏn过程第１３题要将焦点设立在某个控件上，以下四个选项中对的的是___＿＿_.Ａ.只能使用鼠标直接点击控件B.只能使用Taｂ键将焦点移到该控件C．只能在程序中调用该控件的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题以下关于变量作用域的叙述中,对的的是_＿____＿_＿＿＿_.A.窗体中凡用Prｉvate声明的变量只能在某个指定的过程中使用B.模块级变量只能用Dim语句声明C.凡是在窗体模块或标准模块的通用声明段用Puｂｌic语句声明的变量都是全局变量D.当不同作用域的同名变量发生冲突时，优先访问局限性小的变量第16题以下关于数值常量的说法中,错误的是______A．八进制数的表达方法是在数字前面加&OB.十六进制数的表达方法是在数字前面加&HC.在浮点运算中使用D来分隔尾数和指数时,系统将把该数值作为单精度型数解决Ｄ.32768是合法的数值常量第17题数学表达式相应的Ｖ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个表达式中，有关__＿______个可以对Sｉnｇle类型变量x（正数)的第３位小数对的地进行四舍五入计算．Ｆ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个第１９题执行以下语句时,会出现错误提醒的是__＿___＿___.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题下列选项中，所包含的所有表达式可以将两位整数x的个位数与十位数对调(如将7８转换为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题以下关于子过程或函数的定义中,对的的是＿___＿_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题下列有关控件数组的说法中，错误的是__＿__＿.A.控件数组由一组具有相同名称和相同类型的控件组成,不同类型的控件无法组成控件数组B.控件数组中的所有控件不得具有各自不同的属性设立值C．控件数组中的所有控件共享同一个事件过程Ｄ.控件数组中每个元素的下标由控件的Inｄex属性指定第２5题以下对数组参数的说明中,错误的是____＿＿＿____.A．在过程中可以用Dim语句对形参数组进行声明B.形参数组只能按地址传递C．实参为动态数组时,可用RｅDim语句改变相应形参数组的维界D.只需把要传递的数组名作为实参,即可调用过程第26题要向文献dａtal．txｔ添加数据,对的的文献打开命令是_＿______＿_＿＿_．A.Open"datal.txｔ"FｏrOutpｕtAｓ#1B.Oｐeｎ"datａｌ.ｔxt"FｏrInputＡs#1C.Ｏpｅn"dａtａl.txt＂ForAppenｄAｓ#５Ｄ.Opeｎ"dａtal.ｔｘｔ＂FｏrWｒiteAs＃5第2７题下面有关数组解决的叙述中,对的的是__＿_______.A．在过程中使用ＲeDｉm语句可以改变动态数组数据的类型B.在过程中,可以使用Ｄｉm、Privａte和Ｓtatｉｃ语句来定义数组C.用ReDim语句重新定义动态数组时,可以改变数组的大小，但不能改变数组的维数D.不可以用Ｐｕblic语句在窗体模块的通用处说明一个全局数组第２8题下面的表达式中,运算结果为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题设计界面时,要使一个文本框具有水平和垂直滚动条，应先将其______＿_属性置为True,再将ScrｏllBaｒ属性设立为3.A.ＭuｌtiLｉnｅﻩﻩB.AutoＳizeﻩﻩC．Aliｇnmenｔ D.RigｈtTｏLeft第3０题下面有关数组的说法中，对的的是_＿＿＿__A.数组的维下界不可以是负数Ｂ．模块通用声明处有ＯpｔionＢase1，则模块中数组定义语句DimA(0Tｏ５）会与之冲突C.模块通用声明处有ＯptiｏnBase１，模块中有DimA（0To５),则A数组第一维维下界为0D.模块通用声明处有OｐtｉoｎBaｓe1，模块中有ＤimA(０Tｏ5）,则A数组第一维维下界为1第31题下面有关数组的叙述中,不对的的是___＿_＿．①在过程中用ReDim语句定义的动态数组，其下标的上下界可以是变量②数组作为形式参数时,传递的是每个数组元素的值③在窗体模块的通用声明处可以用Pｕbｌｉc说明一个全局数组④数组定义语句中可以用负数或小数来指定某一维的维下界或维上界的值A.②③ﻩ B.①③④ﻩﻩＣ．①②③④ﻩﻩD.③④第3２题下列关于对象SetFoｃｕs与GｏtFocus的描述中,对的的是＿＿＿＿_A.SetFocus是事件,ＧotFｏｃus是方法ﻩ ﻩB.Setｆocuｓ和Gotｆocus都是事件Ｃ.Sｅtfocus和GotFocus都是方法 ﻩＤ．SｅtＦｏcus是方法，GotFocuｓ是事件第３3题创建一个名为＂文献＂的菜单项,欲使其可用Ａ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６题以下关于Functiｏn过程的说法中,错误的是_______＿＿_＿.Ａ.Funｃｔioｎ过程名可以有一个或多个返回值Ｂ.在Fuｎctｉon过程内部不得再定义Ｆｕncｔion过程C．Functioｎ过程中可以包含多个EｘitFuｎｃtioｎ语句D.可以像调用Sub过程同样调用Fuｎｃtioｎ过程第３7题下面的关系表达式中,运算结果为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,则下列表达式中，结果为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题执行＿__＿___＿＿_语句时,会出现犯错提醒信息.A.Print５＋7=14 ﻩﻩ ﻩＢ.Ｐrinｔ163８４*2C.Prｉnt3２76８*2 ﻩ D．Priｎt"14"＋3２第40题数学表达式相应的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从内存中卸载的语句是__＿_＿＿_＿．A.Foｒm2．Ｕnlｏａｄ ﻩﻩﻩﻩB.UnloaｄFｏrm2C．Form2.End ﻩD.Foｒm2.Hｉdｅ第４2题Print方法可在______上输出数据.①窗体②文本框③图片框④标签⑤列表框⑥立即窗口A.①③⑥ ﻩB.②③⑤ﻩ C.①②⑤ﻩﻩD.③④⑥第43题若要使逻辑表达式ｘ>yXoｒy<z结果为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定义了函数Ｆｕn.调用函数Fｕｎ的过程中定义了I、J和K三个Intｅger型变量，则下列语句中不能对的调用函数Fｕn的语句是____＿____＿_．A.Fun３.１4,JﻩﻩB．CallFun(I，365)ﻩ C．Fun（I),(J) ﻩD.Ｋ=Fｕn（"2４",＂35"）第４7题若需要在同一窗体内安排两组互相独立的单选按钮（OptionＢuｔtoｎ),可使用＿＿_＿_＿控件做容器将它们分开.①TextBox②ＰictｕreBｏx③Image④FrａmｅA．①或② ﻩB.②或③ﻩﻩC.②或④ ﻩD.③或④第48题以下关于文献的叙述中,错误的是＿_________。A.用Oｕtput模式打开一个顺序文献，即使不对它进行写操作，本来的内容也被清除B．可以用Pｒiｎt#语句或Wriｔｅ#语句将数据写到顺序文献中Ｃ.若以Oｕtpｕt、Ａpｐend、Rａndom、Binaｒy方式打开一个不存在的文献，系统会犯错D.顺序文献或随机文献都可以用二进制访问模式打开第４9题窗体上有若干命令按钮和一个文本框,程序运营时焦点置于文本框中,为了在按下回车键时执行某个命令按钮的Ｃlｉck事件过程,需要将该按钮的_＿__＿____属性设立为True.A.Ｅnabｌｅｄﻩ Ｂ.Deｆauｌt C.Cancel ﻩD.Visible第50题数学表达式相应的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,在窗体上显示的第一行内容是＿＿＿___【1】__＿_,第二行的内容是_____【2】＿＿__，第三行的内容是＿___＿【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题执行下面程序,单击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题执行下面的程序,单击Ｃｏmmand１,窗体上显示的第一行是_____＿【１】_＿__＿,第二行是______【２】_＿＿_,第四行是___＿__【3】_＿＿_＿。OptionExpliｃitＰrｉvａteＳｕ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题执行下面的程序，连续三次单击命令按钮Commａnd1之后，A数组共有【1】个元素；数组元素Ａ(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ａteSubCoｍｍａ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第７题执行下面的程序,单击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第８题执行下面程序,单击Ｃｏmｍand1,窗体上显示的第一行是＿_【1】＿__，第二行是＿__【２】_＿_，第四行是__＿【3】_______，最后一行是__＿【4】_＿__＿．ＯptionExpliciｔPｒiｖａteSubCｏ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,在窗体上显示的第一行内容是【１】,第二行的内容是【2】,第三行的内容是【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ｅFｕnｃtiｏnF(nAｓＩｎtｅger)DimｉＡsＩnｔegerSｔaticsAｓIntegｅrFori=1Tons=s+iNｅxtiF=sEndＦunｃtｉoｎ第10题执行下面的程序，单击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题运营下面程序，假如连续三次单击命令按钮之后，Ａ数组共有__＿【1】__＿个元素;数组元素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Ｓｕｂ第１２题执行下面的程序，单击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题执行以下程序，单击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＋1EndIfA(i,j）＝kLoopＦori=1Tｏ３Forj=１To3Picｔure１.PrintA（ｉ,j);NeｘｔjＰictuｒe1.PｒintNextiEndSub第１4题执行下列程序，单击Coｍmａnｄ1,在窗体上显示的第一行内容是＿_【1】_＿,第二行的内容是＿＿【2】__，第三行的内容是_【3】＿_＿。ＯｐtionExpliciｔＰrｉvａteSubCｏ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题执行下列的程序,单击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ａteFunctionｆuｎ(xAsInteger,ＢyVaｌyAｓＩnteger)AsIｎｔeｇerx=x－ｙy=ｘ+ｙ+２fun=y-ｘEndFｕnction第1６题执行下面程序,单击Ｃｏ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ａteＳubsuｂ1(ｉAｓＩnteｇer,aAｓInｔegeｒ,bＡsIntｅｇeｒ）ｉ＝i＋1a＝ａ+1ｂ=ｂ+1EnｄSｕb第1７题执行下面程序，单击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题执行下面程序，单击Comｍａnｄ１,则数组元素ａ(1,2）的数值是__＿_【1】_____,a(3,3)的数值是___＿【２】＿_＿_＿_，图片框中最后一行显示的是_＿_＿【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题执行下面程序,单击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０题执行下面程序，单击Coｍmaｎd1,则窗体上显示的第一行是【1】,第二行是【2】，第三行是【３】。OｐtioｎEｘpｌiciｔPｒｉvａteＳ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个"．"分隔的十进制数表达的IP地址转换为由3２位二进制数组成＇的ＩP地址。例如十进制表达的ＩＰ地址为２０2.119.1９1．1，其中每个十进制数相应一个8位＇的二进制数,合起来构成一个３2位二进制的ＩP地址00００000１。'过程Tiqu用于提取十进制ＩP地址中每个用"."分隔的十进制数;＇过程Ｃoｎｖert用于将十进制数转换为相应的8位二进制数。程序界面参见下图。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ａteFunctioｎ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ｎ第２题＇下面程序的功能是:记录存放在数组A中的N个数有多少个是不同的。'具体做法是：变量Ｌeｆt指向要被解决的数（从第２个元素开始),＇Ｒight指向数组最后一个元素。若A（Ｌｅfｔ)与排在它前面的某个数组元素值相同,'就用数组元素A（Riｇht)的值来替换A(Lefｔ)的值,同时将变量Rigｈt的值减1;'否则将变量Left的值加１，解决数组下一个元素，反复以上过程,直到Left>Rｉｇｈｔ为止。'Ｒighｔ的值即为不同的数的个数。程序界面参见下图所示。ＯpｔionEｘplicitOpｔioｎBａse1PrivateSｕbComｍand1_Ｃlick()DimA()AsＩｎtｅgeｒ,ＮＡsInteger，IＡsInｔｅｇerDｉｍＯPＡsIｎtｅgｅrN＝InｐutBox（"请输入数据个数",,1０）RｅDimA(N)RandomizｅForI=1ToＮA（I)＝Ｉnｔ(Rnｄ＊１０)+1Text1=Text１&A(I)&""NextICallｓtaｔｉｓｔiｃ（A，OＰ)Text2="有"&ＯP&"个不同的数:＂Ｆ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的诸素数组成的数据。程序界面如下图所示。OpｔｉonExplｉcitPriｖateSｕbＣomｍａｎd1_Clicｋ()Dimp()AsIntegｅｒ,iAsInｔegｅr，ｎAsIntegeｒDimsｔＡｓStrｉｎg,kAsIｎtegerRａndomizek=InputBox("元素个数；＂,,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ａteSubCommanｄ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题'下面程序的功能是：一方面生成一个由小到大已排好序的整数数组，再输入一个数据，'单击＂插入"按钮会自动把这个数据插人到原数组适当的位置，并保持数组的有序性。'程序界面参见下图。ＯptionＥxｐliｃｉtDima()AsIｎtegerPｒivatｅSｕbＦorｍ＿Activａte(）'生成有序数组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ａteSubCｏ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）'数组元素移位并实现插入ＤimiAsIｎtegｅr'*＊********SPACＥ*＊********【?】Fori=UBouｎｄ(P)-1ＴoｋStｅｐ-1＇**＊***＊***ＳPＡCＥ**＊*******【?】NextiP（k)=nＥndSub第6题'下面程序的功能是：将输入的2位16进制数的每一位转换为一个４位的二进制数，'再组合成为一个8位的二进制数。程序界面参见下图。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)的值.当级数通项的绝对值小与ｅps=10^-7时停止＇计算,x的值由键盘输入．'请完善如下程序OｐtionEｘｐlicitPrivａteSubFｏ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(suｍ,"０．0０0＂)ＥnｄＳuｂ第8题'下面程序的功能是：在文本框１中输入若干以空格分隔的整数(末尾无空格),'程序自动将输入的数据分解并存储到一个一维数组，'再把数组中所有反复的元素删除(只保存一个)，并输出到文本框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题＇下面程序的功能是将给定整数N表达成若干个质数因子相乘的形式（分解质因数）．'程序界面参见下图。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ａteSuｂ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中，'其数据行格式是:学号为６个字符长度、２个空格、选择题的答案为15个字符长度。'程序根据标准答案进行批改，每答对一题给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位的整数（n≤10）,求出由这n个数字组成的n位的＇最小整数和最大整数。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ａteSubＣ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３题'在计算机中用一个字节(8位)来存储一个字符的AＳＣＩI码,'其中低7位二进制数相应字符的编码,每个字节的最高位一般保持为"0＂，'在数据传输时可用作奇偶校验位。传输时ＡＳCIＩ代码转换成传输码的方法是,'若7位ＡSCII码有偶数个１,则最高位为1。有奇数个１，则最高位为0。＇例如字母"A"的AＳCII码十进制表达为6５,二进制表达为010０0001。'＂A"的传输码则为＂110000０１"。本程序的功能就是把ASＣII代码转换成这种传输码。＇程序参考界面如下图所示。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题'下面程序的功能是：找出仅由数字1、2、３、４组成的4位素数,规定每个素数由4个不'同数字组成。算法提醒：函数Validａte用于验证一个4位数是否由4个不同数字组成。'在函数中用A数组的各个元素分别相应数字0~9，只要某数字出现在四位数中，无论几次,'均将该数字相应的数组元素值置为１。程序界面参见下图。ＯptｉonEｘplｉcitＰrivａteSubCｏmmand1＿Clｉｃｋ()ＤiｍiAｓInｔegｅr,FlgAsBooleanFｏri=１２３4Tｏ４321'＊*********SPＡCE＊＊********【?】ＣallPrime(i,Fｌｇ)IfＦlgTheｎIｆＶ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ｅＦunctｉonValidａte(nAsIntｅger)AsBooleanＤｉｍA(0To9)ＡsInteｇer,sAｓStrｉng,iAｓInｔegerDｉms１AsＳtrｉnｇ*1'*＊＊*******SＰACE*＊********【?】Forｉ=１ToＬeｎ（s)