程序改错-答案版

程序改错'题目:编程求一个十进制整数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**********Case0<i<100MsgBox"成绩应该在0--100之间"""'**********ERROR**********Case90Print"优秀"Case75To89Print"良好"Case60To74Print"及格"'**********ERROR**********CaseMsgBox"不及格",vbCriticalEndSelectEndSub答案：Case100<xorx<0Case90to100CaseElse12616.题目：求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**********Label1.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**********Loops>3000Print"从1到:";i;"的和是";sEndSub答案：s=1i=i+1LoopUntils>300012629.题目：下面的程序段用于实现以下功能：建立一顺序文件，存放10名同学的学号和三门功课成绩，显示该文件内所有记录，并同时显示其总分和平均分。'OptionExplicitPrivateSubForm_Click()Dimno%,c1%,c2%,c3%,iAsInteger'**********ERROR**********Open"c:\2.txt"ForInputAs#1Fori=1To10no=InputBox("请输入学号")c1=InputBox("请输入数学成绩")c2=InputBox("请输入语文成绩")c3=InputBox("请输入外语")Write#1,no,c1,c2,c2NextiClose#1'**********ERROR**********Open"c:\2.txt"ForOutputAs#1Fori=1To10'**********ERROR**********Print#1,no,c1,c2,c3Printno,c1,c2,c3,c1+c2+c3,(c1+c2+c3)/3NextiClose#1EndSub答案：1)Open"c:\2.txt"ForOutputAs#12)Open"c:\2.txt"ForInputAs#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的PrivateSubCommand1_Click()DimxAsSingle,yAsSinglex=Val(Text1.Text)Ifx<100Then'**********ERROR**********x=yElseIfx<200Theny=0.95*xElseIfx<300Theny=0.9*xElseIfx<500Theny=0.8*xElsey=0.7*x'**********ERROR**********ElseIfEndIfEndIfEndIf'**********ERROR**********Text2.Text=xEndSub答案：y=xEndifText1.Text=y12728.题目：下面的程序段用于删除数组中指定位置的数字，如果位置错误给出提示，否则分别显示删除前后的数组元素'OptionExplicitPrivateSubForm_Click()Dima(10)AsInteger,xAsInteger,iAsInteger,kAsIntegerFori=1To10a(i)=Int(Rnd*90)+10Printa(i);NextiPrintx=InputBox("请输入要删除第几位数字")Ifx>0Andx<=10Then'**********ERROR**********Fork=xTo10'**********ERROR**********a(k)=a(k-1)NextkPrint"删除后的数组:"Fori=1To9Printa(i);NextiElsePrint"删除位置错误"'**********ERROR**********EndEndSub答案：Fork=xto9a(k)=a(k+1)Endif1、题目：下面程序的作用是产生100以内的全部素数，并按每行5个数据输出。PrivateFunctionprime(ByValnAsInteger)DimiAsIntegerprime=1Ifn<=1Thenprime=0'**********ERROR**********Fori=2Ton-1IfnModi=0Thenprime=0NextiEndFunctionPrivateSubForm_Click