上机考试最全调试题及答案

《上机考试最全调试题及答案》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、第二部分浙江省VB二级试题解A．程序调试题一、选择结构程序调试01OptionExplicitPublicSubgetanswer()'该过程是用于计算一元二次方程的根，并将结果输出来。Dimdalt!,a#,b#,c#a=InputBox("输入系数a")b=InputBox("输入系数b")c=InputBox("输入系数c")dalt=b*b-4*a*cif----1----thendalt=Sqr(dalt)MsgBoxFormat((-b+dalt)/2/a),"0.00"+Chr(13)+Chr(10)+Format((-b

2、-dalt)/2/a,"0.00")elseif---2----thenMsgBoxFormat(-b/2/a,"0.00")+Chr(13)+Chr(10)+Format(-b/2/a,"0.00")Elsedalt=---3----MsgBoxFormat((-b+dalt)/2/a,"0.00")+"+i"+Chr(13)+Chr(10)+Format((-b-dalt)/2/a,"0.00")+"-i"EndIfEndSub二、单重循环程序调试02OptionExplicit‘这条语句要求在该模块中，使用变量前必须先声明。Pub

3、licSubUppersen()'该过程是将一个英文句子的每个单词的首字母都变成大写。'从键盘上任意输入一条英文句子，'将句子中的每个单词的首字母都变成大写'例如：输入Iamagoodstudent.'要求输出IAmAGoodStudent.DimoldsenAsString,newsenAsString89DimcharAsString,lastcharAsStringDimkAsInteger,iAsIntegeroldsen=InputBox("请输入英文句子：")k=-------1--------'以空格作为单词的界定，空格后

4、的字母转换为大写字母lastchar=---------2--------Fori=1Tokchar=------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)的值并打印出来。D

5、imiAsInteger'******错误1*******DimkAsIntegerDimsAsSingles=0'*******错误2*******Fori=1To100k=1/is=s+k'*******错误3*******k=1/i+1s=s+kNextiForm1.Print"s=";sEndSub程序调试04OptionExplicit89PublicSubsame()'该过程找出1--1000之间所有的同构数'所谓同构数是指一个数出现在它的平方数的右端'如25在25平方625的右端，则25为同构数'利用数字转字符再取出右端字

6、符的方法进行判断DimiAsLongDimx1AsString,x2AsStringFori=1To1000x1=-------1--------'将i转字符型x2=-------2--------'将i^2转字符型If------3------ThenForm1.Printi;"是同构数"EndIfNextiEndSub程序调试05PublicSubArmstrongNumber()'该过程是用于求出1--999之间所有的Armstrong数，并输出。'所谓Armstrong数是指一个数等于它每位上数字的立方和。例如：371=3^3+

7、7^3+1^3，那么371就是一个Armstrong数。DimarmstrongAsIntegerDimiAsIntegerDimhundredAsInteger'百位上的数字DimtenAsInteger'十位上的数字DimoneAsInteger'个位上的数字Fori=1To999hundred=----1----ten=Int((iMod100)10)one=----2----If----3----ThenForm1.Printi;"isarmstrongnumber"EndIfNextiEndSub程序调试06PublicSu

8、bsum()'该过程是用于计算并输出f=1-1/(2*3)+1/(3*4)-1/(4*5)+……+1/(19*20)。89DimfAsSingleDimiAsIntegerDimsignAsInteger-