填空与改错答案在后

程序调01PublicSubdalt!,a#,b#,c#InputBox("a")InputBox("InputBox("===adalt=b*程序调01PublicSubdalt!,a#,b#,c#InputBox("a")InputBox("InputBox("===adalt=b*b-4*a*if---- Format((-b+dalt)/2/a),"0.00"+/a,daltdalt)/+Chr(10)+Format((-belseif--- MsgBoxFormat(-b/2/a,"0.00")+Chr(13)+Chr(10)Format(-b/2/a,3MsgBoxFormat((-b+dalt)/2/a,"0.00")+"+i"+Chr(13)+Chr(10)+b-dalt)/2/a,"0.00")+"-i"EndEnd程序调试OptionExplicitPublicSub'例如：输Iamagoodstudent.'要求输IAmAGoodoldsenAsString,newsenAskAsString,lastcharAsInteger,iAsIntegeroldsenk1lastchar2Fori=1kchar3Iflastchar=""EndIfnewsen=Next=newsen&=Form1.Print"input:";oldsenForm1.Print"output:";lastchar2Fori=1kchar3Iflastchar=""EndIfnewsen=Next=newsen&=Form1.Print"input:";oldsenForm1.Print"output:";End程序调试PublicSubDimiAsInteger'******1Dimks0s2To/+For===11s'*******3i+kk=1/s=sNext"s=";程序调04OptionExplicitPublicSubsame()252562525DimiAsx1AsString,x2Asi=1To==-------1i3DimiAsx1AsString,x2Asi=1To==-------1i3EndIfNextEnd程序调试PublicSubarmstrongAsIntegeriAsIntegerhundredAsIntegeriAsInteger1To999hundred=----1---ten=Int((iMod100)\one2If---- Form1.Printi;"isarmstrongEndIfNextEnd程序调06PublicSubsum()DimfAsi1f=2f=f+sign/(i*(i+3NextForm1.Print"f=";End程序调07OptionExplicitPublicSubf=2f=f+sign/(i*(i+3NextForm1.Print"f=";End程序调07OptionExplicitPublicSubDimn%,i%,x%x=fori=6to---1----step----2---3NextForm1.PrintxEnd程序调试PublicSub'求出该数列的第17个数是多少ii=4==12===last_one+12Ifi=17Form1.Print"No:17=";End3LoopWhilethis_one<=100000000#Form1.Print"No:";------4------;===last_one+12Ifi=17Form1.Print"No:17=";End3LoopWhilethis_one<=100000000#Form1.Print"No:";------4------;"is>1E+8"End程序调试PublicSubDimstr1AslengthAsIntegersumAsInteger'查到的个数iAsIntegerstr1InputBox("请输入一个字符串")length=----1----i=sum=DoWhilei<----2---If----3----="at"Thensum=sum+1Endi=i+If---- MsgBoxMsgBox&Str(sum)&EndIf程序调试OptionPublicSubmAsInteger,nAsIntegerPublicSubmAsInteger,nAsIntegeriAsIntegerdivAsIntegerm=Val(InputBox("m="))n=LoopWhile----1---mn2Ifn<mThendiv=nEndDoWhilemModdiv<>0OrnModdiv<>3Form1.Printm;n程序调11PublicSubWrap()lengthAsIntegerstr1AsStringstrleftAsStringstrrightAsStringkAsstr1InputBox('****错误1*****length=Val(str1)k=1strleftLeft(str1,k'****错误3*****strrightRight(str1,k)'从右边起逐个取出一个字符'****错误4****Ifstrleft=strrightThenExitDoEndk=k+/LoopWhilekstrrightRight(str1,k)'从右边起逐个取出一个字符'****错误4****Ifstrleft=strrightThenExitDoEndk=k+/LoopWhilek<=2str1Ifk>length/Form1.Printstr1&End程序调12OptionExplicitPublicSubDToB()iAsVal(InputBox("x="))Form1.PrintresTrim(Str(res))&-----2-----==3LoopWhile----4-----程序调试PublicSubDimRAsIntegerDimXAsDimtimesAsIntegerRInt(Rnd*100)11,100]times=1DimtimesAsIntegerRInt(Rnd*100)11,100]times=1SelectCaseXCaseForm1.PrintExitDoCaseIs<CaseElseEndtimestimes1'******2******LoopWhiletimes>5Iftimes>5ThenForm1.Print"猜数失败,游戏结束!"'******错误3******Form1.Print&Str(X)End程序调14PublicSubsiAsSingleAsInteger1i12s=s+2^3Form1.Print"s=";End程序调15OptionExplicitPublicSubfind()DimcountN%,=End程序调15OptionExplicitPublicSubfind()DimcountN%,=112Form1.PrintcountN=countN+1EndIf3End程序调16PublicSube()'e的计算公式为：e=1+1/1!+1/2!+…+1/n!。Dimn,term,0:term=1:t=nn=n+t=---1--term=---2----LoopWhilet>form1.print"e="&---3---End程序调17OptionExplicitPublicSubqiuN()DimxAsSingle,sAsSingle,nAsInteger,s1AsSingle,pAsx=1s=1:np=1s1=ss(n+1)*234form1.Print"TheEndofn";n,"s=";x=1s=1:np=1s1=ss(n+1)*234form1.Print"TheEndofn";n,"s=";程序调18PublicSubprt()'''''''''9iAsInteger,jAsFori=9To1Form1.PrintSpace(i);Forj=1To19-2*iNextjNextEndFunction程序调19PublicSub'''''''''1程序调19PublicSub'''''''''19iAsIntegerjAsstartAsiAs1ToIfi<=---1---inum=220*i-numj==10+19-2*To---2---Form1.PrintTab(start+j);---3---NextjNext程序调试PublicSubkAsIntegerAs==100To1jDoWhilek<=jAndIfiModk=234tt+EndIfNextForm1.Print"t=";AsIntegerAs==100To1jDoWhilek<=jAndIfiModk=234tt+EndIfNextForm1.Print"t=";End程序调21PublicSub'''Dimx(30)AssumAsInteger,aveAsIntegeriAsIntegercountAsIntegerFori=1Tox(i)=Int(Rnd*100)+1Nextisum=Fori=1Tosum1Nextave2Fori=1ToForm1.Printx(i);IfiMod5Nextave2Fori=1ToForm1.Printx(i);IfiMod5=0ThenForm1.PrintNextiForm1.PrintFori=1To30Ifx(i)>ave3Form1.Printx(i);If------4--------ThenForm1.PrintEndIfNextiForm1.Printcount;程序调22OptionExplicitPublicSubDimxAsa()AsiAsInteger,posAsIntegera(10)AsInteger=1ToFora(i)=Int(Rnd*100)+1NextiFori=1To10Form1.Printa(i);"Nextx==i=1ToIfx=a(i)1Nextx==i=1ToIfx=a(i)1EndIfNextIfpos<>0Fori=-----2------To3NextReDimPreservea(9)9Fori=1To9Form1.Printa(i);"";NextiMsgBox&Str(x)&EndIf程序调23PublicSubcountAsIntegerIAsInteger,nAsForI=1To10'*****错误2*****n=Int(Rnd*90)a(I)=nForm1.PrintIfa(I)Mod2=0Thencount=count+1NextIEndSub程序调24PublicSubIfa(I)Mod2=0Thencount=count+1NextIEndSub程序调24PublicSub'再按照字符ASCII码从小到大的顺序将这些字符重新组成新的字符串。DimxAsStringyAsStringc()AsStringxkkiInteger'字符串长度Integer,jAsIntegerAs1ReDimc(k)AsStringFori=1To2c(i)Nextk-Fori=1Forj3Ifc(i)>c(j)=EndIfNextNext==y=Fori=1Toy=yNextForm1.Printy=Fori=1Toy=yNextForm1.PrintEnd程序调25PublicSubConstn=20i,p,j,ToDimFori=a(i)=----1---NextForip=1Ton-ij=iToIfa(p)<a(j)Then----2---NextIf----3----Thent=a(i):a(i)=a(p):a(p)=tNextiFori=2TonIfa(i)<>a(i-1)ThenForm1.Print----4---NextiEnd程序调26OptionExplicitPublicSub'''1121''''''1341014111561n61520=Dim+1)AsByte,iAsInteger,jAsDimsAsString'给数组aFori=1Ton+1a(i)=0Nexta(1)=1Form1.PrintSpace(2*nForm1.Printa(1)2);i=2To----1---a(i)=a(i-Forj=----2----To2Step-3NextForm1.PrintSpace((n-i+1)*Forj=1Tois=Trim(Str(----4---Form1.PrintSpace(Int((4/2+NextjLen(s))/2+0.5))+s+Space(Int((4NextEnd程序调试PublicSubDima(1To6,1To6)AsIntegerDimiAsInteger,jAsIntegerForm1.PrintFori=1ToForj=1Toa(i,j)=Int(Rnd*NextjNextiFori=2ToForj=1 Fori=1ToForj=1Toa(i,j)=Int(Rnd*NextjNextiFori=2ToForj=1 2NextiFori=1To6Forj=1To3NextjEndSubPublicSubSwap(aAsDimtempAsIntegertemp=aa=b=Endb程序调试PublicSuba(5,5)AsiAsInteger,jAsi=1ToForj=1To'********1Ifi<>jOri<>6-ja(i,j)=a(i,j)=1EndIf'********错误2*********Form1.Printa(i,jSpace(3);NextForm1.Print:Nexta(i,j)=a(i,j)=1EndIf'********错误2*********Form1.Printa(i,jSpace(3);NextForm1.Print:NextEnd程序调试PublicSubTo5,1To5)AsiAsInteger,jAsi1Toj=1If----51----2NextjNexti1Toj=15Form1.Print"Next3Next六、Sub程序调试PrivateConstn=10Privatea(1Ton)AsIntegerPublicSubDimt1i=1To2t=t*NextForm1.Print"T=";EndPublicSubPublicSubDimt1i=1To2t=t*NextForm1.Print"T=";EndPublicSubSCSJ()Form1.PrintiAsIntegerAs=1Toj=Int(Rnd*If------3-----ThenJ=-a(i)=j*Int(Rnd*(n+1))Form1.Printa(i);NextiEnd程序调试Dima(30)AsIntegerPublicSubPositionAsIntegermaxAsInteger'最大数iAsmax1Position=----2---Fori=2ToIfa(i)>maxmax3Position=----4---Nextimax3Position=----4---NextiForm1.Print"最大值="&Str(max)Form1.Print&Str(Position)EndPublicSubGenerateData()DimiAsIntegerFori=1Toa(i)=Int(500*Rnd()+Form1.PrintIfiMod5NextiEnd=0Then程序调试Dima(1To5,1Dimave(1To5)4)AsPublicSubDimiAsInteger,jAsInteger,tempAsIntegerDimLine_noAsInteger'最大平均值的行号Line_no=1Fori=2To'******1Ifave(Line_no)ave(i)Then'******错误2*******Line_no=ave(i)NextiForj=1To4temp=a(1,j)a(Line_no,j)=a(1,a(Line_no,j)=tempNextjtemp=ave(1)ave(1)a(Line_no,j)=tempNextjtemp=ave(1)ave(1)ave(Line_no)ave(Line_no)=tempEndSubPublicSubDimiAsIntegerDimjAsInteger'产生5*4数组Fori=1To5Forj=1Toa(i,j)=Int(100NextjNextEnd*PublicSubiAsIntegerjAssumAsFori=sumForj=To0Tosum=a(i,j)Nextave(i)=sum/4NextiEndPublicSubiAsIntegerAs=1ToForj=1ToForm1.Printa(i,j);Spc(3);NextjEndPublicSubiAsIntegerAs=1ToForj=1ToForm1.Printa(i,j);Spc(3);NextjNextiEnd程序调试PublicSuba(10)AsiAsInteger,jAsIntegeri=1To10a(i)=Int(Rnd*21+NextFori=1To1Ifa(i)>a(j)2EndIfNextjNext3EndPublicSubSwap(aAsInteger,bAsDimtempAsIntegertemp=aa=b=End程序调试PrivateConstn=10Privatea(1b=End程序调试PrivateConstn=10Privatea(1Ton)AsInteger'BubbleSort过程是冒泡排序'Swap过程交换两个变量数值PublicSubjAsDimiAsInteger,i=1Forj=i+1ToIfa(j)>a(i)ThenEndIfNexti=i+1'*******2*******LoopWhilei=nFori=1TonNextiEndPublicSubb=1To=DoWhileNota(i)=Int(20*b=TrueRnd'******3Forj=1ToIfa(i)=a(j)Thenb=FalseEndIfNextNextEnd'********错误4********PublicSubIfa(i)=a(j)Thenb=FalseEndIfNextNextEnd'********错误4********PublicSubSwap(ByValaAsDimtempAsIntegertemp=aa=b=EndByValbAs程序调35OptionExplicitPublicSubConstyear=2023If---- EndIfEndFunctionisLeapYear(yAsInteger)As2Or34)isLeapYear=isLeapYear=EndEnd程序调36PublicSubn=AssiAsEnd程序调36PublicSubn=AssiAs=1Tois=s1NextiEnd"s=";PublicFunctionnumber(2AsSinglen7所组成的数。DimkAsnumber=0Fork=1Ton3NextEnd程序调37PublicSubDims1AsString,s2Asadog,butitisnotagooddog!s1="itiss2="dog"EndFunctionmatchCount(str1AsString,str2AsString)AsIntegerstr2str1DimnumAsInteger,iAsInteger,posAsnum=Fori=1pos3Ifpos0'次数加1num=num1EndIfFori=1pos3Ifpos0'次数加1num=num1EndIfNextimatchCount=numEnd程序调试PublicFunctionnAsInteger)AsiAsIntegertempAsDouble1i=1Totemp=temp*NextnFactor=----2---EndPublicSubnsumAsDoubleiAsIntegernAsIntegeri=1Tosum=sum+----3---NextForm1.Print"sum="&----4---End程序调试39OptionExplicitPublicSubank,a,n,pAs=1Tok==For1p=Val(Mid(a,i,2iank,a,n,pAs=1Tok==For1p=Val(Mid(a,i,2i=kThenform1.PrintIfnNextEndFunctionfact(xAsInteger)AsyyAsLong=Fori%=1Toy=y*i%Nexti%3End程序调试PublicSubHexAsStringDecAsDoubleAs=n=Val(Hex)i=temptempMid(Hex,i,Dec=Dec+number(temp)*16^ii=i+1LoopWhilei<nForm1.PrintHexEndPublicFunctionnumber(strAsString)AsIntegerSelectCasestrCase"a",number=10Case"b","B"number=11Case"c","C"number=12Case"d","D"number=13Case"e","E"number=14Case"f","F"number=15CaseElsenumber=Val(str)EndSelectEnd程序调41PublicSubmAsInteger,nAsIntegeriAsIntegermultiAsIntegerm=Val(InputBox("m="))n=LoopWhile-----1-----multi2Form1.Printm;nmultiEndSubm=Val(InputBox("m="))n=LoopWhile-----1-----multi2Form1.Printm;nmultiEndSubPublicFunctionDiv(mAsInteger,nAsInteger)AsIntegerDimiAsmn3Ifn<mThenDiv=nEndDoWhilemModDiv<>0OrnModDiv<>4End程序调试PublicSubDimmAsnAsAsmnLoopWhilemnm>=n'******错误1******CmnnFactor(m)nFactor(n)*nFactor(mn)Form1.Print"排列组合数为";CmnEndPublicFunctionnFactor(ByValnAsInteger)AsDimiAsIntegerDimtempAsDoubletemp=1Fori=1Tontemp=DimiAsIntegerDimtempAsDoubletemp=1Fori=1Tontemp=temp*iNext'******2******nFactor(n)=temp1：dalt>2:dalt=0MsgBoxFormat(-b/2/a,"0.00")+"+i"+Format(dalt/2/a,"0.00")++Chr(10)+Format(-b//a,"0.00")+"-i"+/2/题解021：3：kkAs=1To/i+改为：dimkas改为：forI=1to100step题解041：题解062：forI=2to题解062：forI=2to081：题解091：2：length3：1：m<=0or2：div=m3：div=div-11：length改为：lengthlen改为：strleftmid(str1,改为：strrightmid(str1,length+1-2：strleft3：strrightRight(str1,错误4：Ifstrleft=strright 改为：Ifstrleft<>strright1：Decmod4：Dec>=1：CaseIs改为：CaseIs>2：LoopWhiletimes改为：Loop4：Dec>=1：CaseIs改为：CaseIs>2：LoopWhiletimes改为：LoopWhiletimes3：Form1.Print&&1：s=2：dowhiles<=1E+3：I=I+1题解152：(nmod3=1)and3：while5=1)and(n7161：1/(t*n2：