第二部分浙江省VB二级试题解A．程序调试题一、选择结构程序调试01OptionExplicitPublicSubgetanswer()'该过程是用于计算一元二次方程的根，并将结果输出来。Dimdalt!,a#,b#,c#a=InputBox("输入系数a")b=InputBox("输入系数b")c=InputBox("输入系数c")dalt=b*b-4*a*cifdalt>0thendalt=Sqr(dalt)MsgBoxFormat((-b+dalt)/2/a),"0.00"+Chr(13)+Chr(10)+Format((-b-dalt)/2/a,"0.00")elseifdalt=0thenMsgBoxFormat(-b/2/a,"0.00")+Chr(13)+Chr(10)+Format(-b/2/a,"0.00")Elsedalt=-daltMsgBoxFormat(-b/2/a,"0.00")+"+i"+Format(dalt/2/a,"0.00")+Chr(13)+Chr(10)+Format(-b/2/a,"0.00")+"-i"+Format(dalt/2/a,"0.00")EndIfEndSub二、单重循环程序调试02OptionExplicit‘这条语句要求在该模块中，使用变量前必须先声明。PublicSubUppersen()'该过程是将一个英文句子的每个单词的首字母都变成大写。'从键盘上任意输入一条英文句子，'将句子中的每个单词的首字母都变成大写'例如：输入Iamagoodstudent.'要求输出IAmAGoodStudent.DimoldsenAsString,newsenAsStringDimcharAsString,lastcharAsStringDimkAsInteger,iAsIntegeroldsen=InputBox("请输入英文句子：")k=len(oldsen)-------1--------'以空格作为单词的界定，空格后的字母转换为大写字母lastchar=“”Fori=1Tokchar=mid(oldsen,I,1)------3--------Iflastchar=""Thenchar=UCase(char)EndIfnewsen=newsen&charlastchar=charNextiForm1.Print"input:";oldsenForm1.Print"output:";newsenEndSub程序调试03PublicSubJiSuan()'该过程用于计算1-(1/2)+(1/3)-...+(1/99)-(1/100)的值并打印出来。DimiAsInteger'******错误1*******DimkAssingleDimsAsSingles=0'*******错误2*******Fori=1To100step2k=1/is=s+k'*******错误3*******k=-1/(i+1)s=s+kNextiForm1.Print"s=";sEndSub程序调试04OptionExplicitPublicSubsame()'该过程找出1--1000之间所有的同构数'所谓同构数是指一个数出现在它的平方数的右端'如25在25平方625的右端，则25为同构数'利用数字转字符再取出右端字符的方法进行判断DimiAsLongDimx1AsString,x2AsStringFori=1To1000x1=trim(str(i))-------1--------'将i转字符型x2=trim(str(i^2))-------2--------'将i^2转字符型Ifright(x2,len(x1))=x1------3------ThenForm1.Printi;"是同构数"EndIfNextiEndSub程序调试05PublicSubArmstrongNumber()'该过程是用于求出1--999之间所有的Armstrong数，并输出。'所谓Armstrong数是指一个数等于它每位上数字的立方和。例如：371=3^3+7^3+1^3，那么371就是一个Armstrong数。DimarmstrongAsIntegerDimiAsIntegerDimhundredAsInteger'百位上的数字DimtenAsInteger'十位上的数字DimoneAsInteger'个位上的数字Fori=1To999hundred=i\100----1----ten=Int((iMod100)\10)