計算機上機練習35套含答案

院校名 班皴 軟盤編號準考證號姓名成娘一'調(diào)試程序用序存盤文件名TESTII.VBP、TESTI1.FRMX40分）磁盤上有一個名為?TESTILVBP”的文件（程序界面如下圖1所示）.其功能為：單擊“打印”按鈕，顯示圖形如圖1所示。單擊“退出”按鈿，則退出程序。10000010100010 I, ooioioo L.打印0001000 r"r 001010001000101000001 退出程序中有若卜錯誤,請調(diào)試通過（在不制除整條語句的前提下,可修改或補充語句，添加的語句不傕超過兩條..調(diào)試通過后仍以文件名TESTII.VBP存盤：1二、編程：（程序存盤文件名TESTI2.VBP、TEST12.FRM）（6O分）建立一個窗體如圖2所示.程序功能要求如下：I、單擊“讀入按鈕,從隨機文件“Siuda「中讀出所有的記錄存入自定義的記錄類型數(shù)組Siudenl中,同時.將數(shù)據(jù)H示在列衣框Listl和List2中.已知每條記錄包含有兩個數(shù)據(jù)項.姓名、ame（定長為S的字符串類型》和平均成績AveSeef單精度類型）.2.單擊“排序”按鈕.按AvcScore（即平均成績）從高到低排序,并將排序的結(jié)果由新顯示在列表框Listl和List2中.圖2圖2336773712I82,I72,I74.IS7.IS8...結(jié)束 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院校名 班皴 軟盤編號準考證號姓名成娘一'調(diào)試程序（程序存盤文件名TEST21.VBP、TEST2I.FRMK4O分）磁盤上有一個名為-rESTSIVB產(chǎn)'的文書.該程序功能為：當單擊“顯示”按鈕時，隨機產(chǎn)生個大寫字母并以此字母為中心生成如下圖形“例如，與的機產(chǎn)牛的字母為“X”時.生成的圖形如圖1所示.圖I程序中有若干常誤.請調(diào)試通過（在不IM除整條語句的前提卜,可修改或補充語句.添加的語句不能超過兩條.調(diào)試通過后仍以文件名TEST21,VBP存盤），二、娟程：（程序存盤文件名TEST22.VBP、TEST22.FRM）（60分）建立個窗體如圖2所示.程序功能要求如下：I.單擊“注入”按鈕,從磁盤文件“tesl22」N.lxL中讀入10個數(shù)據(jù).并顯示在文本框text1中.2、單擊“刪除按鈕.在彈出的輸入框中輸入芾要弱除的數(shù)據(jù)，將刪除謨數(shù)據(jù)并符IM除后的結(jié)果顯示在文本框tex（2中.3.單擊“存盤”按鈿，將刪除后的結(jié)果存入磁盤文件“iesi22_0lT.txL中. 結(jié)束 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除后的數(shù)組”BeginPropertyFontName="宋體"Size=14.25Charset=134Weight=100Underline=0，F(xiàn)alseItalic=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除二”請輸入要刪除的數(shù)”))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院校名 班皴 軟盤編號準考證號姓名成娘一'調(diào)試程序（程序存盤文件名TEST31.VBP、TEST3I.FRMK4O分）碳盤上有一個名為FEST3I.VB1的文件,其功能為：計算以下數(shù)列的前20項之和，并將求和計算的結(jié)果輸出到文本框lestl中。程序中有若干錯誤,請調(diào)試通過（在不1M除整條語句的前提下，可修改或補充語句，添加的語句不能超過兩條。調(diào)試通過后仍以文件名TEST3LVBP才盤）.二、娟程：（程序存盤文件名TEST32.VBP、TEST32.FRM）（60分）建立一個窗體如圖2所示.程序功能是：單擊顯示”按鈕后，在圖片框中顯示矩陣如圖2所示.其中，該矩陣的起始字母、行數(shù)和列數(shù)均由用戶通過文本框輸入，并且起始字母只能給人英文大寫字母.矩陣由起始字母以及其后的有限個字母循環(huán)排列構(gòu)成（后超過"Z".則從“A”開始繼續(xù)）.-loixiXYzAcXYzBOXYABcXzABcYzAB圖2結(jié)束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="行數(shù)”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讀入數(shù)據(jù).計算.保存結(jié)果.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普通高等學(xué)校計算機應(yīng)用知識和能力二級（VisualBasic）上機考試試卷一.調(diào)試程序（程序存盤文件名TEST2I.VBP、TEST21.FRM）（40分）在峨盤上有一名為"TEST2I.VBP"的文件.（程序界面如圖I所示）其功能為：點擊開始按忸，找出由數(shù)字“1二-2”、“3”組成的所有：位數(shù)，并將結(jié)果顯示在列表框中.-ipixiWW1112I113I121I122I123⑸I1321133C111212圖I程序中有若干錯誤，請調(diào)試通過（在不刪除整條語句的前提下，可修改或者補充語句，添加的語句不能超過兩條。調(diào)試通過后仍以文件名TEST2LVBP存盤）。二.姐程：（程序存盤文件名TEST22.VHP、TEST22.FRM）（60分）某商場進行節(jié)日優(yōu)惠促銷.促伯方案為：苴先根據(jù)客戶消費金額滿100xn元進行優(yōu)惠.然后.再按照客戶類型進行打折.具體方案如卜:客戶類型普通客戶仝員VIP打折幅度（DisCounl）0.90.850.8優(yōu)惠價0<=消費金額<300時,優(yōu)惠價=消費金額-n*10300<=消費金額<600時,優(yōu)惠價=消費金額-n*15600<=消費金額<1000時,優(yōu)惠價=消費金額-n-25消費金額>=1000時.優(yōu)患價=消費金額-n?35（其中,n為消費金額中涓100的次數(shù)）實付金額實付金額=優(yōu)惠價*Discoum例如,用戶消費金額為550元.首先根據(jù)消費金額優(yōu)惠5?15=75元,再按照客戶類5!打折，如果是會員客戶.則實付金額=<550-5*15）*0,85=403.75元編月程序。建立個窗體如圖2所示.程序功能要求如下：.單擊“計算”按鈕.則計算實付金額并顯示在相應(yīng)的文本框中：.單擊“清除”按鈕，則將文本框TcxH和Tcxt2請空，并將焦點設(shè)置在Thxtl上：二編制程序（程序存盤文件名TEST22VBp、TEST22.FRM）（60分）評分標準：.文件存盤正確.正確設(shè)計界面3,正確輸入消費金額.正確處理“折.正確處理優(yōu)思.正確計算實付金額7,正確清除和設(shè)置焦點.程件結(jié)構(gòu)合理,清嘶

普通高等學(xué)校計算機應(yīng)用知識和能力二級（VisualBasic）上機考試試卷一.調(diào)試程序（程序存盤文件名TEST31.VBP、TEST31.FRM）（40分）在磁盤h有一名為“TEST3LVBP”的文件.其功能為：輸入自變量X,根據(jù)下面的靠級數(shù)計算正弦函數(shù)近似值.要求精確度達到0.000001?3 3 5 7 9婀X）…方方手,圖I程序中有若干錯誤，請調(diào)試通過（在不刪除整條語句的前提下，可修改或者補充語句，乖加的語句不能超過兩條。調(diào)試通過后仍以文件名TEST3LVBP存盤）。二編程：（程序存盤文件名TEST32.VHP、TEST32.FRM）（60分）設(shè)計一個用戶登錄界面如圖2所示.程序功能要求如下：.當輸入“用戶名”和“密碼”并選擇“登錄”后.單擊“確定”按鈕,則在數(shù)據(jù)文件中去查找謨用戶名和密碼是否均為正確.若用戶名和密碼正確,則住對話框中提示“合法用戶！二否則提示“不是合法用戶或密碼錯誤！”..當愉入“用戶名”和“密嗎”并選擇“注冊”后,單擊“確定”按鈕,則向數(shù)據(jù)文件“uscndal'中填加新用戶（包括用戶名和密碼）.如已有相同用戶名，則提示“該用戶名已在使用！語重新選擇工.單擊“消除”按鈕，則清除用戶名和密碼框中的內(nèi)容,并將焦點設(shè)置在用戶名框。10.10.H.圖2 以….下….供…教一師.…用 三調(diào)試程序（程序存盤文件名TEST31.VBP、TEST31.FRM）（40分）四.五.編制程序（程序存盤文件名TEST3LVBP、TEST31FRM）（60分）評分標準：文件存盤正確1E確設(shè)計界面正確使用單選按鈕正確登錄正確注冊正確清除和設(shè)置保點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院校名— —班級— —軟盤編號—準考證號姓名成娘-、調(diào)試程序（程序存盤文件名TESTII.FRM、TESTI1.VBP）（40分）在破盤上有一個名為“TEST1LVBP”的文件（程序界面如圖1所示）。程序功能如下：單擊“查找”按鈕后,找HIL5O之間兩相鄰自然數(shù)之和為素數(shù)的數(shù)對.并顯示在文本框■xU中。圖1程序中有若干錯誤，請謂試通過（在不刪除整條語句的前提下，可修改或補充語句,添加的這句不能ifl過兩條。調(diào)試通過后仍以文件名TEST1LVBP存盤力、編程（程序存盤文件名TEST12.VBPTEST12.FRM）（60分）建立一個窗體如圖2所示,程序功能要求如下：顯示| ……耀………: 保存圖21、擊“顯示”按鈕，從文件“testl2in.Tx1”中讀出6X6矩陣的數(shù)據(jù)，并顯示在圖片框PictureI中：2、選擇“由對角線之和”單選按鈕,再單擊“計算”按鈕，則將矩陣主對角/（左上元至右下元）元素之和顯示在文本框Texil中：3、選擇“副對角線之和單選按鈕.再單擊“計?！卑粹o，則將矩陣副對角或（右上元至左下元）元素之和顯示在文本框TEXT1中；4、單擊保存按鈕，將計算結(jié)果追加到文件“Testi2oirt.Txt”中*以 下 供 敦 師 用軟盤泮閱評語：調(diào)試程序（40分乂存盤文件名TEST1I.FRMTESTII.VBP）編制程序（60分）（存盤文件名TESTI2.FRMTESTI2.VBP）坪分標準：.文件存盤正確.正確設(shè)計界面.正確實現(xiàn)數(shù)組顯示.正確實現(xiàn)計算主對角線之和.正確實現(xiàn)計算副對角線之和.正確實現(xiàn)保存按鈕功能.程序結(jié)構(gòu)合理、清晰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="副對角戰(zhàn)之和“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="結(jié)果"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院校名班級軟盤端號準考證號姓名成娘調(diào)試程序（存盤文件名TEST2I.FRMTEST21.VBP）（40分）在磁盤上有一個名為-TEST2I.VBP"的文件《程序界面如圖1所示）.程序功能如下花窗體上每隔一秒鐘顯示當前時間。單擊“運行”按鈕.根據(jù)當前時間,在12點以加.顯示“早上好”：12點至18點,顯示“下午好”：18點以后，顯示“晚上好工單由“退出”按鈕，則退出程序。圖1程序中有若干精誤.調(diào)試通過（在不刪除整條語句的前提下,可修改或撲充諳旬，添加的詔句不能超過兩條）.調(diào)試通過后仍以文件名TEST2I.VBP/ffit）.二.編程（程序存盤文件名TEST22.FRMTEST22.VBP）（60分）建立一個窗體如圖2所示.程序功能要求如下：圖2I、程序啟動時只有“生成”按鈕可用；2、單擊“生成”按鈕后，隨機產(chǎn)生20個［20,40］區(qū)間內(nèi)的整數(shù)并顯示在列表框中，同時.所有按鈕變?yōu)榭捎茫?、單擊“排序”按鈕后，20個整數(shù)按從小到大排序并顯示在列表框中;4、單擊“存盤”按鈕后，數(shù)據(jù)寫入文件Test22ouuxi”,并退出程序。以 下 伏 教 師 用軟盤評閱評語：.調(diào)試程序（存盤文件名TEST2I.FRMTEST21.VBP）（40分）..編制程序（存盤文件名TEST22.FRMTEST22.VBP）（60分）評分標準：.文件存盤正確.正確設(shè)計界面.正確產(chǎn)生并顯示的機數(shù).正確推序并顯示.正確寫入數(shù)據(jù).正確退出程序.程序結(jié)構(gòu)合理、清晰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"結(jié)果"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院校名班級軟盤端號準考證號姓名成娘調(diào)試程序（存盤文件名TEST3I.FRMTEST3I.VBP）（40分）在磁盤上有一個名為-TEST3I.VBP"的文件（程序界面如圖1所示）.程序功能如下：單擊“判斷”按鈕后.判斷文本樞中輸入的數(shù)據(jù)是否是升序收，若是則添加到列衣機Lisil中，若不是則彈出信息框提示“不是升序數(shù)二升序數(shù)是指整數(shù)的各位數(shù)字白圖I程序中有若干錯誤,調(diào)試通過（在不刪除整條語句的前提下,可修改或樸充語句,添加的語句不能超過兩條）.調(diào)試通過后仍以文件名TEST3LVBP存盤）。編制程序（存盤文件名TEST32.FRMTEST32.VBP）（60分）建立一個窗體如圖2所示，程序功能要求如下：I、單擊“讀入”按鈕，從文件“?ftsBZin.txi”中讀入有字數(shù)紈，并顯示在文本框Textl中：2、單擊“插入”按鈕,彈出個對話機要求輸入個整數(shù).再格讀整數(shù)插入掠數(shù)阻并保持有序.3、單擊“存盤”按鈕，將生成數(shù)組存入文件“Test32oui.Txt”中..調(diào)試程序（40分乂存盤文件名TEST3I.FRMTEST3I.VBP）二.編制程序（60分）（存盤文件名TEST32.FRMTEST32.VBP）評分標準：.文件存盤正確.正確設(shè)計界面.正確從文件中讀出并顯示數(shù)據(jù).正確插入并睡示數(shù)據(jù).1E確將數(shù)據(jù)寫入文件.程序結(jié)構(gòu)合理、潔畸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 ="產(chǎn)生.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

普通高等學(xué)校計算機應(yīng)用知識和能力

二級（VISUALBASIC）上機考試試卷（60分鐘）

院校名班皴軟盤媳號準考證號姓名成m一、調(diào)試程序（程序存盤文件名TEST1LFRM、TESTII.VBPM4O分）磁盤上有一個名為TEST11.VBP的文件（程序界面如下圖所示）.其功能為：先在文本框Tesd中輸入一個字符串,按下回車段時.讀字符串逆序在文本框Tesi2中顯示.其中,文本框依匕不接受鍵盤輸入.文本框Ibal可接受的字符數(shù)不超過20.逆序華族逆序華族輸入字符 |abcd789%&#XYZ逆序字符|ZYX=&%9S7dcba圖I程序中有若卜錯誤,請調(diào)試通過（在不刷除整條語句的前提F,可修改或補充語句，添加的語句不能超過兩條.調(diào)試通過后仍以文件名TESTILVBP存盤1二、第程：（程序存盤文件名TESTI2.VBP、TESTI2.FRM）（60分）編寫一個高速公路收費程序，已知收費標準和收費辦法如下：車型小轎車客車貨車收炭標準（元八0公里）1.2151.8收費辦法行車里程v=100km時,應(yīng)付費用=10*收費標準行車里程v=200km時,應(yīng)付費用=201?收費標準行車里程＜=350km時，應(yīng)付費用=35*收費標準行車里程〉350km時，應(yīng)付費用=50*收費標準程序界面如圖2所示，程序功能要求如下:k選擇乍型并輸入行車里程后，單擊“計算”按鈕,則顯示應(yīng)付費用；2、程序啟動時，默認的車型為小轎車；3、行車里程必須大于0?否則提示數(shù)據(jù)有誤，并要求市新輸入：4.電擊“清除”按鈕,則清空行車里程和應(yīng)忖費用文本框.并將焦點設(shè)置在行車里積上：5,使用函數(shù)計算應(yīng)付費用.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”數(shù)據(jù)有誤,請重新輸入！’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'窗口統(tǒng)省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("輸入要插入的數(shù)：*))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

院校名班級 軟盤墉號準考證號姓名 成績 ,、調(diào)試： '1七件名TEST2I.FRM、TEST21VBp””）在磁盤上有一名為“TEST2LVBP”的文件（程序界面如下圖所示）.其功能為：腎用戶單擊按鈕“開始”時.在窗口中輸出如卜圖形.圖1程序中有若干錯誤.請調(diào)試通過（在不刪除整條語句的前提下,可修改或補充語句.添加的語句不能超過兩條.調(diào)試通過后仍以文件名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讀入數(shù)據(jù),并顯示在文本框testl中.2、電擊“加密”按鈕，時原文內(nèi)容進行加密，并顯小在文本框Test2中.（加密算法：用Mid函數(shù)取出要加密的字符中中的個字符，求出它的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

普通高等學(xué)校計算機應(yīng)用知識和能力二級（VISUALBASIC）上機考試試卷（60分仲）院校名班級軟盤城號準考證號姓名或tt一、調(diào)試程行：（程序存財文件名TEST31.FRM、TEST31.VBPM40分）在磁盤上有一名為“TEST31.VBP”的程序文件,讀程序功能為：單擊“開始”按鈕.彈出對話框..當用戶在對話框中輸入一個小寫英文字母并單擊“確定”后.程序以此英文字母為首字符，輸出一個5X5的字符矩陣.例如，當轆入字母為“f”時，愉出如下圖所示。圖I程序中有若干錯誤，請調(diào)試通過（在不刪除整條語句的前提下，可修改或補充語句，添加的唐句不能融過兩條。調(diào)試通過后仍以文件名TEST3LVBP存盤）.二、編程：（程序存盤文件名TEST32.VBPTEST32.FRM）（6O分）建立個富體如圖2所示.程序功能要求如下：I.單擊“談入矩陣”按鈕,苜先從順序文件“0t32in.ixi"（如圖3所示）中讀取矩陣的行數(shù)和列數(shù).然后再讀取矩陣的各個元素數(shù)據(jù)，并將矩陣顯示在圖片框Picture1中單擊判斷”按鈕,將矩陣元素的最大值及其所在行、列值顯示在相應(yīng)文本框中.“讀入矩陣”按鈕和“判斷”按如交替有效.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院校名班級軟盤端號準考證號姓名成陵、調(diào)試程序r（程序存盤文件名TEST41.FRM、TEST41.VBP）（40分）在磁盤上有一名為“3T41.VBP”的文件（程序界面如卜圖所示）.其功能為：在文本框中Textl和Text2中分別輸入源字符串和子字符串,單擊“統(tǒng)計”按鈕后，程序統(tǒng)計子字符串在海字符串中出現(xiàn)次數(shù).并將統(tǒng)計結(jié)果顯示在標簽Labd3卜，jdQlxj源字符串|ThisisaVisualProgram!子字符串廠子串在源串中共出現(xiàn)了3次！H---魂訐""；-"1程序中有若干錯誤.請調(diào)試逋過（在不IN除整條語句的前提下，可依改或補充語句，添加的語句不能超過兩條.調(diào)試通過后仍以文件名TEST41.VBP存盤），一編程：（程序存盤文件名TEST42,VBPTEST42,FRMX60評委打分模擬程序，要求建立窗體如圖2所示,程序功能如下：