计算机上机练习35套含答案

院校名 班皴 软盘编号准考证号姓名成娘一'调试程序用序存盘文件名TESTII.VBP、TESTI1.FRMX40分）磁盘上有一个名为•TESTILVBP”的文件（程序界面如下图1所示）.其功能为：单击“打印”按钮，显示图形如图1所示。单击“退出”按钿，则退出程序。10000010100010 I, ooioioo L.打印0001000 r"r 001010001000101000001 退出程序中有若卜错误,请调试通过（在不制除整条语句的前提下,可修改或补充语句，添加的语句不傕超过两条..调试通过后仍以文件名TESTII.VBP存盘：1二、编程：（程序存盘文件名TESTI2.VBP、TEST12.FRM）（6O分）建立一个窗体如图2所示.程序功能要求如下：I、单击“读入按钮,从随机文件“Siuda「中读出所有的记录存入自定义的记录类型数组Siudenl中,同时.将数据H示在列衣框Listl和List2中.已知每条记录包含有两个数据项.姓名、ame（定长为S的字符串类型》和平均成绩AveSeef单精度类型）.2.单击“排序”按钮.按AvcScore（即平均成绩）从高到低排序,并将排序的结果由新显示在列表框Listl和List2中.图2图2336773712I82,I72,I74.IS7.IS8...结束 VERSION5.00BeginVB.FormForelCaption = "Form「TOC\o"1-5"\h\zClientHeight = 3090ClientLeFt = 60ClientTop = 450Clientfidth = 5445LinkTopic = *Forml*ScaleHeight = 3090ScaleWidth = 5445Startupposition= 3窗口跳置BeginVB.CommandButtonCooaand2Caption = "排序”Height = 495Left = 3720TabIndex = 3Top = 1560Width = 1215EndBeginVB.CoaunundButtonCoauindlCaption ="读入"Height = 495Left = 3600TabIndex = 2Top = 480Width = 1335EndBeginVB.l.istBoxList2Height = 2400Left = 2040TabIndex = ITop = 240Width = 1455EndBeginVB.ListBoxListlHeight = 2400Left = 240TabIndex = 0Top = 240Vidth = 1455EndEndAttributeVB_Name-"Foml"AttributeVB.GlobalNameSpace-FalseAttributeVBCreatable=FalseAttributeVBPiedeclaredld=TrueAttributeVB_Exposed-FalsePrivateTypeStudentNameAsString♦5AveScoi-eAsSingleEndTypeDias()AsStudentDianAsIntegerPrivateSubCommand!Click()OpenApp.Path+,\Stu.dat*ForRandomAs8!DoWhileNotEOF(l)n=n+1ReDimPreserves(n)Get91,n.s(n)Listl.AddItems(n).N<uneList2.AddItems(n).AveScoreLoopEndSubPrivateSubC<Hnmand2_Click()Foris1Ton-1Forj=1Ton-iIfs(j).AveScore>s(j+1).AveScoreThent-s(j).AveScores(j).AveScore=s(j+1).AveScores(j+1).AveScore=tr=s(j).Nomes<j).Naae=s(j+1).Naaes(j+1).Name=rEndIfNextjNextiListl.ClearList2.ClearFori=1TonListl.Addltems⑴.SameList2.Addltems(i).AveScoreNextiEndSub院校名 班皴 软盘编号准考证号姓名成娘一'调试程序（程序存盘文件名TEST21.VBP、TEST2I.FRMK4O分）磁盘上有一个名为-rESTSIVB产'的文书.该程序功能为：当单击“显示”按钮时，随机产生个大写字母并以此字母为中心生成如下图形“例如，与的机产牛的字母为“X”时.生成的图形如图1所示.图I程序中有若干常误.请调试通过（在不IM除整条语句的前提卜,可修改或补充语句.添加的语句不能超过两条.调试通过后仍以文件名TEST21,VBP存盘），二、娟程：（程序存盘文件名TEST22.VBP、TEST22.FRM）（60分）建立个窗体如图2所示.程序功能要求如下：I.单击“注入”按钮,从磁盘文件“tesl22」N.lxL中读入10个数据.并显示在文本框text1中.2、单击“删除按钮.在弹出的输入框中输入芾要弱除的数据，将删除谟数据并符IM除后的结果显示在文本框tex（2中.3.单击“存盘”按钿，将删除后的结果存入磁盘文件“iesi22_0lT.txL中. 结束 VERSION5.00BeginVB.FormFormlCaption = "Forml”TOC\o"1-5"\h\zClientHeight = 4440ClientLeft = 60ClientTop = 450ClientWidth = 5370LinkTopic = "Fond"Scalelleight - 4440ScaleVidth = 5370StartUpPosition=3'窗口缺省BeginVB.TextBoxText2Height = 735Left = 240TabIndex = 5Top = 3480Width = 4695EndBeginVB.ComnuindButtonCoaauind3Caption ="存盘"Height = 495Left = 3720TabIndex = 3Top = 1800Vidth = 1215EndBeginVB.CommandButtonComand2Caption ="剧除”Height = 495Left = 2040TabIndex = 2Top = 1800Vidth = 1215EndBeginVB.CoounandButtonComuind1Caption="读入"Height = 495Left = 240TabIndex = 1Top = 1800Width = 1215EndBeginVB.TextBoxTextlHeight = 735Left = 240TabIndex = 0Top = 480Width = 4695EndBeginVB.Sbe】Label!Caption.JH除后的数组”BeginPropertyFontName="宋体"Size=14.25Charset=134Weight=100Underline=0，FalseItalic=0'FalseStrikethrough=0'FalseEndPropertyHeight =495Left =360TabIndex4Top2640Width =2655EndEndAttributeVBName="ForBl"AttributeVB_GlobalNameSpace=FalseAttributeVB.Creatable=FalseAttributeVBPredeclaredId-TrueAttributeVB_Exposed=FalseDiaa%(10)PrivateSubCommand!Click()Dimx%OpenApp.Path+"\test22_IN.txt"ForInputAs#1Fori=1To10Input#1,xa(i)=xTextl.Text=Textl.Text&""&a(i)NextiClose*1EndSubPrivateSubCoounand2_Click()n=Val(In|xnBox("lH除二”请输入要删除的数”))Fori=1To10Ifa(i)=nThenk=iExitForEndIfNextiForj=kTo9a(j>=a(j♦1>NextjFori=1To9Text2.Text=Text2,Text&**&a(i)NextiEndSubPrivateSubCo<ninand3_Click()OpenApp.Path+*\test22OUT.txt"ForOutputAs02Fori=1To9Write#2.a(i)'Vrite#2.Text2.TextNextiClose#2EndSub院校名 班皴 软盘编号准考证号姓名成娘一'调试程序（程序存盘文件名TEST31.VBP、TEST3I.FRMK4O分）碳盘上有一个名为FEST3I.VB1的文件,其功能为：计算以下数列的前20项之和，并将求和计算的结果输出到文本框lestl中。程序中有若干错误,请调试通过（在不1M除整条语句的前提下，可修改或补充语句，添加的语句不能超过两条。调试通过后仍以文件名TEST3LVBP才盘）.二、娟程：（程序存盘文件名TEST32.VBP、TEST32.FRM）（60分）建立一个窗体如图2所示.程序功能是：单击显示”按钮后，在图片框中显示矩阵如图2所示.其中，该矩阵的起始字母、行数和列数均由用户通过文本框输入，并且起始字母只能给人英文大写字母.矩阵由起始字母以及其后的有限个字母循环排列构成（后超过"Z".则从“A”开始继续）.-loixiXYzAcXYzBOXYABcXzABcYzAB图2结束VERSION5.00BeginVB.FoeForel"Forml"4395603457050*Form1-"Forml"4395603457050*Form1-439570503'窗口缺省Clientlleight =ClientLeft =ClientTop =ClientVidth =LinkTopic =ScaleHeight =ScaleVidth =StartUpPosition-BeginVB.PictureBoxPicturelHeight = 2895Left = 0ScaleHeight = 2835ScaleVidth = 3075TabIndex = 4Top = 480I'idth = 3135EndBeginVB.TextBoxText3Height = 735Left = 4440TabIndex = 3Top = 2280Width = 1215EndBeginVKTextBoxText2Height = 615Left = 4440TabIndex = 2Top = 1200Width = 1215EndBeginVB.TextBoxTextlHeight = 615Left = 4440TabIndex = 1Top = 240Width = 1215EndBeginVB.ComnuindButtonConaandlCaption = "显示”Height = 735Left = 4440TabIndex = 0Top = 3360Width = 1575EndBeginVB.LabelLabel3Caption="列STHeight = 615Left = 3360TabIndex = 1Top = 2640Width = 855EndBeginVB.LabelUbel2Caption="行数”Height = 495Left = 3360TabIndex = 6Top = 1440Width = 975EndBeginVB.LabelLabel1Caption="起始字母”Height = 495Left = 3360TabIndex = 5Top = 480I'idth = 855EndEndAttributeVBName="Fond"AttributeVBGIoba1NtuneSpace=FalseAttributeVB_Creatable=FalseAttributeVB_PredeclaredId=TrueAttributeVBExposed=FalsePrivateSubGwunandl.C!ick()X=Textl.TextIfX<OrX>"ITThenMsrBox”必须输入大写字母！Textl.Text="Textl.SetFocusElsem=Vai(Text2.Text)n-Vai(Text3.Text)k=0Fori=1ToaForj=1Tonk=k♦1r=Asc(X)+k-1Ifr>90Thenr=r-26IfkX27Thenk=0Picturel.PrintChr(r);NextjPicturel.PrintNextiEndIfEndSub

"FoeI”4365165"FoeI”43651658555505"Form】"■13655505.窗口缺省VERSION5.00BeginVB.FormFonalTOC\o"1-5"\h\zCaptionClientHeight =ClientLeft =ClientTopClientWidth =LinkTopic =ScaleHeight =ScaleVidth =Startipposition=BeginVB.TextBoxTextIHeightLeftMultiLineScrollBarsTabIndexTopWidthEndBeginVB.Menu

CaptionEndBeginVB.Menu

CaptionEndBeginVB.Menu

Captiondushujujsuanbaocun3495240-1'True2'Vertical02403855读入数据.计算.保存结果.EndEndAttributeAttributeAttributeAttributeAttributeEndEndAttributeAttributeAttributeAttributeAttributeDiaa(50)VBName="Fond"VB_GlobulNameSpace-FalseVBCreatable=FalseVB_l>redeclaredld=TrueVB_Exposed=FalsePrivateSubbaocun.Click()OpenApp.Path+*\dataOut.txt*ForOutputAs#50Write«50,Textl.TextCloseEndSubPrivateSubdushuju_Click()OpenApp.Path+*\Dataln.txt*ForInputAs#50Textl.Text=Fori=1To50Input#50.xa(i)=xTextl.Text=Textl.Text&a(i)&vbCrLfNextiCloseEndSubPrivateSubjsuan.ClickOSub=0Fori=ITo50g=a(i)Mod10IfgMod3=0ThenSum=Sum+a(i)NextiTextl.Text-Textl.Text&"Sub&SumEndSub普通高等学校计算机应用知识和能力二级（VisualBasic）上机考试试卷一.调试程序（程序存盘文件名TEST2I.VBP、TEST21.FRM）（40分）在峨盘上有一名为"TEST2I.VBP"的文件.（程序界面如图I所示）其功能为：点击开始按忸，找出由数字“1二-2”、“3”组成的所有：位数，并将结果显示在列表框中.-ipixiWW1112I113I121I122I123⑸I1321133C111212图I程序中有若干错误，请调试通过（在不删除整条语句的前提下，可修改或者补充语句，添加的语句不能超过两条。调试通过后仍以文件名TEST2LVBP存盘）。二.姐程：（程序存盘文件名TEST22.VHP、TEST22.FRM）（60分）某商场进行节日优惠促销.促伯方案为：苴先根据客户消费金额满100xn元进行优惠.然后.再按照客户类型进行打折.具体方案如卜:客户类型普通客户仝员VIP打折幅度（DisCounl）0.90.850.8优惠价0<=消费金额<300时,优惠价=消费金额-n*10300<=消费金额<600时,优惠价=消费金额-n*15600<=消费金额<1000时,优惠价=消费金额-n-25消费金额>=1000时.优患价=消费金额-n»35（其中,n为消费金额中涓100的次数）实付金额实付金额=优惠价*Discoum例如,用户消费金额为550元.首先根据消费金额优惠5・15=75元,再按照客户类5!打折，如果是会员客户.则实付金额=<550-5*15）*0,85=403.75元编月程序。建立个窗体如图2所示.程序功能要求如下：.单击“计算”按钮.则计算实付金额并显示在相应的文本框中：.单击“清除”按钮，则将文本框TcxH和Tcxt2请空，并将焦点设置在Thxtl上：二编制程序（程序存盘文件名TEST22VBp、TEST22.FRM）（60分）评分标准：.文件存盘正确.正确设计界面3,正确输入消费金额.正确处理“折.正确处理优思.正确计算实付金额7,正确清除和设置焦点.程件结构合理,清嘶

普通高等学校计算机应用知识和能力二级（VisualBasic）上机考试试卷一.调试程序（程序存盘文件名TEST31.VBP、TEST31.FRM）（40分）在磁盘h有一名为“TEST3LVBP”的文件.其功能为：输入自变量X,根据下面的靠级数计算正弦函数近似值.要求精确度达到0.000001«3 3 5 7 9婀X）…方方手,图I程序中有若干错误，请调试通过（在不删除整条语句的前提下，可修改或者补充语句，乖加的语句不能超过两条。调试通过后仍以文件名TEST3LVBP存盘）。二编程：（程序存盘文件名TEST32.VHP、TEST32.FRM）（60分）设计一个用户登录界面如图2所示.程序功能要求如下：.当输入“用户名”和“密码”并选择“登录”后.单击“确定”按钮,则在数据文件中去查找谟用户名和密码是否均为正确.若用户名和密码正确,则住对话框中提示“合法用户！二否则提示“不是合法用户或密码错误！”..当愉入“用户名”和“密吗”并选择“注册”后,单击“确定”按钮,则向数据文件“uscndal'中填加新用户（包括用户名和密码）.如已有相同用户名，则提示“该用户名已在使用！语重新选择工.单击“消除”按钮，则清除用户名和密码框中的内容,并将焦点设置在用户名框。10.10.H.图2 以….下….供…教一师.…用 三调试程序（程序存盘文件名TEST31.VBP、TEST31.FRM）（40分）四.五.编制程序（程序存盘文件名TEST3LVBP、TEST31FRM）（60分）评分标准：文件存盘正确1E确设计界面正确使用单选按钮正确登录正确注册正确清除和设置保点VERSION5.00BeginVB.ForaForalCaption =Form1TOC\o"1-5"\h\zClientHeight = 2610ClientLeft = 60ClientTop = 450ClientWidth = 8505LinkTopic = "Form】"ScaleHeight = 2610ScaleWidth = 8505Startipposition=3'窗口籍省BeginVB.C<MunandButtonCooBand2Caption ="清除”Height = 615Left = 5520TabIndex - 8Top = 1680Width = 1695EndBeginVB.ConunandButtonComwindlCaption="确定"Height = 615Left = 3480TabIndex = 7Top ~ 1680Width = 1695EndBeginVB.FrameFrame】Height = 1095Left = 3360TabIndex = 4Top = 240Vidth = 4335BeginVB.OptionButton0ption2Caption ="注册"Height = 495Left = 2160Tabindex-6Top=360Width=1095i:inVB.OptionButtonOptionlCaption"登录"Height495Left360Tabindex5Top360Width1095EndEndBeginVB.ToxtBoxText2Height=495IMEMode=3'DISABLELeft=1440PasswordChar=TabIndex=3Top=960Vidth=1575EndBeginVB.TextBoxTextIHeight495Left1440TabIndex2Top=360Widthz1575EndBeginVB.LabelLabel2AutoSize"1'TrueCaption.密码.Height=180Left-600TabIndex1Top=1080Vidth-360EndBeginVB.LabelLabel1AutoSize-1'TrueCaption"用户名"Height=180Left=600TabIndex0Top=480Width=540EndEndAttributeVBName="Foml"AttributeVB_GlobalNameSpace-FalseAttributeVB_Creatable:FalseAttributeVBPredeclaredId=TrueAttributeVB_Exposed=FalsePrivateTypeUserinfozhAsString*10mimaAsString♦10EndTypeDiaL<AsUserinfoPrivateSubCommand!ClickODiaFAsBooleanDiazAsString♦10.aAsString♦10z=Tri»(Textl.Text)■=Tria(Text2.Text)IfOptionl.Value=TrueThenF=FalseOpenApp.Path+"\user.dat"ForRaiiduaAs#1i=0DoWhileNotEOF(1)isi+1Get01,i,UIfz=U.zhAnd■=U.aimaThenHsgBox”你是合法的用户！F=TrueExitDoEndIfLoopIfF-FalseThenMsgBox”不是合法用户或密码错误！EndIfClose#1IfOption2.Value=TrueThenOpenApp.Path"--\user.dal"ForRandu«As#2i=0F=FalseDoWhileNotEOF⑵i=i+1Gettt2,i,UIfz=U.zhThenMsgBox”该用户名已在使用！请重新选择！"F=TrueExitDoEndIfLoopIfF=FalseThenU.zh=zU.mima=nPut«2.,UEndIfClose#2EndIfEndSubPrivateSubCommand2ClickOText1.Text=Text2.Text="Textl.SetFocusEndSub院校名— —班级— —软盘编号—准考证号姓名成娘-、调试程序（程序存盘文件名TESTII.FRM、TESTI1.VBP）（40分）在破盘上有一个名为“TEST1LVBP”的文件（程序界面如图1所示）。程序功能如下：单击“查找”按钮后,找HIL5O之间两相邻自然数之和为素数的数对.并显示在文本框■xU中。图1程序中有若干错误，请谓试通过（在不删除整条语句的前提下，可修改或补充语句,添加的这句不能ifl过两条。调试通过后仍以文件名TEST1LVBP存盘力、编程（程序存盘文件名TEST12.VBPTEST12.FRM）（60分）建立一个窗体如图2所示,程序功能要求如下：显示| ……耀………: 保存图21、击“显示”按钮，从文件“testl2in.Tx1”中读出6X6矩阵的数据，并显示在图片框PictureI中：2、选择“由对角线之和”单选按钮,再单击“计算”按钮，则将矩阵主对角/（左上元至右下元）元素之和显示在文本框Texil中：3、选择“副对角线之和单选按钮.再单击“计停”按钮，则将矩阵副对角或（右上元至左下元）元素之和显示在文本框TEXT1中；4、单击保存按钮，将计算结果追加到文件“Testi2oirt.Txt”中*以 下 供 敦 师 用软盘泮阅评语：调试程序（40分乂存盘文件名TEST1I.FRMTESTII.VBP）编制程序（60分）（存盘文件名TESTI2.FRMTESTI2.VBP）坪分标准：.文件存盘正确.正确设计界面.正确实现数组显示.正确实现计算主对角线之和.正确实现计算副对角线之和.正确实现保存按钮功能.程序结构合理、清晰VERSION5.00BeginVB.FonnForalCaption = *Form1"TOC\o"1-5"\h\zClientHeight = 2910ClientLeft = 60ClientTop = 465Clientwidth = 5235LinkTopic = "Forml”ScaleHeight = 2910ScaleWidth = 5235StartUpPosition= 3'窗口缺省BeginVB.TextBoxTextlHeight = 495Left = 2880TabIndex = 8Text = "Textl"Top ~ 1680Width = 1575EndBeginVB.FrameFrame】Caption ="选择"Height = 1335Left = 2880TabIndex = 4Top = 0Width = 2175BeginVB.OptionButton0ption2Caption="副对角战之和“Height = 255Left = 120Tabindex = 6Top = 840Width = 1575EndBe«inVB.OptionButtonOptionlCaption="主对角线之和‘Height = 375Left = 120Tabindex = 5Top = 240Width = 1815EndEndBeginVB.PictureBoxPicturelHeight = 2055Left = 120ScaleHeight = 1995ScaleWidth = 2595TabIndex = 3Top = 120Width = 2655EndBeginVB.ComnuindButtonComand3Caption="保存"Height = 375Left = 3000TabIndex = 2Top = 2400Width = 1095EndBeginVB.ConunandButtonCoraHnd2Caption="计算*Height = 375Left = 1920TabIndex = 1Top = 2400Vidth = 855EndBeginVB.CoaunundButtonCooBandlCaption ="显示"Height = 375Left = 600TabIndex = 0Top = 2400Width = 1095EndBeginVB.LabelLabel!Caption="结果"Height = 495TOC\o"1-5"\h\zLeft = 2880TabIndex = 7Top = 1440Vidth = 1575EndEndAttributeVBName-"Fond"AttributeVBGlobalNameSpace=FalseAttributeVBtreatable=FalseAttributeVB_Predec1aredId=TrueAttributeVB_Exposed=FalseDiaa(6,6)AsIntegerPrivateSubCoaunandlClick()Open"d:\test\lestl2in.txl"ForInputAs*50Fori=1To6Forj=1To6Input#50.xa(i,j)=xPicturel.PrintTab(4*j)：a(i,j);NextjPicture).PrintNextiCloseEndSubPrivateSubCnmmand2ClickOFori=1To6Forj=1To6]fOptionl.Value=TrueThenIfi=jThenS=S+a(i.j):Textl.Text=SEndIfIf0ption2.Value=TrueThenIfi+j=7ThenT=T+a(irj):Textl.Text=TEndIfNextj,iEndSubPrivateSubConunand3_Click()Open'd:\test\le5t12out.txt,ForAppendAs#50Write#50.Textl.TextCloseEndSub院校名班级软盘端号准考证号姓名成娘调试程序（存盘文件名TEST2I.FRMTEST21.VBP）（40分）在磁盘上有一个名为-TEST2I.VBP"的文件《程序界面如图1所示）.程序功能如下花窗体上每隔一秒钟显示当前时间。单击“运行”按钮.根据当前时间,在12点以加.显示“早上好”：12点至18点,显示“下午好”：18点以后，显示“晚上好工单由“退出”按钮，则退出程序。图1程序中有若干精误.调试通过（在不删除整条语句的前提下,可修改或扑充谙旬，添加的诏句不能超过两条）.调试通过后仍以文件名TEST2I.VBP/ffit）.二.编程（程序存盘文件名TEST22.FRMTEST22.VBP）（60分）建立一个窗体如图2所示.程序功能要求如下：图2I、程序启动时只有“生成”按钮可用；2、单击“生成”按钮后，随机产生20个［20,40］区间内的整数并显示在列表框中，同时.所有按钮变为可用：3、单击“排序”按钮后，20个整数按从小到大排序并显示在列表框中;4、单击“存盘”按钮后，数据写入文件Test22ouuxi”,并退出程序。以 下 伏 教 师 用软盘评阅评语：.调试程序（存盘文件名TEST2I.FRMTEST21.VBP）（40分）..编制程序（存盘文件名TEST22.FRMTEST22.VBP）（60分）评分标准：.文件存盘正确.正确设计界面.正确产生并显示的机数.正确推序并显示.正确写入数据.正确退出程序.程序结构合理、清晰VERSION5.00BeginVB.FoeFonalCaption"FoeI”ClientHeight=2910ClientLeft =60ClientTop465ClientWidth=5235LinkTopic ="Form】"ScaleHeight=2910ScaleVidth =5235Startipposition=3'窗口缺省BeginVB.TextBoxText!Height=495Left=2880TabIndex=8Text="TextI"Top=1680Width=1575EndBeginVB.FrameFrame1Caption二.选择.Height=1335Left=2880TabIndex=4Top=0Vidth=2175BeginVB.OptionButtonOption2Caption="1副对角线之和"Height=255Left=120Tabindex=6Top=840Width=1575EndBeginOptionButtonOptionlCaption="生对角城之和“Height=375Left=120Tabindex=5Top=240Width=1815EndEndBeginVB.PictureBoxPicture1Height2055Left120ScaleHeight1995ScaleVidth2595TabIndex3Top120Width2655EndBeginVB.CommandButtonCoaaand3Caption=“保加Height-375Left=3000TabIndex=2Top=2400Width=1095EndBeginVB.CoaunundButtonCoauin<12Caption=”计算.Height=375Left-1920TabIndex1Top=2400Width=855EndBeginVB.CnounnndButtonComandlCaption=.显示.Height375Left=600TabIndex=0Top-2400Vidth-1095EndBeginVB.LabelLabel1Caption"结果"Height=495Left-2880TabIndex=7Top=1440Width=1575EndEndAttributeVBName="Fond"AttributeVBGlobalNameSpacerFalseAttributeVB_Creatable二FalseAttributeVB_f*redeclaredld=TrueAttributeVB^Exposed=FalseDiaa(6,6)AkIntegerPrivateSuhCommand1ClickOOpen*d:\test\testl2in.txt-ForInputAsM50Fori=1To6Forj=iTo6Input850,xa(i.j)=xPicturel.PrintTab(4*j);a(i,j);NextjPicturel.PrintNextiCloseEndSubPrivateSubG)aunar)d2Click()Fori=1To6Forj=1To6IfOption!.Value=TrueThenIfi=jThenS=S♦a(i.j):Text1.Text=SEndIfIf0ption2.Value=TrueThenIfi+j=7ThenT=T+a(irj):Text1.Text=TEndIfNextj,iEndSubPrivateSubC«nmand3_Click()Open"d:\tesi\tesil2oui.txt"ForAppendAs#50Write#50,Textl.TextCloseEndSub院校名班级软盘端号准考证号姓名成娘调试程序（存盘文件名TEST3I.FRMTEST3I.VBP）（40分）在磁盘上有一个名为-TEST3I.VBP"的文件（程序界面如图1所示）.程序功能如下：单击“判断”按钮后.判断文本枢中输入的数据是否是升序收，若是则添加到列衣机Lisil中，若不是则弹出信息框提示“不是升序数二升序数是指整数的各位数字白图I程序中有若干错误,调试通过（在不删除整条语句的前提下,可修改或朴充语句,添加的语句不能超过两条）.调试通过后仍以文件名TEST3LVBP存盘）。编制程序（存盘文件名TEST32.FRMTEST32.VBP）（60分）建立一个窗体如图2所示，程序功能要求如下：I、单击“读入”按钮，从文件“•ftsBZin.txi”中读入有字数纨，并显示在文本框Textl中：2、单击“插入”按钮,弹出个对话机要求输入个整数.再格读整数插入掠数阻并保持有序.3、单击“存盘”按钮，将生成数组存入文件“Test32oui.Txt”中..调试程序（40分乂存盘文件名TEST3I.FRMTEST3I.VBP）二.编制程序（60分）（存盘文件名TEST32.FRMTEST32.VBP）评分标准：.文件存盘正确.正确设计界面.正确从文件中读出并显示数据.正确插入并睡示数据.1E确将数据写入文件.程序结构合理、洁畸VERSION5.00BeginVB.FormFonnlCaption = "Fonnl"TOC\o"1-5"\h\zClientHeight = 3135ClientLeft = 60ClientTop = 465Clientwidth = 3435LinkTopic = *Form1*ScaleHeight = 3135ScaleWidth = 3435StartlpPosition=3'窗口缺省BeginVB.CoaunundButtonCoamand3Caption ="存盘"Height = 495Left = 2160TabIndex = 3Top = 1920Width = 1215EndBeginVB.CnounandButtonCmand2Caption="排序"Height = 495Left = 2160TabIndex = 2Top = 1080Width = 1215EndBeginVB.CoounandButtonCoaaandlCaption ="产生.Height = 495Left = 2160TabIndex = ITop = 240Width = 1215EndBeginVB.ListBoxListlHeight = 2940Left = 240TabIndex = 0Top = 120Width = 1695EndEndAttributeVB_Name=*For»rAttributeVB_GIobalNamcSpace:FalseAttributeVBCreatable=FalseAttributeVB_Predeclaredld=TrueAttributeVBExposed=FalsePrivateSubForm_Load()Cooaand2.Enabled=FalseConaandS.Enabled-FalseEndSubPrivateSubCoaunandlClick()RandomizeListl.ClearFori=1To20x=Int(Rnd♦21)+20Listl.AddltemxNextiCouKind2.Enabled-TrueCo«Band3.Enabled=TrueEndSubPrivateSubCoaunand2_Click()Fori=0ToListl.ListCount-2Forj=0ToListl.ListCount-2-iIfVai(Listl.List(j))>Vai(Listl.List(j♦1»Thent=Listl.List(j)Listl.List(j)=List!.List(j+I)Listl.List(j♦I)=tEndIfNextj,iEndSubPrivateSubCoaunand3_Click()Open*d:\tost\test32out.txt*ForOutputAs#1Fori=0ToListl.ListCount-1Write#1,Listl.List(i)NextiClose#1EndEndSub

普通高等学校计算机应用知识和能力

二级（VISUALBASIC）上机考试试卷（60分钟）

院校名班皴软盘媳号准考证号姓名成m一、调试程序（程序存盘文件名TEST1LFRM、TESTII.VBPM4O分）磁盘上有一个名为TEST11.VBP的文件（程序界面如下图所示）.其功能为：先在文本框Tesd中输入一个字符串,按下回车段时.读字符串逆序在文本框Tesi2中显示.其中,文本框依匕不接受键盘输入.文本框Ibal可接受的字符数不超过20.逆序华族逆序华族输入字符 |abcd789%&#XYZ逆序字符|ZYX=&%9S7dcba图I程序中有若卜错误,请调试通过（在不刷除整条语句的前提F,可修改或补充语句，添加的语句不能超过两条.调试通过后仍以文件名TESTILVBP存盘1二、第程：（程序存盘文件名TESTI2.VBP、TESTI2.FRM）（60分）编写一个高速公路收费程序，已知收费标准和收费办法如下：车型小轿车客车货车收炭标准（元八0公里）1.2151.8收费办法行车里程v=100km时,应付费用=10*收费标准行车里程v=200km时,应付费用=201•收费标准行车里程＜=350km时，应付费用=35*收费标准行车里程〉350km时，应付费用=50*收费标准程序界面如图2所示，程序功能要求如下:k选择乍型并输入行车里程后，单击“计算”按钮,则显示应付费用；2、程序启动时，默认的车型为小轿车；3、行车里程必须大于0・否则提示数据有误，并要求市新输入：4.电击“清除”按钮,则清空行车里程和应忖费用文本框.并将焦点设置在行车里积上：5,使用函数计算应付费用.TOC\o"1-5"\h\z以 下 供 枚 帅 用VERSION5.00BeginVB.FormFoimlCaption = "Forml”ClientHeight = 3075ClientLeft = 60ClientTop = 465Clientwidth = 4680LinkTopic = *Form]*ScaleHeight - 3075Scalefidth = 4680StartllpPosition=3'窗口皖省BeginVB.CoaunandButtunConmand2Caption = "CcMaandZ”Height = 495Left = 3600TabIndex = 7Top = 2280Vidth 5 855EndBeginVB.ConunandButtonCommand1Caption = "Coosandl.Height = 495Left = 2400TabIndex = 6Top = 2280Width = 735EndBeginVKTextBoxText2Height = 615Left = 2400TabIndex = 5Text = *Text2,Top = 1200Width = 1815EndBeginVB.TextBoxTextIHeight = 615Left = 2520TabIndex = 4Text = *Textl,Top = 360Width = 1575EndBeginVKFrameFrame1Caption = "Fraael/Height = 2415Left = 240TabIndex = 0Top = 240Width = 1815BeginVB.OptionButlonOption3Caption="0ption3*Height = 495Left = 240Tabindex = 3Top = 1440Width = 975EndBegin\U.OptionButton0ption2Caption = 〜0piion2"Height = 375Left = 360Tabindex = 2Top = 840Width = 975EndBeginVB.OptionButtonOptionlCaption = "Optionl”Height = 375Left = 240Tabindex = 1Top = 360Width = 975EndEndEndAttributeVBName=*For«rAttributeVBGIoba1NameSpace-FalseAttributeVBtreatable=FalseAttributeVB_Predec1aredId=TrueAttributeVB_Exposed=FalsePrivateSubCommand1ClickOIfOptionl.Value=TrueThenb=1.2Elself0ption2.Value=TrueThenb=1.5Elself0ption3.Value=TrueThenb=1.8EndIfs=Vai(Textl.Text)Ifs<=0ThenMsgBox”数据有误,请重新输入！’Textl="Textl.SetFocusEndIfText2.Text=t(b,s)EndSubFunctiont(x.s)AsSingleSelectCasesCaseIs<=100t=10♦xCase100To200t=20•xCase200To350t=35♦xCaseIs>350t=50•xEndSelectEndFunctionVERSION5.00BeginFormFermiCaption = *Form1*TOC\o"1-5"\h\zClientHeight = 1875ClientLeft = 60ClientTop = 465ClientWidth = 4590LinkTopic = "Form]"Scalelleight = 1875ScaleWidth = 4590StartlpPosition=3'窗口统省BeginVB.CommandButtnnConnmndBCaption="存盘"Height = 495Left - 3000TabIndex = 3Top = 1200Width = 855EndBeginVB.CoinmandButtonCoimand2Caption ="插入"Height = 495Left = 1680TabIndex = 2Top = 1200Width = 975EnclBeginVB.TextBoxTextlHeight = 735Left = 120TabIndex = 1Text = "Textl"Top = 240B,idth = 4215EndBeginVB.CommandButtonCommand1Caption 「 '"读入"Height = 495Left = 240TabIndex - 0Top = 1200Width = 1095EndEndAttributeVBName-"Fonal"AttributeVB_G1oba1NameSpace=FalseAttributeVB_Creatable=FalseAttributeVB_Predec1art?dId-TrueAttributeVB_Exposed=FalseDima{7)AsIntegerPrivateSubCommand1_C1ick()Open"d:\test\test32in.txt*ForInputAs#1Textl="Fori=1To6Input#1,a(i)Textl=Textl&* &a(i)NextiCloseEndSubPrivateSubCommand2_Click()x=Vai(Input.Box("输入要插入的数：*))Fori=1To6Ifx>=a(6)Thena(7)-xIfx<a(i)Thenk=i:Forj=7TokStep-1a(j)=a<j-1)Nextja(k)=xExitForEndifNextiTextl="ForI=1To7Textl=Textl& "&a(i)NextiEndSubPrivateSubConiman<13__Click()Open"drXtestVtestS^ut.txLeForOutputAs#1Write#1,Textl.TextClose

院校名班级 软盘墉号准考证号姓名 成绩 ,、调试： '1七件名TEST2I.FRM、TEST21VBp””）在磁盘上有一名为“TEST2LVBP”的文件（程序界面如下图所示）.其功能为：肾用户单击按钮“开始”时.在窗口中输出如卜图形.图1程序中有若干错误.请调试通过（在不删除整条语句的前提下,可修改或补充语句.添加的语句不能超过两条.调试通过后仍以文件名TEST2I.VBP存盘）.二、编程：（程序存盘文件名TEST22.VBPTEST22.KRMK6O分）建立个窗体如图2所示.程序功能要求如下：ThisisaVisualBasicProgram!PleasetoaddfuelThisisaVisualBasicProgram!PleasetoaddfueltotheProgram!ILovethisGame!原文IUijt1]t!b!Wjlvbm!Cbt]d!Qsphsbn"Qmfbtfiup^bee'gvfmlup!uif!Qsphsbn"J!mpwf!uijt!Hbnf"保存I图21.单击“原文”按钮,从磁盘文件lesl22IN.txl读入数据,并显示在文本框testl中.2、电击“加密”按钮，时原文内容进行加密，并显小在文本框Test2中.（加密算法：用Mid函数取出要加密的字符中中的个字符，求出它的ASCH码，把这个ASCU码加1.再Mod255,然后用Mid语句把这个字符号回原来的位置）.3、单击“保存”按钮,把加密后的文本保存到城盘文件test220VT.txt中.4、两个文本框均允许多行文本.以 T 供 教 W 用VERSION5.00BeginVB.FormFormlCaption : *FormlwTOC\o"1-5"\h\zClientHeight = 3675ClientLeft = 60ClientTop = 450Clientwidth = 8655LinkTopic = "Form】“ScaleHeight = 3675Scalefidth = 8655StartlpPosition=3'窗口跋省BeginVB.CuimnandButtonCoimand3Caption ="解密”Height = 615Left = 3480TabIndex = 4Top = 2520Width = 1455EndBeginVB.CominfindButtonComejK>2Caption="加密”Height = 615Left = 3480TabIndex = 3Top = 1560Width - 1455EndBeginVB.CojiunandButtonConntandlCaption 二.原文.Height = 615Left = 3480TabIndex = 2Top = 600Width = 1455EndBeginVB.TextBoxText2Height = 2775Left : 5280TabIndex - 1Text = "Text2"Top - 600Width = 2895EndBeginVB.TextBoxTextlHeight = 2655Left = 480TabIndex = 0Text = "Textl"Top 二 600Width = 2655EndEndAttributeVBName="Fural*AttributeVB_G1oba1NameSpace=FalseAttributeVB/renlable:FalseAttributeVB_PredecIaredld=TrueAttributeVBExposed=FalsePrivateSubCommandL.ClickOOpen-d:\test22IN.TXT*ForInputAs#50Inpul#50,xTextl.Text=xClose#50EndSubPrivateSubConunand2_Click()x=Textl.Textn=Len(x)Fori=1Tony=(Asc(Mid(x,i.1))+1)Mod265Mid(x,i,1)=Chr(y)NextiText2=xEndSubPrivateSubCommand3_Click。Open"d:\tesi22OCT.txt"ForOutputAs#50Write#50.Text2.TextClose#50EndSub

普通高等学校计算机应用知识和能力二级（VISUALBASIC）上机考试试卷（60分仲）院校名班级软盘城号准考证号姓名或tt一、调试程行：（程序存财文件名TEST31.FRM、TEST31.VBPM40分）在磁盘上有一名为“TEST31.VBP”的程序文件,读程序功能为：单击“开始”按钮.弹出对话框..当用户在对话框中输入一个小写英文字母并单击“确定”后.程序以此英文字母为首字符，输出一个5X5的字符矩阵.例如，当辘入字母为“f”时，愉出如下图所示。图I程序中有若干错误，请调试通过（在不删除整条语句的前提下，可修改或补充语句，添加的唐句不能融过两条。调试通过后仍以文件名TEST3LVBP存盘）.二、编程：（程序存盘文件名TEST32.VBPTEST32.FRM）（6O分）建立个富体如图2所示.程序功能要求如下：I.单击“谈入矩阵”按钮,苜先从顺序文件“0t32in.ixi"（如图3所示）中读取矩阵的行数和列数.然后再读取矩阵的各个元素数据，并将矩阵显示在图片框Picture1中单击判断”按钮,将矩阵元素的最大值及其所在行、列值显示在相应文本框中.“读入矩阵”按钮和“判断”按如交替有效.Bt•x*32a*.txt-记］TOC\o"1-5"\h\z文件9编他格式S裕助01)7 37722 d

-ffi3-以 下 供 敦 师 用VERSION5.00BeginVB.ForaForelCaption = "Form】"Clienllleight = 5055ClientLeft = 60ClientTop = 345ClienlWidth = 9555LinkTopic = "Forml”ScaleHeight = 5055ScaleVidth = 9555StartUpPosition=3'窗LI缺省BeginVB.ConunandButtonConanand3Caption=Beginl,ropertyFontNameSizeCharsetWeightUnderlineItalicStrikethroughEndPropertyHeight =Left =

TOC\o"1-5"\h\zTabIndex = 9Top = 4080Vidth = 1935EndBeginVB.CommandButtonComand2Caption ="判断”BeginPropertyFontNanc=.宋体.Size=21.75Charset=134Weight=700Underline=0'FalseItalic-0'FalseStrikethrough=0'FalseEndPropertyHeight855Left =4080TabIndex8Top-1080Vidth =1935EndBeginVKCoounandButtonCoasandlCaption ="读入矩阵"BeginPropertyFontName="宋体"Size=21.75Charset=134Weight=700Under!inc二0'FalseItalic=0fFalseStrikethrough=0'FalseEndPropertyHeight=855Left=1080TabIndex=7Top=•1080Width=1935EndBeginVB.TextBoxText3BeginPropertyFontNane=•1宋体”Size=21.75Charset=134Weight=700Under!ine二0'FalseItalic=0“FalseStrikethrough=0,FalseEndPropertyHeight =615Left =7800TabIndex6Top2040Width =975EndBeginVB.TextBoxText2BeginPropertyFontNanc=.宋体.Size=21.75Charset=134Weight=700Underline=0'FalseItalic=0*FalseStrikethrough=0'FalseEndPropertyHeight615Left =7800TabIndex5Top1200Vidth =975EndBeginVB.TextBoxText!BeginPropertyFontName=.宋体.Size21.75Charset134Weight700Underline0'FalseItalic0'FalseStrikethrough0rFalseTOC\o"1-5"\h\zEndPropertyHeight = 615Left = 7800TabIndex = 4Top = 240Vidth = 1455EndBeginVB.PictureBoxPicturelBeginPropertyFontNane ="宋体"TOC\o"1-5"\h\zSize = 15.75Charset = 134Weight = 700Under1ine=0*FalseItalic=0'FalseStrikethrough =0EndProperty'FalseHeight=3495Left-240ScaleHeight=34J5ScaleU'idth=6195TabIndex二0Top=240Width=6255EndBeginVB.LabelLabel3AutoSize=-1'TrueCaption-•?«*1Height=180Left=6840TabIndex-3Top=2160Vidth=180EndEeginVB.LabelLabel2AutoSize=-1'TrueCaption="行”Height-180Left6840TabIndex=2Top-1440Width=180EndBeginVB.LabelLabel1AutaSize-"1'TrueCaption=“最大元素值"Height=180Left=6840TabIndex=1Top=360Width-900EndEndAttributeVB_Nain«?"*Foml"AttributeVB_G1oba1NameSpace二FalseAttributeVB.Creatable=FalseAttributeVB_Predeclaredld=TrueAttributeVB_Exposed=FalseDinaOAsIntegerDianAsIntegerDi*mAsIntegerPrivateSubCommand1Click()OpenApp.Path&*test32in.txt*ForInputAs#50"Open'd:test\test32in.txt"ForInputAs#50Input#50,m,nReDima(m,n)AsIntegerFori=1TomForj=1TonInput#50,a(i,j)Picturel.Printa(i,j);NextjPicturel.PrintNextiCloseEndSubPrivateSubConunaiid2_CHck()nun=a(l,1)k-Ir=1Fori=1TomForj-1TonIfmm<a(i,j)Thenm=a(i,j);k=i:r=jNextj,iTextl-maText2=kText3=rEndSubPrivateSubCommand3Click()EndUnloadMeEndSubPrivateSubFormLoadOOpen"d:\test41in.txt"ForOutputAs#50Write#5Q,7Write#50,6Fori=1To7ForJ1To6x=Int(End*900}+100Write#50,x,NextjJWrite#50,NextiClose院校名班级软盘端号准考证号姓名成陵、调试程序r（程序存盘文件名TEST41.FRM、TEST41.VBP）（40分）在磁盘上有一名为“3T41.VBP”的文件（程序界面如卜图所示）.其功能为：在文本框中Textl和Text2中分别输入源字符串和子字符串,单击“统计”按钮后，程序统计子字符串在海字符串中出现次数.并将统计结果显示在标签Labd3卜，jdQlxj源字符串|ThisisaVisualProgram!子字符串厂子串在源串中共出现了3次！H---魂讦""；-"1程序中有若干错误.请调试逋过（在不IN除整条语句的前提下，可依改或补充语句，添加的语句不能超过两条.调试通过后仍以文件名TEST41.VBP存盘），一编程：（程序存盘文件名TEST42,VBPTEST42,FRMX60评委打分模拟程序，要求建立窗体如图2所示,程序功能如下：