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

'课后答案网：www.hackshp.cn若侵犯了您的版权利益，敬请来信告知！课后答案网您最真诚的朋友www.hackshp.cn网团队竭诚为学生服务，免费提供各门课后答案，不用积分，甚至不用注册，旨在为广大学生提供自主学习的平台！课后答案网：www.hackshp.cn视频教程网：www.efanjy.comPPT课件网：www.ppthouse.com课后答案网www.hackshp.cn 课后答案网：www.hackshp.cn若侵犯了您的版权利益，敬请来信告知！第1章习题参考答案一、思考题略二、选择题二二、选择题、选择题1.C2.Bkhaw.com课后答案网www.hackshp.cnkhdaw.com若侵犯了您的版权利益，敬请来信通知我们！℡www.khdaw.com 课后答案网：www.hackshp.cn若侵犯了您的版权利益，敬请来信告知！第2章习题参考答案一、判断题题号1234567891011答案××√√×√×√√√√二、填空题1．窗体font2．不能在代码中设置3．selstart4．Locked5khaw.com．TabIndex、06．vbModal或17．Activate、Deactivate8．PictureBox和Frame-三、选择题题号12345678910答案D课后答案网CDADBBBABwww.hackshp.cnkhdaw.com若侵犯了您的版权利益，敬请来信通知我们！℡www.khdaw.com 课后答案网：www.hackshp.cn若侵犯了您的版权利益，敬请来信告知！第3章1第3章习题参考答案一、思考题1、double2、xyC@abc，15eyd，Is，#ENDX8[P]3、变量有(1)(4)(6)(8)，常量有(2)字符串型(3)逻辑型(5)字符串型(7)字符串型(9)日期型(10)实型4、acb+ekhaw.comd+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>xwww.hackshp.cnandz>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>010．s>=”A”ands<=”Z”ors>=”a”ands<=”z”khdaw.com若侵犯了您的版权利益，敬请来信通知我们！℡www.khdaw.com 课后答案网：www.hackshp.cn若侵犯了您的版权利益，敬请来信告知！第23章三、选择题题号12345答案CBBBD四、编程题1、PrivateSubForm_Click()Dimx%,Ten%,hundred%x=Val(Text1.Text)Ten=(x10)Mod10hundred=x100khaw.comPrint"百位数是:"&hundredPrint"十位数是:"&TenEndSub2课后答案网PrivateSubForm_Click()DimcharAsString*1Form1.CurrentX=Rnd*Form1.ScaleWidthwww.hackshp.cnForm1.CurrentY=Rnd*Form1.ScaleHeightchar=Chr(Int(Rnd*16)+65)PrintcharEndSubkhdaw.com若侵犯了您的版权利益，敬请来信通知我们！℡www.khdaw.com 课后答案网：www.hackshp.cn若侵犯了您的版权利益，敬请来信告知！第4章程序设计的三种基本结构1第4章习题参考答案一、判断题题号12345678答案×××√√√√×二、选择题题号12345khaw.com答案ADBBB三、程序阅读写出下列各段程序执行后的输出结果。1．78课后答案网578635786413578642www.hackshp.cn2．w=4、w=13、w=135、w=313．此题有点错误，修改如下：是将语句“IfkAsc("Z")Andk0)Then"判断条件PrintN&"年是闰年"ElsePrintN&"年不是闰年"EndIfEndSub3．PrivateSubForm_Click()Dima!,b!,c!,s!,x!khaw.coma=Val(InputBox("EnterA=?"))b=Val(InputBox("EnterB=?"))c=Val(InputBox("EnterC=?"))Ifa+b>cAndb+c>aAnda+c>bThen"如果能构成三角形x=(a+b+c)/2课后答案网s=Sqr(x*(x-a)*(x-b)*(x-c))Print"S=";sElsewww.hackshp.cnPrint"数据有错,不能构成三角形"EndIfEndSub4．(此题不适合使用Select语句)PrivateSubCommand1_Click()DimxAsDouble,fxAsDoublex=Val(InputBox("输入x=?"))Ifx<0Andx<>-3Thenfx=x*x+x-6ElseIfx>=0Andx<10Andx<>2Andx<>3Thenfx=x*x-5*x+6Elsefx=x*x-x-1EndIfPrint"x=";x;"f("&x&")=";fxkhdaw.com若侵犯了您的版权利益，敬请来信通知我们！℡www.khdaw.com 课后答案网：www.hackshp.cn若侵犯了您的版权利益，敬请来信告知！第44章程序设计的三种基本结构EndSub5．DimiAsIntegerDimsAsLong,tAsLongt=1Fori=1To10t=t*is=s+tNextiPrint"S="&s6．khaw.comDimi%,s!,n!,t!,f%i=1"项数s=0"累加和课后答案网n=1"阶乘t=1"通项f=1www.hackshp.cn"系数DoWhilet>0.000001s=s+f*ti=i+1n=n*it=1/nf=-f"表示符号LoopPrint"S=";s7．"方法一PrivateSubForm_Click()DimiAsIntegerDimHundredAsInteger,TenAsInteger,OneAsInteger"定义百位，十位，个位数Fori=100To999Hundred=i100khdaw.com"求百位数若侵犯了您的版权利益，敬请来信通知我们！℡www.khdaw.com 课后答案网：www.hackshp.cn若侵犯了您的版权利益，敬请来信告知！第4章程序设计的三种基本结构5Ten=(i10)-Hundred*10"求十位数One=iMod10"求个位数Ifi=Hundred^3+Ten^3+One^3Then"判断是否为素数Printi&"是水仙花数"EndIfNextiEndSub"方法二khaw.comPrivateSubForm_Click()DimiAsIntegerDimHundredAsInteger,TenAsInteger,OneAsInteger"定义百位，十位，个位数ForHundred=1To9"百位数ForTen=0To9课后答案网"十位数ForOne=0To9www.hackshp.cni=Hundred*100+Ten*10+OneIfi=Hundred^3+Ten^3+One^3Then"判断是否为素数Printi&"是水仙花数"EndIfNextOneNextTenNextHundredEndSub8．DimaAsDouble,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)khdaw.com若侵犯了您的版权利益，敬请来信通知我们！℡www.khdaw.com 课后答案网：www.hackshp.cn若侵犯了您的版权利益，敬请来信告知！第64章程序设计的三种基本结构LoopPrint“立方根:”;x1khaw.com课后答案网www.hackshp.cnkhdaw.com若侵犯了您的版权利益，敬请来信通知我们！℡www.khdaw.com 课后答案网：www.hackshp.cn若侵犯了您的版权利益，敬请来信告知！第5章数组第5章习题参考答案一、判断题题号123456答案√√××√√二、选择题题号123答案DAC三、程序填空khaw.com1.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*100课后答案网P=10P=JP=0www.hackshp.cn四、编写程序1.PrivateSubCommand1_Click()DimA()AsInteger,NAsIntegerDimiAsInteger,MAsInteger,tAsInteger,kAsIntegerN=Val(InputBox("请输入数组的大小N=?"))M=Val(InputBox("请输入移位次数M=?"))"输入循环次数的大小IfN<=0ThenExitSubReDimA(N-1)Print"原始数组值"Fori=0ToN-1"给数组赋值A(i)=Int(Rnd*100)PrintA(i);NextiPrint"移位Fori=1ToM"循环体完成右移一位，循环完成右移j位khdaw.com若侵犯了您的版权利益，敬请来信通知我们！℡www.khdaw.com 课后答案网：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);NextiPrintEndSubkhaw.com2.ConstNM=100PrivateSubCommand1_Click()课后答案网Dima(1ToNM)AsSingle,b(1ToNM)AsInteger,maxAsIntegerDimiAsInteger,jAsInteger,kAsInteger,tAsIntegerFori=1ToNMwww.hackshp.cn"输入100个数值a(i)=Val(InputBox("请输入a("&i&")的值"))IfInt(a(i))=a(i)Then"判断是否为整数k=k+1"整数个数加1b(k)=a(i)"将这个整数存放到数组BEndIfNexti"选择排择Fori=1Tok-1max=iForj=i+1TokIfb(max)iThent=b(max):b(max)=b(i):b(i)=tEndIfNexti"打印输出Fori=1TokPrintb(i);khdaw.com若侵犯了您的版权利益，敬请来信通知我们！℡www.khdaw.com 课后答案网：www.hackshp.cn若侵犯了您的版权利益，敬请来信告知！第5章数组IfiMod5=0ThenPrintNextiEndSub3.PrivateSubCommand1_Click()Dima()AsIntegerDimn%,i%,j%n=Val(InputBox("输入一个整数n=?"))ReDima(n)Form1.ClsRandomizePrint"khaw.com产生的30个随机整数:"Fori=1Tona(i)=Int(Rnd*21)-10Printa(i);IfiMod10=0ThenPrint课后答案网NextiPrint"删除数组的相同数据www.hackshp.cnj=2DoWhilejnThenn=n+1a(n)=xEndIf课后答案网LoopFori=1To49"使用选择法排序p=iwww.hackshp.cnForj=i+1To50Ifa(p)>a(j)Thenp=jNextjt=a(p):a(p)=a(i):a(i)=tNextiFori=1To50"打印输出Printa(i);IfiMod10=0ThenPrintNextiEndSubkhdaw.com若侵犯了您的版权利益，敬请来信通知我们！℡www.khdaw.com 课后答案网：www.hackshp.cn若侵犯了您的版权利益，敬请来信告知！第6章过程121第6章习题参考答案一、判断题题号123456答案√√×√√×二、选择题题号12345khaw.com答案DCADB三、程序填空题1.（1）nsp=true(2)mmodi=0(3)p1andp2课后答案网(4)p1=nsp(i)2．（1）number(i,7)(2)(intn,intm)www.hackshp.cn(3)number=number*10+m四、程序阅读1.a=9b=42．(1)362516941(2)1499413．64.146khdaw.com若侵犯了您的版权利益，敬请来信通知我们！℡www.khdaw.com 课后答案网：www.hackshp.cn若侵犯了您的版权利益，敬请来信告知！122第6章过程五、编写程序1.PublicFunctionfact(xAsInteger)AsSingle"求x!DimfAsSingle,iAsIntegerf=1Fori=1Toxf=f*i"累积Nextifact=fEndFunctionPrivateSubForm_Click()Dimn%,m%,y!khaw.comDom%=Val(InputBox("m="))n%=Val(InputBox("n="))LoopUntilm>=nAndn>=0y=fact(m)/(fact(n)*fact(m-n))课后答案网PrintyEndSub2privatesubInsertfun(a%(),www.hackshp.cny%)Dimiasinteger,nasintegern=ubound(a)Redimpreservea(n+1)Fori=ubound(a)-1to0step-1IfyMid(str,Len(str)+1-i,1)Thenkhdaw.com若侵犯了您的版权利益，敬请来信通知我们！℡www.khdaw.com 课后答案网：www.hackshp.cn若侵犯了您的版权利益，敬请来信告知！第6章过程123Judge=FalseExitFunctionEndIfNextiEndFunction4.PrivateSubForm_Click()Dimn%,x!n=Val(InputBox("n="))x=Val(InputBox("x="))Printfe(n,x)"调用求值函数过程EndSubkhaw.com"求值函数过程PublicFunctionfe(n%,x!)AsSingleDimiAsInteger,tAsSinglefe=1:t=1课后答案网Fori=1Tont=t*x/i"t为通项fe=fe+twww.hackshp.cnNextiEndFunction5.。。。。khdaw.com若侵犯了您的版权利益，敬请来信通知我们！℡www.khdaw.com 课后答案网：www.hackshp.cn若侵犯了您的版权利益，敬请来信告知！第七章常用控件与系统对象164第7章习题参考答案一、判断题题号12345678910111213141516答案××√√×××√√√××√√×√二、填空题1．___Multiline_______2．khaw.com____Value______3．___Selected______、____List______、____0______、___List1.ListCount-1____4．下拉式列表框5．___LargeChange_______、____Value______6．Shift+Ctrl7．KeyAscii=0课后答案网ifKeyAscii>57ORKeyAscii<48thenKeyAscii=0三、程序填空www.hackshp.cn1．Label1.Font=Combo1.TextCombo2.TextLabel1.FontBold=TrueLabel1.FontItalic=TrueLabel1.FontSize=Val(Combo3.Text)2．List1.List(list1.ListIndex)list1.RemoveItemList1.ListIndexList1.AddItemList2.List(List2.ListIndex)List2.RemoveItem四、选择题题号12345678答案ADDBDDCD五、编程题1．"添加功能PrivateSubcmdAdd_Click()khdaw.com若侵犯了您的版权利益，敬请来信通知我们！℡www.khdaw.com 课后答案网：www.hackshp.cn若侵犯了您的版权利益，敬请来信告知！第七章常用控件与系统对象165Dimi%IfCombo1.Text=""ThenExitSubFori=0ToCombo1.ListCount-1"逐个判断是否有与输入内容相同的项目IfCombo1.Text=Combo1.List(i)ThenExitSub"找到相同项目则退出NextiCombo1.AddItemCombo1.Text"未找到则添加EndSub"删除功能PrivateSubcmdDelete_Click()IfCombo1.ListIndex>=0Then"是否选中某一项目Combo1.RemoveItemCombo1.ListIndex"删除选中项目Else"删除与输入内容相同的项目khaw.comFori=0ToCombo1.ListCount-1IfCombo1.List(i)=Combo1.TextThenCombo1.RemoveItemiEndIfNexti课后答案网EndIfEndSub"清除www.hackshp.cnPrivateSubCommand3_Click()Combo1.ClearEndSub2．PrivateSubCommand1_Click()‘产生随机数Dimi%RandomizeFori=1To10List1.AddItemStr(Int(Rnd*90)+10)NextiList2.ClearEndSubPrivateSubCommand2_Click()‘迁移偶数Dimi%i=0DoWhilei<=List1.ListCount-1IfVal(List1.List(i))Mod2=0ThenList2.AddItemList1.List(i)khdaw.com若侵犯了您的版权利益，敬请来信通知我们！℡www.khdaw.com 课后答案网：www.hackshp.cn若侵犯了您的版权利益，敬请来信告知！第七章常用控件与系统对象166List1.RemoveItemiElsei=i+1EndIfLoopEndSub3．PrivateSubList1_DblClick()DimiAsIntegerFori=0ToList2.ListCount-1"防止重复点歌IfList2.List(i)=List1.TextThenkhaw.comExitSubEndIfNextiList2.AddItemList1.TextEndSub课后答案网PrivateSubList2_DblClick()List2.RemoveItemList2.ListIndexwww.hackshp.cnEndSubkhdaw.com若侵犯了您的版权利益，敬请来信通知我们！℡www.khdaw.com 课后答案网：www.hackshp.cn若侵犯了您的版权利益，敬请来信告知！第10章对话框与菜单程序设计231第10章习题参考答案一、判断题题号12345678910答案√√√×××√√√√二、选择题题号12345678910khaw.com答案DACCBDABDB三、填空题1．窗体控件菜单、下拉菜单、快捷菜单2．___ShowFont___课后答案网3．___打开/另存为、颜色、字体、帮助、打印4．工程/部件、选中MicrosoftCommonDialogControl6.05．___CommonDialog1.Action=3www.hackshp.cn、CommonDialog1.ShowColor______6．提示信息、对话框类型、对话框标题7．Click8．工具9．代码窗口、Click10．相同、正（或大于等于0）khdaw.com若侵犯了您的版权利益，敬请来信通知我们！℡www.khdaw.com 课后答案网：www.hackshp.cn若侵犯了您的版权利益，敬请来信告知！第11章习题参考答案一、判断题题号123456答案√×√×√√二、选择题题号12khaw.com答案CC课后答案网www.hackshp.cnkhdaw.com若侵犯了您的版权利益，敬请来信通知我们！℡www.khdaw.com 课后答案网：www.hackshp.cn若侵犯了您的版权利益，敬请来信告知！第12章习题参考答案一、思考题略二、填空题二二、填空题、填空题1____Database____、___DatabaseManagementSystem____2．___层次____、___网状______、___关系___3．__一个或多___、___行____、___列____。4．_表类型khaw.com__、_动态集类型_、_快照类型_、_快照类型_5．_从“学生基本信息”表中查询所有“性别”为“男”的记录.6．_______Select姓名，应发工资From工资Where性别="女"7．_Insertinto学生成绩(学号，姓名，成绩)Values(0204016，张颖，88)__8．__Delete*from学生成绩Where成绩<60___9．_DatabaseName______课后答案网、___Connect__10．AbsolutionPosition___、__Data1.Recordset.MoveFirst：Data1.Recordset.Move5___11．RecordCount__12．_Data1.Recordset.Editwww.hackshp.cn：Data1.Recordset("姓名")="王军"：_Data1.Recordset.Update_13．_Data1.Recordset.Index="XM"____14．_Data1.Recordset.Move-6___15．_Data1.Recordset.FindFirst"姓名="王颖""__16．___DataSource______、____DataField_____三、选择题题号12345678答案CBCBDB、DBCkhdaw.com若侵犯了您的版权利益，敬请来信通知我们！℡www.khdaw.com'