单考单招VB模拟试题及答案

--20１５年VＢ操作题第一套试题一:(30分）用VB编制一个程序,初始界面如图)。程序运行时可通过复选框对文本字形进行设置，效果如图1,文本框显示程序运行输入的文本（文本框有垂直滚动条2，只有当文本框“结束”按钮才有效,单击“结束”按钮结束程序运行。,文本为红色内容非空时图１图2操作要求：1.(４分）创建一个标准ＥXE工程,将其窗体文件和工程文件分别以test1.frm、tｅｓt1．ｖｂp为文件名保存到考生文件夹下。２.(12分)参照图1和图２完成界面设计:按表添加相关对象并设置相关的属性：表1（每个属性1分,共１2分)对象名属性属性值对象名属性属性值Fm1caｐtion字体效果Ｌabel1ｎａmelab1Label1ｃaption请您留下宝Tｅｘt1nametxt1贵意见Teｘt1mulｔilinｅtruｅTeｘｔ1scrollbａ2rsTｅｘt１ｆｏrecolｏ&H0000０Chｅck1capｔion加粗r0FF&Comｍａｎd1namecｍd１Cheｃk２cａption斜体Commａｎｄ1captｉon结束Ｃommａenabｌeｄｆａlsｅｎd13.（1)（4分)编写适当的事件（2分):只有当文本框内容非空时“结束”按钮才有效。（不用能VＢ函数）（代码2分)(2）（４分)单击“加粗”复选框时（要求不能用IＦ语句来实现)（事件2分,一条(3）(４）单击“斜体”复选框时，文本框中的文字显示斜体效果，否则取消。（要求不能用IF语句来实现)(事件2分，一条代码2分),文本框中的文字显示加粗效果;否则取消；代码2分）4.(2分）保存窗体文件和工程文件,生成可执行文件teｓｔ１.ｅxe保存到试题目录下的“试题一”文件夹。PrｉvateＳubCｈecｋ１_Ｃlｉck()txt１.FｏnｔＢｏlｄ=Nottxt１.ＦｏnｔBoldEndＳuｂ----Priｖaｔｅtxt1.FｏntItalｉc=Ｎottxｔ1.FｏntＩtalｉｃEnｄSubPｒiｖａteＳuｂCommａnd１＿ＣSｕbChｅcｋ２＿Cｌick（)lｉcｋ()EndEndSub＇答案两种:'方法一:'PｒｉvateSｕbＴxｔ1_Change()'IfTｘt1．Teｘt=""Thｅn'ｃmd1．Enａbled=Faｌse＇Elｓe'cmd1.Enabled=Trｕe＇EnｄIf'EｎdSub'方法二PrｉｖateSuｂＴxｔ1_Ｃhａngｅ()Iftxｔ1.Tｅxt<>""Thencｍｄ１.Eｎabled=TrueEｌsecｍd1.Ｅｎａbled=ＦａlseEｎdIfＥndSｕbPrｉｖaｔeSuｂcｍｄ１_Cｌick()EｎdEnｄSub试题二（25分）1.（13分)有一个VＢ程序3和图4:如果身高与体重之差大于等于0,则表示“你太胖了！”;如果身高与体重之差在100――１示“你的身材真好!”,其功能是:根据身高和体重判断胖瘦，程序运行界面如图1１0，则表示“你太瘦了！”；如果身高与体10之间,则表所示。胖瘦条件重之差小于等于１０图1图2----打开某路径下的工程文件test2－1.vbｐ,完成下列操作：（１）（3分）当用户在文本框(事件1分，一句代码)完成相应注释1和注释２处的修改,实现根据身高和体重判断胖瘦的功能并显示“退出”按钮注释2分），4处添加一(2分)。（每格2分,共4分)(3)（2分)保存窗体文件和工程文件,生成可执行文件1输入身高时，命令按钮2分)cｏｍｍanｄ１有效，添加适当的事件和代码实现此功能。(２）(８分３处添加一条代码（同时“计算”按钮无效注释条代码ｔesｔ２-1．exｅ保存到试题目录下的“试题一”文件夹。ＰrivaｔeSubCommａｎｄ1_Click()DimｈAsSinglｅ,wAsSiｎgle,xＡｓSｉｎｇleh=Vaｌ(Text1.Teｘt)w=Vａl(Ｔexｔ２．Text)ｘ=ｈ-wＩfx>=110ThenLabel4.Cａpｔｉon＝"你太瘦了!"ElsｅIfx>100TｈｅnLaｂel４.Cａpｔiｏn＝"你的身材真好!＂ElseＬabel4.Ｃapｔion="你太胖了！＂EndＩfCommａnd２．Viｓiblｅ＝TrｕeCommaｎd1．Enabled＝FａlseＥndSubPrivaｔeＳuｂComｍand2_Click()EndEndSubPriｖatｅSuｂＴｅxt1＿Ｃhanｇｅ（）Cｏｍmａnd1.Enablｅd=TrｕｅEndSub２.(12分）填空完成ＶB程序，其功能是求某一天是这一年的第几天,界面设计和程序运行效果如图5所示。图5打开某路径下的工程文件ｔest2-２.ｖbp，完成下列操作(１）10分）输入某一天(年、月、)完成注释(１)(2）(3)(4)（5）填空实施此功能。（每空2分,共10分）:日)，单击“开始”按钮，计算这一天在本年中的天数(第几天（2）(２分）保存窗体文件和工程文件，生成可执行文件tｅｓt2-2.ｅxe保存到试题目录下的“试题二”文件夹。----OpｔioｎBase1ＰｒivateSｕbCommａnd1_Ｃlicｋ()Dimａ,T％,y%a=Array(3１，2８,31,30,31,30,31，３1，30，31,３0,31)y=Val(Ｔext１.Tｅxt)ＩｆｙMod400=0Or(ｙMoｄ４＝0AndyMod100<>0)Tｈena(2)=２9EｎdIfn=Vａl(Cｏmbo1．Teｘt)Fori=1Ton-1Ｔ＝T+ａ(i)ＮｅxtiTｅxt2.TｅｘEnｄSubt＝T+Vａl（Liｓt1.Text)PrｉvateSuｂCｏｍmand２_Clｉck()EndEｎdＳubPrivａteSubＦｏrm_Loaｄ()Ｆori=１Tｏ３１Liｓt1．AｄｄItemiＮextiＦori=1To12Combo1.AddIteｍｉNexｔiEｎdSub试题三、（2０分)修改考生文件夹下的VB程序使其具有下列功能:在明文文本框中输入一串字串，在密文文本框中输出密文,加密规则:若字符为字母，将每个字母向后移1、3、5,结果仍是字母，其它字符保持不变。界面设计和运行效果如图4和图5所示。----打开“试题三”文件夹中的工程文件test3.ｖｂp,并完成下列操作:1.（3分)单击单选按钮的控件数组中任一个单选按钮，决定移动位数N，添加适当的事件和代码实现此功能（注:变量N设置通用变量）2.(15分)将３．txt文件复制到“加密”按钮的事件中，完成相应的（1)、（２)（3)填空及在注释１所在行添加一条代码，并修改“注释2”所在行的代码,让程序正确执行，删除所有注释。３.(2分）保存窗体文件和工程文件,生成可执行文件teｓt3.ｅｘｅ保存到试题目录下的“试题三”文件夹Ｄimn%PrivａteSubCｏmｍand1_Clicｋ（）Dimm％Dims$,x$m=Ｌeｎ(Text1.Teｘt)Fori=1Tomｘ=Mｉd$(Tｅｘt1．Tｅxt,i,1)Ｉfx＞="A"Aｎdx<＝"Z"Oｒx>="a"Anｄx<="z"Thenx=Ｃhr(Aｓc（x)+n)Ifx>＂z"Ｏrx>＂Z"Ａndｘ＜"a"Tｈenx=Ｃhr（Asc(x)-２6)EndＩfＥnｄIｆs=s+xNｅｘｔｉText2.Tｅxt=sEｎdSｕbＰrｉvａteSubOption1_Clｉcｋ(IndexAsIｎtｅger）ｎ=Optｉｏn1(Ｉndex).CａpｔionEndSｕb2０15年VB操作题第二套试题一（30分）设计一个模拟中奖号码的ＶB程序。界面设计和运行效果如图1和图2所示----图1图２,将其窗体文件和工程文件分别以test1.ｆｒm、test1．vbp1．(4分)创建一个标准EXE工程为文件名保存到试题一的文件夹下。2.（1４分）参照图１和图2完成界面设计:按表添加相关对象并设置相关的属性：(每个属性设置１分)表1对象名Form1属性属性值对象名属性属性值capｔion随机抽数Label1caｐｔion福利彩票抽奖程序Labeｌ1fontnaｍ幼圆Label１foｎtsｉze29eＬabｅl1foreｃ＆Ｈ０００Fｒａme１cａpｔion中奖号码oloｒ000FF&Ｔext1（0)-ｔexfoｎｔ24(修改)Frａmｅ1ｔ1（7)Command１cａpｔ开始＆STｅxt１（０)-tbaｃkcolor&H00Ｃｅxt1（7)nameFr1sizｅion0C0FF&Ｔimer1EnablｅfalｓeＣommand2cａptｉon停止＆XｄTｉｍeｒ１iｎｔ10０Coｍmaｎd2Eｎａbｌefalseervalｄ3.操作要求：（1)(2分）将1.txt文件复制到适当的事件（2分）中。(2）（4分)完成“开始”按钮的代码,功能具有定时器开始工作,命令按钮commanｄ1无效，命令按钮commａnd2有效。(３)(４分)完成“停止”按钮的代码，功能具有定时器停止工作,命令按钮commanｄ１有效,命令按钮commａｎd2无效。４．（2分)保存窗体文件和工程文件，生成可执行文件test1．exe保存到试题目录下的“试题一”文件夹。PrivatｅSubCommａnｄ１_Ｃｌｉck（）Tiｍeｒ1.Enabｌeｄ=TrｕeＣoｍmａnｄ1.Ｅnaｂled=ＦａlｓeComｍand2.Eｎablｅｄ=Trｕe----EndSubPrivateSｕbCoｍmaｎｄ2_Cｌick(）Ｔimeｒ1．Ｅｎａblｅd＝FａlseCｏmmanｄ１.Enabｌed=TｒｕｅComｍand2.Ｅｎabｌｅd＝ＦａlseEｎdSubＰｒｉvateＳuｂTｉmeｒ1＿Timｅr（）RanｄｏmizeFori=0To7Text1(i)．Texｔ=Int(１０*Rｎd)'答案也可以是Ｔeｘt1(ｉ).Ｔｅxt=Iｎｔ(Ｒnd*１0)NextiEndＳub试题二(２5分)1．(1２分）下列VＢ程序段实现如下功能：加载窗体后（从键盘上输入项数N)如图3所示，输出Ｓ的计算结果。请根据要求,将程序补充完整。S的值用消息框显示操作要求：(1)（10分)打开工程文件ｔest2-1．vｂp,将2.txｔ文件复制到窗体加载事件中,完成(1)、（2)、（4）的填空及注释１的(３）代码;让程序正确运行。用消息框显示结果如图2分，共8分)(2分）3所示：（每空图3（2)（2分)保存窗体文件和工程文件,生成可执行文件test2-1.ｅｘe保存到试题目录下的”文件夹。PｒｉvａtｅSubForｍ＿Load（)ＤimsAsSｉngle,N%,F%,t！s=0：F＝=Val(ＩｎｐutBox("请输入项数Forｉ=1ＴoＮ'2分t=（－1）^(i＋１)/ｉ^2'或1/(i＊Ｉs=ｓ＋“试题二1Ｎ"）)'２分)'2分tNextｉMsgBoｘ"s＝"＆s,,＂结果EndSｕb２.(13分）数列１,1,3,5,9，,1５个数的和加1。在考生文件夹中－2.ｆrｍ)。窗体Fｏｒm1中己经给出了所有控件。编写适当的亊件过程实现以下功能：在1中输入整数(例如３0),单击“计算”按钮，则在Txt２中显示该数列第３0项的值，４所示"'2分,2５,41…的规律是从第３个数开始,每个数是tｅｓt２－2.vbp(相应的窗体文件为tesｔ２它前面两有一个工程文件Ｔｘｔ如图----图4操作要求：(1)（11分）打开工程文件test2-2．ｖｂp，将２-2.txt文件复制适事件中(１分），把程序中的问号（１)（2)(3)（4）(5)改为正确的内容，使其实现上述功能,但不得修改程序的其他部分,也不得修改控件的其他属性。(2)(2分）保存窗体文件和工程文件,生成可执行文件teｓt2-2．eｘe保存到试题目录下的“试题二”文件夹。ＰrivateＳuｂCommaｎｄ1＿Click()Diｍn%，t＆,a＆,b&n=Vａl(ｔxt1．Text)a=1：b＝１'表示第一项和第二项Fori=(1)Tont=a+b＋１＇t表示每一项的值a=bb=tＮexｔiｌab1.Caｐtiｏｎ="第"&ｎ&"项的值"tｘt2.Ｔeｘt=tEnｄSub试题三(20分)编写模拟比赛评分的程序，功能为:单击窗体，由键盘输入1０位评委的打分，图44所示。并在窗体中显示,当输入完第１示“去掉一个最高分：“和“去掉一个最低分:”及”最后得分:”的文字及数字。其中最后得分的计算公式为：去掉一个最分,去掉一个最低分后的8位评委的平均分(保留小数点一位)。效果为图5所示。输入时用动态提示如图0位评委的打分后,在窗体显----图5(2分)打开工程文件ｔest2.vbp，将3.txｔ文件复制到适当的事件；２.（1６分)根据题意完善（１)(3)(６）（７)（８)的填空;根据注释1、注释２、注释,删除所有注释。(考试素材处已修改(2分)保存窗体文件和工程文件，生成可执行文件test3．ｅｘe保存到试题目录下的三”文件夹。１．3的分别添加表达式、修改和一条代码；让程序正确执行)3.“试题PrｉvａteSubForm_Ｃlicｋ（)DiｍkAsSｉngle,i%,sAｓSiｎgｌeＤｉmｍaxAsSingle,ｍinＡsSinｇlｅｋ=Vａｌ(InputBｏx（"请输入第1位评委打分＂)）Prinｔ＂评委打分maｘ＝k:ｍiｎ=k:s＝kＦｏri=２To１０k=Ｖal(InputBoｘ("请输入第"&i＆"评委打分:＂；k;"))Printk;Ｉfmaｘ＜＝kThｅnmａｘ=ｋIfmin>＝ｋThenmin=ks＝ｓ+kＮextiPｒintＰrint"去掉一个最高分:";maxPｒint＂去掉一个最低分:";minＰｒiｎｔ＂最后得分＂;Int((s-max－mｉｎ)/8*１0+0.5)/10EndSｕb2０1５年VB套试题一(30分）1.(14分）在名为Formｌ的窗体上绘制一个名为Ｔｘt1的文本框控件和一个名为Tmr１的计时器控件,程序运行后，文本框中居中18号显示的是当前的时间．而且文本框中所显示的时间会随时间的变化而改变,程序运行效果图１所示:图1（1）(4分)创建一个标准ＥXE工程，将ｓt１-1.ｖbp为文件名保存到试题一的文件(2）(6）)参照图１完成界面设计：按表添加相关对象并设置相关的属性:(每个属性设置1其窗体文件和工程文件分别以test1－1.frm、ｔe夹下。----分）表1对象名属性属性值Fｏrm1nameme对象名属性属性值Ｔext1Aligｎmen2ｔTeｘｔ１ｎamｅｔxt1Teｘt1fonｔsｉz18ｅTimｅr1naｍetｍｒ1Ｔimer１inｔｅ1000rval(3)(４分）编写适当事件（2分）,使文本框中所显示的时间会随时间的变化而改变（2分))注意：程序中不得使用任何变量:文件必须存放在考生文件夹中,窗体文件名为tｅｓt1-１.frm，工程文件名为tｅst１-1.vbp。PriｖatｅＳｕｂｔmr１_Timer(）txt１.Ｔeｘt=TiｍeEndSub2.(１6分)在窗体上绘制两个名称分别为Lａb１和Lab２的标签，它们的标题分别为“请输入一个正整数N”和“1+2+3+-+N=”；绘制两个名称分别为Ｔxt1和Txt2的文本框，它们的内容都设为空白：绘制一个名为Cmdl的命令按钮,其标题为“计算”。编写适当运行时.在Txtl中输入一个正整数N,单击“计算”按钮,计箅出1+2+３+…+N的和显示在Txt２中。程序运行结果如图2所示。的程序,使程序图2（1）（4分）创建一个标准EＸ工Ｅ程，将其窗体文件和工程文件分别以teｓｔ1－2.frｍ、tｅst1-2.ｖbp为文件名保存到试题一的文件夹下。(2)(８))参照图2完成界面设计：按表添加相关对象并设置相关的属性:（每个属性设置1分）表1对象名属性属性值Teｘt１naｍｅtｘt1Label1nａｍelａｂ1对象名属性属性值Ｔext2naｍetxt2Lａbｅl2ｎａｍelaｂ２Lａbel1ｃaptｉ请输入一个正整数NLabｅl2cａptioｎ1+2+3++N=onCｏmｍnameand１ｃｍd1Coｍmaｎd1capｔｉon计算(３)(4分)编写适当事件（2分），使程序按钮，计箅出1+2+３+…+N的和显示在Txt２中。（:文件必须存放在考生文件夹试题一中,窗体文件名为1-2.ｖbp。运行时.在Txtｌ中输入一个正整数N,单击“计算”要求用ＦOR语句结构)注意：程序中不得使用任何变量test1-2.frm，工程文件名为tesｔPriｖateSｕｂcmｄ1_Ｃlｉｃk()Fｏri=１ToVal(txt1．Ｔext)．Ｔext=Val(txt2.Text）+iNｅｘtｉtxt２----EndＳub试题二(25分)1.（13分）有一个ＶB程序其功能：实施字幕滚动。界面设计和运行效果如图3和图4所示图3图4操作要求:（１)（４分)添加适当事件,定时器间隔时间（inｔｅrvａl)由滚动条事件决定,当拖动滚动块;（事件2分，一条代码２分）)（4)单击“开始”按钮，定时器工作且“停止”按钮显示，单击器不工作,且“停止”按钮隐藏。（每一句代码1分,共4分）（3）(５分)定时器事件是将标签1每隔一定时间始终从左向右以每200缇移动文件复制到相应的事件（1分）完成(1)（2）填空（每格2分，共４分）（4)（2分)保存窗体文件和工程文件，生成可执行est2-1.ｅxe保存到试题目录下的”文件。夹时来改变字符滚动速度（２“停止”按钮，定时;将2－1．txt文件ｔ“试题二PriｖateSｕbcommand1＿Clｉck（)Timｅr1．Eｎabled=Tｒｕeｃｏmmａnd2.Ｖｉsiblｅ=TruｅEnｄSubPrｉvａｔeＳｕbcomｍaｎd2＿Ｃlick()Tｉｍｅr１.Eｎａblｅnd2.Visibｌe＝FａEnｄＳubd＝FalsecommａlsｅPrivateＳｕbHScrｏlｌ１＿Chaｎge(）Tｉｍer1.Ｉnｔerval=HＳｃroｌｌ1.ValuｅEndSubPｒiｖatｅSubTiｍｅr1_Tiｍer（)ＩｆLaｂel1．Lｅft<=Form1．WiｄthTheｎLaｂeｌ１．Lｅfｔ=Ｌabel1.Lｅｆt+20０ElseLａbｅｌ1.Lｅft=-Lａbeｌ1.WidｔhＥndIfEndＳub２．(12分)有一个VB程序功能是：找出此号码，有一张单据上有一个五位数的号码６7＊*８，其中百位和十位上的数字看不清了，但知道该数能被78整除，也能被６7整除,求出该号码。运行结果图５所示。----图５打开某路径下试题二文件夹下工程文件teｓt２-2.vbp,完成下列操作1）（2）(3）(4）(5）的代码,(考试素材已修改）和工程文件,生成可执行文件tｅsｔ2-２．exe保存到试题”文件夹。:(1）（10分）完善“填数字”事件（3．(2分）保存窗体文件的“试题二目录下PrivateＳuｂCommaｎd1_Ｃlick()Dｉmｘ%,y%，a&Foｒｘ=0To9Fｏｒy=0Tｏ９a=670０8+x*１00＋y*10'或答案也可以１0０*x+１0*ｙIfaMod７8=0ＡndaＭｏd６7=0TheｎＬａbel3．Capｔiｏｎ=xLａｂel4．Ｃaptioｎ＝yEｎdIfＮextｙNextxEｎｄSｕb试题三（２用ＶB设计一个成绩统计程序。程序运行后，先后出现如下图4和图5的对话框,最后运行效果如图５所示。(参考答案已修改好)0分）----图５图4１.（4分)当窗体启动时(２分,如图4所示，再输入各学生分数,如图5所示；将3.txt文件复制到相应的事件中；完成（(每格２空,共4分)，调试程序,让程序正确执行。2.（8分)单击“统计”按钮,统计注释１、2、3、4填空，其中在注释3处添加一条代码。３.(6分）单击由高到低的排序,要求每行显示;完成(5)（6)填空，在注释5处添加一条代码（2分）。4.(2分)保存窗体文件和工程文件,生成可执行文件ｔｅsｔ3.exe保存到试)，要求先输入需要统计的学生人数,输入时要有文字提示1)填空的代码出合格人数、不合格人数及平均分(保留１位小数）;完成4个,如图题目录下的“试相应的“排序”按钮，在窗体上显示分数5所示题三”文件夹。Dima()ＡsSiｎgle,n%PrivatｅＳubＣomｍand1_Clｉｃk()Dims!,avg!,ｋ%Foｒi＝1Tｏnｓ=s＋a(i)Ifa（ｉ)>=6０Ｔhenk=k＋1NeｘｔiTｅxｔ1．Texｔ＝kTeｘt2.Teｘt=n-kＴeｘt3.Text=Ｉnt(s/n＊10+0.５)/１0EndSubＰｒivateSubCommand２_Cｌick(）Foｒi＝1Ton-１Ｆorj＝1Ton-iIｆａ(j)＜a(j+１)Thｅｎt=a（j):a（j)=a（j+1):a（j+1)=tＥｎdIfNexｔjNｅxtiＰriｎｔ"成绩排序:"----FｏrｉPrinta(i),ＩfiＭoｄ４＝０Ｔｈｅ=１ToｎnＰrintNextiEｎｄSubＰriｖateSubCommanｄ3＿Click()ＥｎｄＥndSubPrivateＳubForm_Ｌoaｄ(）n=Vａl(InputBｏx("请输入学生人数:","工程１"))RｅＤiｍａ(n）Foｒi=1Tona(ｉ)＝Ｖal(IｎpuｔＢox("请输入第"&i&"位学生成绩：＂,＂工程1")）NｅxtｉEndＳuｂ2015年VB操作题第四套试题一(３0分）设计一个VＢ程序其功能:实施字体设置。界面设计和运行效果如图1和图2所示图1图21．（4分）创建一个标准EXＥ工程,将其窗体文件和工程文件分别以ｔｅst1.fｒm、tｅst1.vbp为文件名保存到试题一的文件夹下。２.(14分)参照图1和图2完成界面设计:按表添加相关对象并设置相关的属性：(每个属性设置１分)表1对象名属性属性值对象名属性属性值Form1caption字体设置Teｘｔ1ｔexｔＶB程序设计Fraｍe1caｐ颜色tionHSｃｒoll１min１0Lａｂeｌ2ｃaptｉ大小oｎHScrｏll1maｘ３0Lａbel1caｐ字体Commaｎd１captiｏｎ闭关窗口----tionOpｔcaｐ红色Oｐtioｎ１bａｃkco&H0０ion1(0）tionOｐtioｎ１caｐtｉ绿色Opｔiｏ(１)ｏnＯpｔｉｏcapｔio蓝色Opｔioｎｂaｃｋ&H０0FＦ0000＆ｎ1(2)ｎ3．(1)(2分）窗体加载后000０ＦF&(0)ｌｏｒn１baｃ&H00０0FＦ0０&(1）kcolor1(2)colｏｒ,在组合框中添加字体：黑体、隶书、幼圆,添加适当的事件实现此功能。(添加内容1分,事件1分)(2)(2分）对ｏｐtｉon1控件数组添加代码,要求单击相应的颜色后文本框里的文字颜色发生相应变化。(程序中不得使用任何变量，用动态属性语句格式来编写）（3）(4分)对comｂo1添加适当的事件要求选择字体后，文本框中的文字的字体发生相应的变化。（４）(2分)对ｈsｃrｏｌl1添加代码，要求点击滚动条默认事件后,文本框中的文字大小发生相应的变化。４．(２分)保存窗体文件和工程文件，生成可执行文件teｓt1.exe保存到试题目录下的“试题一”文件夹。PrivateSubＣｏmｂo1＿Clicｋ()Teｘt1.FｏntNａme=Coｍbo1．TｅxｔＥnｄSｕbPｒｉEｎｄEndＳｕvatｅSubCoｍmaｎd1_Clicｋ(）bPrｉvaｔｅＳｕｂＦorm＿Ｌoaｄ()Comｂo1.AddItem"黑体Coｍｂo1.ＡdｄＩtem"隶书Ｃombo１.AddIteｍ"幼圆EnｄSｕｂ"""PｒｉvａteSuｂHScrolｌ１_Chａnｇe（)Text1.ＦontSize=HSｃrｏll1.ＶalueＥndSｕｂPrivateSｕbOptｉoｎ1_Cｌick(InｄexAsIｎｔeger)Ｔext１.ＦoreＣoloｒ＝Opｔion1(Indｅx）．BaｃkColorEｎdSub试题二(2５分)用VB编制一个程序，初始界面如图3所示。当用户从键盘输入任意字符到文本框后,单击“统计”按钮，则对其中的字母、数字进行分类统计,并将统计结果分别显示在2个相应的----图3图4标签（label4、ｌａbel5）中,如图4所示；单击“退出”按钮,则关闭窗口退出程序。(注：不能用大小写函数）1.(5分）打开工程文件teｓｔ2.vbp，修改相应的属性，完成如图3界面;2.(1８分)(1)将文本文件2.txt复制到适当的事件中(4分)，根据题意完成(1)的填空及注释1处(2）、注释２处(3)的填空,修改注释3处代码中的条件。(填空及修改各３分，共12分)(２）（2分)单击“退出”按钮，程序结束。3．(2分)保存窗体文件和工程文件,生成可执行文件test2．ｅxe保存到试题目录下的“试题二”文件夹。PrivatｅSubＣommand1＿Cliｃk()Dimx$，N%,ｐ％，k％N＝Leｎ（Text1.Text)Fori=1ＴoNx=Miｄ(Tｅxt1.Teｘt,i，1)Ifx>="Ａ＂Andｘ<＝"Z"Orx>＝"a"Ａnｄｘ<="z"Thenk＝ｋ+１ElｓeＩfｘ>＝"0＂Andｘ<="９"Ｔheｎｐ＝p+１ＥnｄIfNextiLａbel4.Ｃａpｔion＝kLaｂel5．Cａptｉon＝pEｎdSｕbPｒiｖateSuｂCommaｎd2＿Ｃｌicｋ()ＥndEndSub试题三(２0分)用VB语言编写一个程序其功能：产生30个[]300,500］的随机整数,找其中的素数并将素数进行排序。程序运行界面图3、图４、图5、图6所示,窗体上有三个文本框（从上到下依次为text１、teｘｔ2和texｔ3,三个文本框均允许自动换行),三个命令按钮（从上到下依次为command1、commａnｄ２和comｍａnd3）并cｏmmand2和command3无效。----图5图６图７图81.（6分)打开工程文件test３．vｂp,将文本文件2.ｔxt中选择符合条件的代码（2分）复制30个300－500之间的整数,显示在texｔ1中,数与数之间用空格隔开。并要求在显示前三个文本框清空，实现图6界面的效到适当的事件（2分）中,实施随机产生果（２分）。２.（6分）单击根据题意完成(1)(2）(3）的“排序”按钮,用选择法将找出的素数按从大到小的顺序排序,显示在text３中，数与数之间用空格隔开。（完成注释(4）（5)(6）处填空8所示。4．（２分）和工程文件,生成可执行文件ｔ”文件夹。“素数“按钮，找出这30个数中的素数并显示在tｅxt2中，数与数之间用空格隔开。填空。效果图7所示。3.（6分)单击、修改与添加一条代码）效果图保存窗体文件esｔ3.exｅ保存到试题目录下的“试题三Ｄｉma%(1Tｏ3０),b％(1To３0),n%ＰrivateSubCｏｍmand1_Cliｃｋ()Dｉｍi％RandomizｅText１.Ｔext=""Teｘｔ2.Teｘt="＂Teｘt3.Texｔ＝""Commａnd2.Eｎablｅd＝TrueFoｒｉ=1Ｔo３0a（i)=Int(201*Ｒｎd）+300Ｔeｘｔ１．Ｔext=Tｅxｔ１．Ｔeｘt&a(i)&""Nｅｘti----Command１.Enablｅd=FaｌｓeEnｄＳuｂPｒiｖaｔeSuｂComｍand2_Cliｃk()Command3.Eｎableｄ=TruｅDiｍf%Ｆｏri=１To30f=０Ｆorj＝２Toa(i）－Ifa(ｉ)Moｄｊ=０Ｔheｎf＝1:ExｉｔForEndIfNeｘｔ1jIff＝０Thenn=n＋１b(n）＝a(ｉ）ＥndIｆNextｉFｏrｉ=1TonText２．Teｘt=Text2.Tｅｘt&b(i)&""NextｉCommand2．Enaｂled＝FａlseＥndＳuｂPｒivateSubCommand３_Click()Ｄimｔ%,p%Ｆori＝p＝ｉForj=ｉ+1Ｔｏｎb(ｐ）<b(j)Then=jEｎdIfNexｔIfp<＞iTｈen1Ton－1Ｉｆｐjt=ｂ(p）：b(p）=ｂ(i):b（i)=tＥndＩfNexｔｉFori=１TonText3．Ｔext=Tｅxｔ3．Text&b（i)&＂"NextｉCｏｍmand1.Ｅnabｌeｄ=TrｕeCommand3.Enabled=ＦａlseEndSｕb2015年ＶB操作题第五套--

--试题一:（３0分）1.(18分)编写一个程序，输入货物的数量及单价,求总价并输出。窗体标题设置为“模拟售货机”，窗体form1上的两个标签(分别命名为Lab1和Lａb2，标题为“货物的数量（个)：”和“货物的单价（元)：”）两个名称分别为Txｔ１和Ｔxt2的文本框；一个名称为Cmd1的命令按钮，其标题为“总价”。结果用消息框显示如图2所示。当用户输入货物的数量与单价后,用户单击“总价”按钮或按回车键，输出正确的结果，程序运行效果如图1所示。（要求：程序中不得使用变量,事件过程中只能写一条语句。）图1图２操作要求:(1）(4分)创建一个标准ＥXE工程，将其窗体文件和工程文件分别以tesｔ1-1．frm、test１－1．ｖbp为文件名保存到试题一的文件夹下。（2）（１0分)参照图1完成界面设计：按表添加相关对象并设置相的关属性:（每个属性设置1分)表1对象名属性属性值对象名属性属性值Fｏrｍ1ｃaｐtion模拟售货机标签１标签1naｍelaｂ1namelab２caption货物的数量(个）标签２标签2ｃａsｐt货物的单价（元)文本框１ｉonnamｅtxｔ1文本框2nametxt2命令按钮命令按钮ｎamedefａulｔcmd1true命令按钮cａpｔｉ总价on（３)（4分）编写适当的事件,当用户输入货物的数量及单价，用消息框输出结果。(说明:程序中不得使用变量，事件过程中只能写一条语句。)PｒｉｖａteSubｃmd1_Cｌicｋ()MsｇBox"总价为"&Val(txt１.Text)*Val（ｔxt2．Ｔeｘｔ)，,"结果＂EｎdSｕｂ2．（12分)在名称为Forｍl的窗体上画个列表框,其名称为L1;一个水平滚动HS1,Smalｌchange属性为２。Ｌarｇｅcｈａngｅ属性为10。Min属性为１0，Maｘ属性为100，编写适应的事件过程。程序运行后，如果把滚动框移到某个位置,然后单击窗体,则在列表框中添加一个项其内容是“XX”，其中XX是滚动框所在的位置，如图２所示。条，其名称为----图2操作要求：(1）（2分）创建一个标准EXＥ工程，将其窗体文件和工程文件分别以tｅｓｔ1-2.ｆrm、ｔest1-2.vbp为文件名保存到试题一的文件夹下。（2）（6分)参照图1完成界面设计:按表添加相关对象并设置相关的属性：(每个属性设置1分)表1对象名属性属性值对象名属性属性值ｈs１ｎameｌ1水平滚动条name列表框Sｍａllchａnｇｅ2水平滚动条Largｅ1０水平滚动条change水平滚动条ｍax1０0水平滚动条min10（3)(4分)根据题意编写适当的事件和代码,实现如图２效果。(说明:程序中不得使用变量,事件过程中只能写一条语句。）PriｖaｔｅSubＦｏrm_Cｌick（)ｌ1．AddＩtｅmｈs1．ＶaｌueEｎdＳub试题二（２５分)1.（15分）设计如图则显示在List１中,如果是负数显示在Lｉｓｔ２中。同时统计正数、负数的和，签中,图5所示。要求输入框在输入时，能动态提示当前输入的是第几个数，如图5所示。完成命令按钮相关的代码。3、图４所示的程序，单击按钮,通过输入框输入数字，如果是正数，显示在相应的标图4图3----图5打开某路径下的工程文件ｔｅｓt2－1.ｖbp，完成下列操作:（1（）１２分）将2.txt文件复制到命令按钮的单击事件中（5)，让程序正确执行。(每填空2分，共10分。(２)(２分）保存窗体文件和工程文件,生成可执行文件tesｔ2－1.exe保存到试题目录下的二”文件夹。(3分），根据题意完成(1）（2）（３)(４)“试题ＰｒivａｔeＳubCoｍmand１_Ｃlｉck（)Ｄimｎ%,a!，ｓ1！,ｓ2!n=1a＝Vａｌ(ＩnputBoｘ("请输入第＂＆ｎ&"个数，输入０结束"）)DoWhilｅa<>0Ifa>0ThenLiｓt1.AdｄItemaｓ1=s1＋aEｌsｅLｉst２.AddItemas2=ｓ2＋aEndIfｎ=ｎ＋1a=Vａl(IｎpuｔBox("请输入第"&ｎ&"个数，输入0结束")）LooｐLabｅl3.Caｐtiｏｎ=ＬabｅＬabel4.Ｃapｔion=Laｂel4.Ｃaptｉoｎ&s2EｎdSubｌ3.Ｃapｔion&s12．１０分)在考生文件夹下有一个工程文件ｔｅst2-2.vbp，功能是用来计算勾股定理整数组合的个数。勾股定理中3个数的关系是:ａ2+b2=C2。例如,3、4,5就是一个满足条件的整数组合(注意:a，b，Ｃ分别为４，3，５与分别为3,4,5被视为同不应该重复计算)。编写程序，统计均在６0以内的三个数满足上述关系的并显示在标签Ｌaｂeｌｌ中。6所示一个组合，整数组合的个数，如图:图6注意：不得修改原有程序的控件属性。在结束程序运行之前，必须至少正确运行一次程序，将统计的结果显示在标签中，否则无成绩。最后把修改后的文件按原文件名存盘。----打开某路径下的工程文件ｔeｓt２-2.vbp,完成下列操作:(１)(８分）根据题意将代码窗口中的（1）(2）(３）（4）填空完成。（每格２分,共８分）（2)(2分)保存窗体文件和工程文件,生成可执行文件tesｔ2-2.exｅ保存到试题目录下的“试题二”文件夹。PｒivatｅSｕbComｍand1＿Click(）Dｉmi%,j%，k%,m％Ｆori=1To60Ｆｏrｊ=1Tｏ6０Foｒk=１To60Ｉfi^2＋j＾2＝ｋ^２Thenm＝m+１EndIfNｅｘtkNextjNextiLabel1.Caｐtiｏn=m/2EｎdSuｂ试题三(２0分）设计如图9、图10所示程6个0-9的数字，同时按钮标题变成“结束”，如图10所示。数字停止变化,按钮标题变成“开始”，同时排序按钮可用。单击“排序”按钮,把文标签中，如图10所示。序，初始排序按钮不可用。单击开始按钮，每隔０.2秒在6个文本框中随机产生单击结束按钮,文本框中本框中的数字从小到大排序，显示在相应的图9图1０打开某路径下的工程文件ｔｅst3．vbp,完成下列操作:１.（6分）单击开始按钮,每隔０.２秒在６个文钮标题变成“结束”，如图10所示。单击结束按钮,文本框中1)（2）(3)的填空。本框中数字停止变化,按钮标题变成“开随机产生6个0-9的数字，同时按始”。完成（2.（４分）完成定时器事件中(４)、（5）的填空3.(8分)完成排序事件中的（6)（７）、（８)、(9）的填空,生成可执行文件teｓt３.eｘｅ保存到试题目录下的；（每格2分,共４分)；（每格2分，共８分)4.（２分)保存窗体文件和工程文件“试题三”文件夹----Dima%(0Ｔo５)PriｖatｅSｕbCoｍmand1_Click（)IｆCoｍmaｎd1.Captiｏn＝"开始"ThｅnTimer１.Enableｄ＝TrueCommaｎd1.Cａｐtiｏn＝"结束"ElseTｉmer1．EnablｅｄCommａnd1．Caption="开始Command2.Enableｄ=TrueＥnｄIfEndSub=Faｌse"ＰｒｉvateＳubComｍand2_Click（)Fori=0Ｔo５a(i）=Val(Text１(ｉ)．Ｔeｘt)NextiFｏri=１Tｏ5Forｊ=0Ｔo５-iIfa(j)＞ａｔ=a(j)j)=a（j＋１）(ｊ＋１）Thenａ（a(ｊ+1）＝tEndIfＮｅxｔNｅｘｔｉFoｒi＝0To５s=s&ａ（ｉNｅｘｔj)iLabel1.Caption＝＂中奖号码为：＂&sEndSubＰｒivaｔeSｕbTimｅr1＿Timｅr（）Ｆoｒi=0To５Ｔext1(i).Text=Int（10*Rnd)Ｎexti20１５年ＶB操作题第六套试题一（３0分）设计一个VB程序，实施硬件各参数的选择显示在列表框中如下图２所示。--

--图１图２操作要求：１.(4分）创建一个标准ＥXE工程,将其窗体文件和工程文件分别以test１.frm、tｅsｔ1．vbp为文件名保存到试题一的文件夹中。2．(1２分）参照图1完成界面设计：按表添加相关对象并设置相关的属性:（每个属性设置1分）表１对象名Foｒm1Label１Combo１属性属性值对象名属性属性值空白captiｏn硬件配置Ｃombo1teｘtcapｔiｏn所选配置Forｍ1fontsizｅ小四styｌe1Fｒａme1capｔiｏn内存caｐtiｏn4GFｒame2capｔｉｏn其它设备Option1cａpｔioｎ8GCｈｅｃｋ２cａpｔiｏn显卡Oｐtｉon2Check１captiｏn声卡Chｅck3caption网卡3．(1)（2分)将1.txt文件内容(六种电脑品牌)添加到适当的事件中，实现窗体加载后显示结果如图2所示。（窗体加载时，组合框中已添加六个项目)(2)(12分)分别单击各控件的适当事件和代码,结果如图2所示。原(3)己删除4.（２分）保存窗体文件和工程文件，生成可执行文件tesｔ1.ｅxe保存到试题目录下的“试题一”文件夹。PrivateSubCheｃｋ1_Click()Ｌist１.ＡdｄItemCheck1.ＣａptｉｏｎEｎdSubPrｉvａteSubCheck2_Click(）Liｓt1．AddＩｔemCheck２.CapｔiｏnEndSｕbPrivatｅSｕｂCheck3_Click（)Lｉst1．ＡddＩtｅmＣheck3.CaｐtionEnｄＳuｂPriｖateSubCoｍbｏ１_Cｌicｋ（）Lisｔ1.AddItｅmＣoｍbｏ1.ＴeｘtEndSub----ＰriｖａCｏmbo１.AdｄAdｄＩtｅm"惠普"Combo1.AdｄＩteｍ"方正"Ｃoｍｂo１.AddIｔeｍComｂo1.AddItｅｍ"华硕"dItem"联想"teSubForm_Ｌoad()Iteｍ"苹果＂Cｏｍｂo１．"戴尔"Combo1．ＡｄEｎdSubＰrivaｔeSubＬiｓt1_Cｌicｋ()IfLisｔ１．LisｔIndex＞=0ThenList１．RｅmoveＩｔEnｄIfEndSubemList1.LｉstIndeｘPｒivateSuｂＯption1＿CliｃＬist１．AddIteｍＯptｉon1.CaptiｏnEnｄＳubk(）PrivateSuｂOption2_Click(）List1.AddItｅｍＯｐtiｏn2．CaptｉｏnEndＳｕb试题二:(2５分)１.(12分)用VB编制一个程序，初始界面如图框1（文本框多行显示）后,单击“统计”按钮，中.如图3所示。当用户从键盘输入任意字符到文本、空格、其他字符进类统计，并将统计结果分别显示在相应的文本框4所示;单击“退出”按钮,则关则对其中的字母、数字行分闭窗口退出程序。(此题不用大小写涵数）图３图4某路径下的试题二文件夹中工程文件tｅsｔ2-１.vbp,完成下列操作：（1)(１0分)将２.ｔｘt文件复命令按钮的适当事件中(2分),根据题意(1）（２)(3)（4）的填空,让程序正确执行。(每填空2分，共8分）（２)（2分)保存窗体文件和工程文件,生成可执行文件tｅst2-1．exｅ的“试题二”文件夹。制到完成保存到试题目录下PｒivateSubComｍａnｄ１_Clｉck()Dimn1%,n2%，ｎ３%,ｎ4%,m%,x$ｍ=Leｎ(Tｅxt1．Text)Fori=1Ｔｏmx=Ｍid(Text１.Text,i，1)Ifx＞＝"Ａ"Aｎdｘ<=＂Z"Orx＞="a"Aｎdx<="z＂Thenn1=n１+１ElsｅIｆx>="0"Andx<="９"Ｔhen----n2=n2+１ElｓeIfx=""Thenn3＝n3＋1Elsen4=n4+1EnｄIfNextｉTexｔ2.Ｔext＝ｎ1Tｅxt3.Ｔexｔ=n2Ｔeｘt4.Tｅｘt=ｎ3Ｔext５.Tｅxｔ=n4EndＳｕbＰｒivatｅSuｂＣommａnd2_Click()EndEndSub2.（新增加的）（１３分)修改VB程序,使其具有下列功能:单击“找素数”按钮（Ｃomｍand1）,在列表框(ｌiｓt１）中显示2－１0０之间所有的素数。设计界面和运行效果如图１、图2所示。图1图２打开考生文件夹下的工程文件”tｅｘt2－2．vｂp”,完成下列操作：(１)(３分）２分），将考生文件夹下”cｏde1.txt”代码复制到该过程中（(2)（8分)修改”注释１”、”注释2”、”注释3”、”注释４”所在行的代码,能让程序正确执选择“找素数”按钮合适的事件过程（文件中的1分）。行（3)(2分）保存窗体文件和工程文件，生成可执行文件test２-2.exe保存到试题目录下的“试题二”文件夹。ＰrｉvａｔeSubCoｍｍand1_Cliｃk()Ｆorn=1To1０0'注释1f=0Ｆｏrｊ=1TｏnＩfnMｏｄj=０Then'注释2f=f+1＇注释3EnｄIfNｅｘｔj----Iｆｆ=2ThenLｉst１.AddItｅmn＇注释4ＥndIfNｅｘtnEndＳub试题三（20分)VＢ编制程序，初始界面如图5所示，当单击“输入行数ｎ”按钮时,弹出对话框如图7,输入图形的行数ｎ,n的范围是[１，9]，若不符合要求则重新输入直到符合为止,如图6。单击“打印P按钮”则输出相应的图案,如图8。用所示图5图６图7图8打开某路径下的试题二文件夹中工程文件teｓｔ３.vｂp,完成下列操作:1.（6分）将3．txt文件复制到适当的事件中，根据题意完成(1)、(2）、（3)的填空。让程序能正确执行并符合题意。2.（1２分4)、(５）、（修改好））单击打印图形,能正确打印如图的图形且最后一行位置从5列开始打印。完成相应的（6)(7）及注释１处添加一条代码，注释２处修相改应的代码。(参考答案已3.(２分)保存窗体文件和工程文件,生成可执行文件tesｔ３.eｘe保存到试题目录下的“试题三”文件夹。Dimn%PrivａteＳubＣｏmmａnd1_Cｌick()ClｓForｉ=1Ｔon----PrｉntTａb（5+n-ｉ);'答案也可以是Space(4＋n－ｉ);Ｆoｒj=１Ｔo2*i-1ＩfjＭod2=0ＴheｎPrint"*＂;EｌsePｒiｎｔChr(48+i);EndＩfNｅxtjＰｒｉntＮｅxtiＥndSubPrｉｖatｅSｕbCommａnd2_Ｃｌick()n=Val(InputBox("请输入行数(1-9＂))DoUnｔｉMｓgBoｘ"行数为符合n=Vａl（InputBoｘ("请输入行数（1-9"))ln>=1Anｄｎ<=9,请重新输入",,"ｋs1"LoopCommand1.Eｎabｌed=ＴruｅEｎdSｕb2015年VＢ操作题第七套试题一：（３0分）,程序运行时，在选课名称的列表框中加载如图设计一个选课系统1所示的课程图1操作要求:图21.（４分）创建一个标准EXＥ工程t1.vbp为文件名保存到试题一的文件夹下。2.(１2)参照图1完成界面设计:按表添加相关对象并设,将其窗体文件和工程文件分别以tｅst１.ｆrm、tｅｓ置相关的属性：（每个属性设置1分）表1对象名属性属性值对象名属性属性值Fｏrm1caption课程选择Form１foｎtｓizｅ26Label２captiｏn已选课名称Labｅl1cａｐtion课程名称Ｌisｔ2bａｃkｃｏl&Ｈ0０ＦLｉsｔ1baｃkcolor&H００8０----ｏrFFF80＆C0FF&ComｍaｎｄnaｍｅＣmｄ1Cｏmmand２ｎame１Cｍd2Cｏｍｍand1cａｐtｉon＞＞Commanｄ2caｐtion<<ＣomｍａnｄEnabled１falsｅCommand2Enabledfalse3.（1）（4分)窗体加载时，在列表框１已加载图1的项目:语文、英语、数学、程序设计、网络操作系统、网络设备配置、PR、PS、体育、心理、职业道德、音乐。（加载事件2分,添加列表框内容2分）(2)（5分)编适当事件当用户选中列表框;且cｏmｍanｄ1按钮又变成无效。1的内容，command1按钮有效，单击“》”按钮，则把选中的课程移动到右边列表框中(每知识点1分，共5分)(3）(5分）编适当事件当用户选中列表框２的内容，钮，则把选中的课程移动到左边列表框中;且ｃｏmmand2按钮又变成无效。（每知识点1分，共5分)cｏmmａnd２按钮有效，单击“《”按4.（2分)保存窗体文件和工程文件,生成可执行文件tｅｓt１.exe保存到试题目录下的“试题一”文件夹。PriｖaｔeSubCoｍmand1_Click()Ｌisｔ2.ＡddIteｍLisｔ１.ＴeｘtList1.RemｏｖeItemList1．LｉｓtIndexCommａｎｄ１.Eｎabｌeｄ=ＦalseEndSｕbＰｒivａtｅＳuｂComｍanｄ2_Cｌick()Ｌiｓｔ1.ＡddItｅmLiｓt2.ＴextＬisｔ2．RemｏｖｅＩtemLｉst2.ＬistIｎｄexCoｍmand2.Ｅnabled=ＦalseEｎｄＳｕbPriｖateSubForｍ_Ｌｏａｄ(）Lｉsｔ1.ＡｄdＩtem＂语文Ｌist1.AｄdItem＂英语List1．ＡddIｔem"数字"Lｉｓt１.AｄdＩtem"程序设计Ｌiｓt1.AddIｔｅm"网络操作系统List1．AddIｔem"网络设备配置"＂"＂"Lｉst1.ＡddIｔeｍ"ＰR"Ｌisｔ1.AddItem"PS"Lｉｓt1.ＡdｄItem＂体育Ｌist１.AdｄItem"心理Liｓt１.AｄdItem"职业道德List1.AddItem"语文Ｌist１.AｄdItem"语文＂"＂＂"EndSuｂPrｉｖaｔｅSubＬiｓt１_Ｃlｉck()Ｃoｍmand1.Ｅnａblｅd=ＴruｅEndSｕｂＰｒivａtｅＳubＬist2_Cｌick()----Comｍanｄ2.Enabled=TrueEnｄSub试题二（２５分）1.(1５分）题,每答对一道题得４所示。VＢ程序功能1０分,最后用消息框输出小学生的得分。程序运行界面如图:激活窗体通过输入框随机给小学生出１０道二位正整数的加法3和图图３图4tesｔ2.vbｐ，完成下列操作3分）将文件2-１．tｘｔ复制到适当的事件中去。)(10分)事件中的代码进行相应的填空(1）(２)（3)(4)(5)，并能正确执行程序的结果。(每空2分，共1０分）打开某路径下的工程文件:（1）（（２（3）（2分)保存窗体文件和工程文件，生成可执行文件tesｔ2.exｅ保存到试题目录下的“试题二”文件夹。ＰｒiｖａteSｕbFｏrm_Ａctivａte（)Dima%,b%，z%,s%RandoｍizeFori＝1To10a=Ｉｎt(９0*Rnd)＋10b=Int(９０*Ｒnｄ)+10ox(a&"＋＂＆b＆"=","第＂&i&"题"））x＝Vaｌ(InputＢIfa+ｂ=xTｈｅns＝s+10ElｓｅMsｇBoｘ"继续努力，加油!"EndＩfNeｘtiＭsgBox"你的最后得分是：＂&s,,＂xｉaoxueshenｇchuti＂EndSuｂ2.（１０分）在考生文件夹下有一个工程文件ｔest2-１.ｖbｐ。Lｉst1列表框中。程序运行时，选中Lｉst1中若干个列表项)，单击“选中”按钮则把选中的项目移到List2中，单击“显示”,则在Text1文本框中显示这些选中的(如图6所示）。已经给出了所有控件和程序,但程序不完整。在其窗体中“待选城市”5下的有若干个城市名称(如图所示城市图5图６----（1)(8分）要求:请去掉程序中的注释符，把代码窗口中的程序的?改为正确的内容,使其能,但不能修改程序中的其他部分和控件属性。最后用原来的文件名保存工程文件和(程序中有4个?各２分，共8分)（2分）保存窗体文件和工程文件，生成可执行文件正确运行窗体文件。test2－1.ｅxe保存到试题目录下的“试题二”文件夹PriｖateSubＣommaｎd1_Cliｃk(）Dimk%Fork=Lｉst1．ＬｉｓtCount-1To0Ｓtep-１IｆList１.Ｓeｌected(ｋ)＝ＴrueTheｎList2.AdｄIteｍLｉst1．List(ｋ)List１.RemoveＩtemｋEndＩｆNｅxｔkＥndSubPｒｉｖatｅＳｕbCommand2_Clicｋ（)Dｉｍk％Ｔext1．Tｅxt="已选中的城市有：＂Fｏｒk=０ToLiｓt2．ＬisｔCount-1Text1.Text＝Teｘt1.Teｘt＋＂"+Ｌiｓt2.Liｓｔ(k)'将ｌisｔ２中的项目连接在tｅxt1中的内容后ＮextkEｎdSubPrｉｖateSubForｍ＿Loａd(）List1.AdｄItem＂宁波"Ｌiｓt1．AｄdItem＂杭州＂Liｓt１.AｄｄItem＂绍兴＂Liｓt1.AｄdItem"湖州＂Lisｔ1.AdｄItem"温州"List1．AｄdＩtｅm"台州＂Ｌist1.AdｄItem"嘉兴"Liｓt1.AdｄItｅm"EnｄSub三(2０分）ＶB程序功能：产生15[0,100]的偶数进行排序。单击“排序”按钮,则将数组a中的１5个"试题数按从小到大的顺序(用冒泡法）显示在文本框Text2中。图７----图8打开某路径下的工程文件test3.vbp，初始界面如上图1.(2分）将文本框1设置成多行显示２.（８分)单击“产生数组”按钮,用函数生成它们保存在一维数组a中,同时也将这１5个数值显示在Teｘt１中，成(1）(２）（3）（4)的填空。3.（8分）单击“排序”按钮,则将数组a中的在文本框Text2中,结果如图８所示(5）（６）（７）4.（2分)保存窗体文件和工程文件,生成可执行文件ｔｅst3.exｅ保存到试题目录下的“试7所示,完成下列操作:;15个0～１00之间(不含０和１0０）并将8所示；完结果如图1５数按从小到大的顺序（用冒泡法)显示。完成(8）的填空。题三”文件夹。Dima%（15)PｒｉvatｅSuｂCommａnd1_Clｉck()Fori=1To15a(i)＝Inｔ(99*Rnd）+1Ifa(i)Mod２<＞０Tｈeni＝i－１ＮextiForｉ=1Tｏ１５Ｔext1．Tｅxt=Ｔext1．Tｅxt+Sｔr(a(i)）NeｘtiEｎdSｕｂPrｉvａteＳuｂCommand2＿Cｌｉck(）Fori=1To14Ｆorｊ=１To15-iIfa(j）>=a(j+１）Theｎt=a（j）：a(j)=a(j+1）:a（j+1)＝tEndIfNexｔjNextｉFｏrｉ＝1Ｔo15Ｔext2.Ｔｅxt=Texｔ2.Text&a(ｉ）＆""NextiEｎdSｕｂ----2015年VB操作题第八套试题一：（30分）设计一个VB程序:其功能实现简单四则运算。运行界面如图１和图2所示图1图２操作要求:1.(４分）创建一个标准EXＥ工程1．vbｐ为文件名保存到试题一的文件夹下。2.(12分)参照图1和图2完成界面设计,将其窗体文件和工程文件分别以ｔest1．ｆrm、tｅsｔ:按表添加相关对象并设置相关的属性：（每个属性设置１分）表1对象名属性属性值对象名属性属性值Form1maxbtaleForm1ｃｐ四则运算ationｕｔｆｓｏnForｍ1miｎbuｔfａlseFｏrm1ｆontｓｉ四号字tonzeFｒａme2caption运算符号Fｒaｍe1cａｐtioｎ两个操作数Oｐｔion1capｔｉ+Fｒamｅ3caption运算结果onＯpｔiｏn2caption-Opｔｏｃaptionin*３Opｔion4cａｐtion／Ｌabeｌ1borderstyle1３.（１结果如图２所示2分）分别单击“+”、“-”、“*”“/”单选按钮,实现加法、减法、;（注意:程序中不得使用任何变量，每个事件各1分,共4分，每个事件只写一句正确代码各２分,共8分,其中单击“／”单选按钮时，不考虑除数为零，计算结果在标签１显示。）乘法与除法运算，４.(2分）保存窗体文件和工程文件,生成可执行文件test1.ｅxe保存到试题目录下的“试题一”文件夹。PrｉvaｔeSｕbOptioｎ1_Ｃliｃk(）Laｂel1.Ｃaｐｔioｎ=Ｖal（Ｔext1.Ｔext）+Val(Teｘｔ2.Ｔｅｘt)ＥｎdSubPrｉvａteＳubＯｐtiｏｎ２_Cｌiｃk()Labeｌ1