Visual Basic 6.0程序设计教程 第三版 (罗朝盛 著) 人民邮电出版社 课后答案 0页

'课后答案网：www.hackshp.cn课后答案网您最真诚的朋友www.hackshp.cn网团队竭诚为学生服务，免费提供各门课后答案，不用积分，甚至不用注册，旨在为广大学生提供自主学习的平台！课后答案网：www.hackshp.cn视频教程网：www.efanjy.comPPT课件网：www.ppthouse.com课后答案网www.hackshp.cn若侵犯了您的版权利益，敬请来信告知！www.hackshp.cn 课后答案网：www.hackshp.cn第1章习题参考答案一、思考题略二、选择题1.C2.B课后答案网www.hackshp.cn若侵犯了您的版权利益，敬请来信告知！www.hackshp.cn 课后答案网：www.hackshp.cn第2章习题参考答案一、判断题题号1234567891011答案××√√×√×√√√√二、填空题1．窗体font2．不能在代码中设置3．selstart4．Locked5．TabIndex、06．vbModal或17．Activate、Deactivate8．PictureBox和Frame-三、选择题题号12345678910答案DCDADBBBAB课后答案网www.hackshp.cn若侵犯了您的版权利益，敬请来信告知！www.hackshp.cn 课后答案网：www.hackshp.cn44第3章第三章习题参考答案一、思考题1、double2、xyC@abc，15eyd，Is，#ENDX8[P]3、变量有(1)(4)(6)(8)，常量有(2)字符串型(3)逻辑型(5)字符串型(7)字符串型(9)日期型(10)实型4、acb+ed+f5、(1)26(2)3.75(3)36、写出下列VisualBasic表达式的值：(1)False(2)True(3)True(4)False(5)True(6)True(7)False(8)False7、将下列命题用VisualBasic布尔表达式表示：(1)z>xandz>y(2)abs(a)<=abs(b+2)ora>b+2(3)pmodq=0(4)x<-5orx>-2andx<2orx>5(5)xzorx>zandy0andy>0orx<0andy<0或x*y>0。10．s>=”A”ands<=”Z”ors>=”a”ands<=”z”。三、选择题题号12345若侵犯了您的版权利益，敬请来信告知！www.hackshp.cn 课后答案网：www.hackshp.cn第3章45答案CBBBD四、编程题1、PrivateSubForm_Click()Dimx%,Ten%,hundred%x=Val(Text1.Text)Ten=(x10)Mod10hundred=x100Print"百位数是:"&hundredPrint"十位数是:"&TenEndSub2PrivateSubForm_Click()DimcharAsString*1Form1.CurrentX=Rnd*Form1.ScaleWidthForm1.CurrentY=Rnd*Form1.ScaleHeightchar=Chr(Int(Rnd*16)+65)PrintcharEndSub课后答案网www.hackshp.cn若侵犯了您的版权利益，敬请来信告知！www.hackshp.cn 课后答案网：www.hackshp.cn66第4章程序设计的三种基本结构第4章习题参考答案一、判断题题号12345678答案×××√√√√×二、选择题题号12345答案ADBBB三、程序阅读写出下列各段程序执行后的输出结果。1．785786357864135786422．w=4、w=13、w=135、w=313．此题有点错误，修改如下：是将语句“IfkAsc("Z")Andk0)Then"判断条件PrintN&"年是闰年"ElsePrintN&"年不是闰年"EndIfEndSub3．PrivateSubForm_Click()Dima!,b!,c!,s!,x!a=Val(InputBox("EnterA=?"))b=Val(InputBox("EnterB=?"))c=Val(InputBox("EnterC=?"))Ifa+b>cAndb+c>aAnda+c>bThen"如果能构成三角形x=(a+b+c)/2s=Sqr(x*(x-a)*(x-b)*(x-c))Print"S=";sElsePrint"数据有错,不能构成三角形"EndIfEndSub课后答案网4．(此题不适合使用Select语句)PrivateSubCommand1_Click()DimxAsDouble,fxAsDoublex=Val(InputBox("输入www.hackshp.cnx=?"))Ifx<0Andx<>-3Thenfx=x*x+x-6ElseIfx>=0Andx<10Andx<>2Andx<>3Thenfx=x*x-5*x+6Elsefx=x*x-x-1EndIfPrint"x=";x;"f("&x&")=";fx若侵犯了您的版权利益，敬请来信告知！www.hackshp.cn 课后答案网：www.hackshp.cn第4章程序设计的三种基本结构69EndSub5．DimiAsIntegerDimsAsLong,tAsLongt=1Fori=1To10t=t*is=s+tNextiPrint"S="&s6．Dimi%,s!,n!,t!,f%i=1"项数s=0"累加和n=1"阶乘t=1"通项f=1"系数DoWhilet>0.000001s=s+f*ti=i+1课后答案网n=n*it=1/nf=-f"表示符号Loopwww.hackshp.cnPrint"S=";s7．"方法一PrivateSubForm_Click()DimiAsIntegerDimHundredAsInteger,TenAsInteger,OneAsInteger"定义百位，十位，个位数Fori=100To999Hundred=i100"求百位数若侵犯了您的版权利益，敬请来信告知！www.hackshp.cn 课后答案网：www.hackshp.cn70第4章程序设计的三种基本结构Ten=(i10)-Hundred*10"求十位数One=iMod10"求个位数Ifi=Hundred^3+Ten^3+One^3Then"判断是否为素数Printi&"是水仙花数"EndIfNextiEndSub"方法二PrivateSubForm_Click()DimiAsIntegerDimHundredAsInteger,TenAsInteger,OneAsInteger"定义百位，十位，个位数ForHundred=1To9"百位数ForTen=0To9"十位数ForOne=0To9i=Hundred*100+Ten*10+OneIfi=Hundred^3+Ten^3+One^3Then"判断是否为素数Printi&"是水仙花数"EndIfNextOne课后答案网NextTenNextHundredEndSub8．www.hackshp.cnDimaAsDouble,x0AsDouble,x1AsDoublea=Val(InputBox(“输入a=?”)x0=a"初值x1=2/3*x0+a/(3*x0*x0)"第一次迭代后的值DoWhileAbs(x1-x0)>0.000001"控制精度x0=x1"迭代x1=2/3*x0+a/(3*x0*x0)若侵犯了您的版权利益，敬请来信告知！www.hackshp.cn 课后答案网：www.hackshp.cn第4章程序设计的三种基本结构71LoopPrint“立方根:”;x1课后答案网www.hackshp.cn若侵犯了您的版权利益，敬请来信告知！www.hackshp.cn 课后答案网：www.hackshp.cn第5章数组第5章习题参考答案一、判断题题号123456答案√√××√√二、选择题题号123答案DAC三、程序填空1.Preservea(n+1)a(i+1)=a(i)a(i+1)=mn+1或Ubound(a)2.PrintK-1t=a(k,j):a(k,j)=a(j,k):a(j,k)=t3．Rnd*100P=10P=JP=0四、编写程序1.PrivateSubCommand1_Click()DimA()AsInteger,NAsInteger课后答案网DimiAsInteger,MAsInteger,tAsInteger,kAsIntegerN=Val(InputBox("请输入数组的大小N=?"))M=Val(InputBox("请输入移位次数M=?"))"输入循环次数的大小IfN<=0ThenExitSubReDimA(N-1)www.hackshp.cnPrint"原始数组值"Fori=0ToN-1"给数组赋值A(i)=Int(Rnd*100)PrintA(i);NextiPrint"移位Fori=1ToM"循环体完成右移一位，循环完成右移j位若侵犯了您的版权利益，敬请来信告知！www.hackshp.cn 课后答案网：www.hackshp.cn第5章数组t=A(N-1)Fork=N-1To1Step-1"循环右移A(k)=A(k-1)NextkA(0)=tNexti"打印右移后的数组值Print"循环右移"&M&"位后的数组值"Fori=0ToN-1PrintA(i);NextiPrintEndSub2.ConstNM=100PrivateSubCommand1_Click()Dima(1ToNM)AsSingle,b(1ToNM)AsInteger,maxAsIntegerDimiAsInteger,jAsInteger,kAsInteger,tAsIntegerFori=1ToNM"输入100个数值a(i)=Val(InputBox("请输入a("&i&")的值"))IfInt(a(i))=a(i)Then"判断是否为整数k=k+1"整数个数加1b(k)=a(i)课后答案网"将这个整数存放到数组BEndIfNexti"选择排择Fori=1Tok-1max=iwww.hackshp.cnForj=i+1TokIfb(max)iThent=b(max):b(max)=b(i):b(i)=tEndIfNexti"打印输出Fori=1TokPrintb(i);若侵犯了您的版权利益，敬请来信告知！www.hackshp.cn 课后答案网：www.hackshp.cn第5章数组IfiMod5=0ThenPrintNextiEndSub3.PrivateSubCommand1_Click()Dima()AsIntegerDimn%,i%,j%n=Val(InputBox("输入一个整数n=?"))ReDima(n)Form1.ClsRandomizePrint"产生的30个随机整数:"Fori=1Tona(i)=Int(Rnd*21)-10Printa(i);IfiMod10=0ThenPrintNextiPrint"删除数组的相同数据j=2DoWhilejnThenn=n+1a(n)=xEndIfLoopFori=1To49"使用选择法排序p=iForj=i+1To50Ifa(p)>a(j)Thenp=jNextjt=a(p):a(p)=a(i):a(i)=t课后答案网NextiFori=1To50"打印输出Printa(i);IfiMod10=0ThenPrintNextiwww.hackshp.cnEndSub若侵犯了您的版权利益，敬请来信告知！www.hackshp.cn 课后答案网：www.hackshp.cn第6章过程121第6章习题参考答案一、判断题题号123456答案√√×√√×二、选择题题号12345答案DCADB三、程序阅读1．s=CDEsum=32．(1)362516941(2)1课后答案网49941www.hackshp.cn3．y=1y=2y=6y=24y=120四、程序填空题1．（1）CallConvert(st)（2）Ucase(Mid(s,i,1))若侵犯了您的版权利益，敬请来信告知！www.hackshp.cn 课后答案网：www.hackshp.cn122第6章过程（3）Asc(subC)-65+10（4）Convert=P2．（1）Left(s1,i-1)&mid(s1,i+ls2)（2）InStr(s1,s2)（3）CallDeleStr(ss1,Text2)（4）ss13．（1）number(i,7)(2)(intn,intm)(3)number=number*10+m五、编写程序1.PublicFunctionfact(xAsInteger)AsSingle"求x!DimfAsSingle,iAsIntegerf=1Fori=1Toxf=f*i"累积Nextifact=fEndFunctionPrivateSubForm_Click()Dimn%,m%,y!Dom%=Val(InputBox("m="))n%=Val(InputBox("n="))课后答案网LoopUntilm>=nAndn>=0y=fact(m)/(fact(n)*fact(m-n))PrintyEndSubwww.hackshp.cn2."判断是否为回文录函数PrivateFunctionJudge(strAsString)AsBooleanDimiAsIntegerJudge=True"假设为回文Fori=1ToLen(str)2"依次判断对应位置的两个字符，只要有一组不等即不是回文IfMid(str,i,1)<>Mid(str,Len(str)+1-i,1)ThenJudge=FalseExitFunctionEndIf若侵犯了您的版权利益，敬请来信告知！www.hackshp.cn 课后答案网：www.hackshp.cn第6章过程123NextiEndFunction3.PrivateSubForm_Click()Dimn%,x!n=Val(InputBox("n="))x=Val(InputBox("x="))Printfe(n,x)"调用求值函数过程EndSub"求值函数过程PublicFunctionfe(n%,x!)AsSingleDimiAsInteger,tAsSinglefe=1:t=1Fori=1Tont=t*x/i"t为通项fe=fe+tNextiEndFunction课后答案网www.hackshp.cn若侵犯了您的版权利益，敬请来信告知！www.hackshp.cn 课后答案网：www.hackshp.cn第7章164第7章习题参考答案一、判断题题号1234567891011答案√×√×√√×√××√三、选择题题号12345678答案BDDCBDCB四、程序阅读1．a=1b=1a=3b=2a=7b=4a=15b=82．2223.s=5s=10s=404．5,10,2课后答案网www.hackshp.cn若侵犯了您的版权利益，敬请来信告知！www.hackshp.cn'