程序改错答案版

程序改错112592'题目:编程求一个十进制整数n的各位数字之和，设n为小于或等于5位的数。'------------------------------------------------OptionExplicitPrivateSubForm_Click()DimNAsInteger,SumAsInteger,S1AsString,S2AsStringDimiAsInteger,ChAsStringSum=0N=InputBox(输入整数n)S1=Str(N)S1=Trim(S1)Fori=1ToLen(S1)'**********ERROR**********Ch=Mid(N,i,1)'**********ERROR**********Sum=Val(Ch)NextiPrint该整数的各位数之和是：;SumEndSub答案：Ch=Mid(S1,i,1)Sum=Sum+Val(Ch)12610'题目：程序功能根据输入的学习成绩,分别显示优秀(90分以上),良好(75分以上),及格(60分以上)不及格四个等级.'------------------------------------------------OptionExplicitPrivateSubForm_Click()ClsDimiAsIntegeri=InputBox(请输入学习成绩)SelectCasei'**********ERROR**********Case0i100MsgBox成绩应该在0--100之间'**********ERROR**********Case90Print优秀Case75To89Print良好Case60To74Print及格'**********ERROR**********CaseMsgBox不及格,vbCriticalEndSelectEndSub答案：Case100xorx0Case90to100CaseElse12616.题目：求s=1!+3!+5!+7!，阶乘的计算用Function过程fact实现.'------------------------------------------------OptionExplicitPrivateSubForm_Click()DimiAsInteger,sAsInteger'**********ERROR**********Fori=1To7s=s+fact(i)NextiPrintsEndSub'**********ERROR**********PublicFunctionfact()DimtAsInteger,iAsIntegert=1Fori=1Tont=t*iNexti'**********ERROR**********fact=iEndFunction答案：Fori=1To7Step2PublicFunctionfact%(n%)fact=t12620题目:编程实现从左到右的滚动字幕，滚动的速度由滚动条控件来控制。'------------------------------------------------OptionExplicitPrivateSubHScroll1_Scroll()'**********ERROR**********Timer1.Interval=HScroll1.Min-HScroll1.ValueEndSubPrivateSubTimer1_Timer()'**********ERROR**********IfLabel1.Left=Form1.WidthThen'**********ERROR**********程序改错2Label1.Left=Label1.WidthElseLabel1.Left=Label1.Left+100EndIfEndSub答案1）.Timer1.Interval=HScroll1.Value-HScroll1.Min2).IfLabel1.Left=Form1.WidthThen3).Label1.Left=012624.题目：程序功能：求1+2+3……，直到其和超出3000为止，并输入结果。'------------------------------------------------OptionExplicitPrivateSubForm_Click()ClsDimiAsIntegerDimsAsSinglei=1'**********ERROR**********s=0Do'**********ERROR**********i=i+2s=s+i'**********ERROR**********Loops3000Print从1到:;i;的和是;sEndSub答案：s=1i=i+1LoopUntils300012629.题目：下面的程序段用于实现以下功能：建立一顺序文件，存放10名同学的学号和三门功课成绩，显示该文件内所有记录，并同时显示其总分和平均分。'------------------------------------------------OptionExplicitPrivateSubForm_Click()Dimno%,c1%,c2%,c3%,iAsInteger'**********ERROR**********Openc:\2.txtForInputAs#1Fori=1To10no=InputBox(请输入学号)c1=InputBox(请输入数学成绩)c2=InputBox(请输入语文成绩)c3=InputBox(请输入外语)Write#1,no,c1,c2,c2NextiClose#1'**********ERROR**********Openc:\2.txtForOutputAs#1Fori=1To10'**********ERROR**********Print#1,no,c1,c2,c3Printno,c1,c2,c3,c1+c2+c3,(c1+c2+c3)/3NextiClose#1EndSub答案：1)Openc:\2.txtForOutputAs#12)Openc:\2.txtForInputAs#13）Input#1,no,c1,c2,c312677.题目：求s=72+102+132+……832的值。'------------------------------------------------OptionExplicitPrivateSubForm_Click()ClsDimsAsLongDimiAsInteger'**********ERROR**********s=1'**********ERROR**********Fori=7To832s=s+i'**********ERROR**********loop30PrintsEndSub答案：s=0Fori=7to832step30Loopuntil3012683.题目：产生30个小于100的程序改错3成绩随机数，并统计出优、良、中等、及格、不及格数的个数，并计算出成绩属于优秀段的成绩平均分。'------------------------------------------------OptionExplicitPrivateSubForm_Click()Dimk%,a%,bjg%,jg%,zd%,lh%,yxAsIntegerDimpjfAsIntegerRandomizepjf=0Fork=1To30'**********ERROR**********a=Int(Rnd())SelectCaseaCase0To59bjg=bjg+1'不及格Case60To69jg=jg+1'及格Case70To79zd=zd+1'中等Case80To89lh=lh+1'良好Case90To100yx=yx+1'优秀'**********ERROR**********pjf=pjf+1EndSelectNextk'**********ERROR**********Ifyx0Thenpjf=pjf/30Debug.Print不及格+Str$(bjg)+人，及格+Str$(jg)+人，中等+Str$(zd)+人;Debug.Print良好+Str$(lh)+优秀+Str$(yx)+人Debug.Print优秀分数段成绩平均分&pjfEndSub答案：a=Int(Rnd()*100)pjf=pjf+aIfyx0Thenpjf=pjf/yx12687.'题目:使用顺序文件读写方式编写一个简单的记事本应用程序，'基本逻辑是：假设在考生目录中有一个名为exam.txt的文本文件。当点击打开按钮(Command1)时，程序将exam.Txt文件中的内容显示在文本框(Text1)中，当点击新建按钮(Command2)时，清空Text1中的内容；用户可以在Text1中进行编辑操作，当点击保存按钮(Command3)时，将Text1中的内容保存在exam.txt文件中。当点击退出按钮(Command4)时关闭本窗体。'------------------------------------------------OptionExplicitPrivateSubCommand1_Click()DimAAsStringText1=Openexam.txtForInputAs#1DoWhileNotEOF(1)'**********ERROR**********Input#0,AText1=Text1+ALoop'**********ERROR**********Close#0EndSubPrivateSubCommand2_Click()Text1=EndSubPrivateSubCommand3_Click()Openexam.TxtForOutputAs#1'**********ERROR**********Input#1,Text1Close#1EndSubPrivateSubCommand4_Click()UnloadMeEndSub答案：Input#1,AClose#1Write#1,Text112697.'题目：以下程序段用于打印如图1所示的九九乘法表：'------------------------------------------------OptionExplicitPrivateSubForm_Click()DimiAsInteger,jAsInteger,kAsInteger程序改错4PrintTab(30);9*9tablePrint:PrintPrint*;Fori=1To9'**********ERROR**********PrintTab(i*6);iNextiPrintForj=1To9Printj;;'**********ERROR**********Fork=1To9'**********ERROR**********PrintTab(j*6);j*k;;NextkPrintNextjEndSub答案：PrintTab(i*6);i;Fork=1TojPrintTab(k*6);j*k;;12701.'题目：用辗转相除法求两个整数的最大公约数。'------------------------------------------------OptionExplicitFunctiongcd(ByValmAsInteger,ByValnAsInteger)AsIntegerDimrAsIntegerr=mModnDoWhiler0'**********ERROR**********n=mn=rr=mModnLoop'**********ERROR**********gcd=rEndFunctionPrivateSubForm_Click()DimaAsInteger,bAsInteger,cAsIntegera=InputBox(输入一个整数)b=InputBox(输入