欢迎来到天天文库
浏览记录
ID:58998081
大小:97.00 KB
页数:37页
时间:2020-09-16
《上机考试最全调试题及答案.doc》由会员上传分享,免费在线阅读,更多相关内容在教育资源-天天文库。
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)+C
2、hr(10)+Format((-b-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二、单重循环程序调试02OptionE
3、xplicit‘这条语句要求在该模块中,使用变量前必须先声明。PublicSubUppersen()'该过程是将一个英文句子的每个单词的首字母都变成大写。'从键盘上任意输入一条英文句子,'将句子中的每个单词的首字母都变成大写'例如:输入Iamagoodstudent.'要求输出IAmAGoodStudent.DimoldsenAsString,newsenAsStringDimcharAsString,lastcharAsStringDimkAsInteger,iAsIntegeroldsen=Inpu
4、tBox("请输入英文句子:")k=-------1--------'以空格作为单词的界定,空格后的字母转换为大写字母lastchar=---------2--------Fori=1Tokchar=------3--------Iflastchar=""Thenchar=UCase(char)EndIfnewsen=newsen&charlastchar=charNextiForm1.Print"input:";oldsenForm1.Print"output:";newsenEndSub程序调试03
5、PublicSubJiSuan()'该过程用于计算1-(1/2)+(1/3)-...+(1/99)-(1/100)的值并打印出来。DimiAsInteger'******错误1*******DimkAsIntegerDimsAsSingles=0'*******错误2*******Fori=1To100k=1/is=s+k'*******错误3*******k=1/i+1s=s+kNextiForm1.Print"s=";sEndSub程序调试04OptionExplicitPublicSubsame(
6、)'该过程找出1--1000之间所有的同构数'所谓同构数是指一个数出现在它的平方数的右端'如25在25平方625的右端,则25为同构数'利用数字转字符再取出右端字符的方法进行判断DimiAsLongDimx1AsString,x2AsStringFori=1To1000x1=-------1--------'将i转字符型x2=-------2--------'将i^2转字符型If------3------ThenForm1.Printi;"是同构数"EndIfNextiEndSub程序调试05Publi
7、cSubArmstrongNumber()'该过程是用于求出1--999之间所有的Armstrong数,并输出。'所谓Armstrong数是指一个数等于它每位上数字的立方和。例如:371=3^3+7^3+1^3,那么371就是一个Armstrong数。DimarmstrongAsIntegerDimiAsIntegerDimhundredAsInteger'百位上的数字DimtenAsInteger'十位上的数字DimoneAsInteger'个位上的数字Fori=1To999hundred=----1
8、----ten=Int((iMod100)10)one=----2----If----3----ThenForm1.Printi;"isarmstrongnumber"EndIfNextiEndSub程序调试06PublicSubsum()'该过程是用于计算并输出f=1-1/(2*3)+1/(3*4)-1/(4*5)+……+1/(19*20)。DimfAsSingleDimiAsIntegerDimsignAsInteger-----1-
此文档下载收益归作者所有