VB程序设计教程第四版课后答案

第一章习题参考答案解释运行模式答：①可视化的程序设计方法②面向对象的程序设计思想③事件驱动的编程机制④结构化的程序设计语言⑤高度的可扩充性⑥强大的数据库访问能力⑦支持动态数据交换⑧支持对象链接与嵌入①单击“开始”按钮，选择“程序”菜单下的“MicrosoftVisualBasic6.0中文版”菜单项并单击；②双击桌面上的VB6.0快捷图标；③在“开始”菜单的运行对话框中输入命令来启B；第二章习题参考答案-29、AACBBCDDC考答案oleant3、(1)常量(关键字)(2)字符型常量(3)逻辑型常量(4)变量(5)字符串常量(6)变量(7)字符串常量(8)变量(9)日期型常量(题目应是#11/16/1999#)(10)数值型常量(单精度)311+y/x)/(1-y/x)(2)x^3+3*x*y/(2-y)(3)sqr(abs(a*b-c^3))(4)sqr(s*(s-a)*(s-b)*(s-c))(1)13(2)17(3)#1999-11-12#(4)zxy123ABC(3)5．25(4)2考答案三、编程题(略)rivateSubCommandClickabelcaptiontexttextommandcaptiontexttextubrivateSubCommandClickTextvaltextvaltextval(text3)ubrivateSubCommandClickText1=””:Text2=””:Text3=””:Text4=””ub3．文本框、“转大写”命令按钮和“转大写”命令按钮的名称分别为rivateSubCommandClickcasetextubrivateSubCommandClickcasetextub考答案iSumiSumj250Dimi%,s%Fori=101To200step2PrintiEndIfNextiPrintsubFormClickimnsWhiles<=400000NndIfs>400000Thenn=n-1PrintnubmClickDimiminimaxi%,R%Fori=1to20ntRndIfR<IMINThenimin="RNextintimaximinub考答案ntInterValHscrollMax考答案Aia1-i)a(11-i)=TmpXMod10．0To8i+1To9IfOP1(0).Value=TrueThenP1.Print“选择了椭圆形”IfOP1(1).Value=TrueThenP1.Print“选择了圆形”IfOP1(2).Value=TrueThenP1.Print“选择了正方形”ubPrivateSubCommandclickubDimXto26)ASInteger,IAsIntegerDimSAsString,LAsIntegerenTexttextFori=1ToLIx(Asc(S)-65+1)=x(Asc(S)-65+1)+1EndIfNextiFori=1ToLTexttextChri)&“=”&x(i)&““TexttextchrchrNextiPrivateSubCommandclickDimIJT%,S$Fori=1To9Forj=i+1To10henTMarkiMarkiMarkjMarkjTmeinameinamejnamejSNextJNextiFori=1To10ntNameiMarkiNextiub考答案．aUbound(b)n=n-12．Key=a(i)Index=-1xAsSingleespAsSingleDimpSFi%PSi:F=xLoopUntilAbs(F/p)<ESPPrintsubFunctionPxAsSingle,espAsSingle)AssingleDimpSFi%PSi:F=xoopUntilAbsFpESPPsion那么形参的变化，会引起实参的变化(即形参将值回传给实参)，故可实现两数交换。LFByValxAsSingleAsSingleiondClickDimI%Fori=1To20intILFiNextiubunctionWeekDayByValxAsIntegerAsStringelectCasexCase0WeekDay=”星期日”Case1WeekDay=”星期一”Case2WeekDay=”星期二”Case3WeekDay=”星期三”Case4WeekDay=”星期四”Case5WeekDay=”星期五”Case6WeekDay=”星期六”ctionionRandByValXAsIntegerAsIntegerdIntRndXiondClickFori=1To30PrintRandNextiubDimi%Fori=3Tox-3Step2GDBH=i&"+"&(x-i)&"="&xtionEndIftionnctionispyAsBooleanDoWhilei<=ki=i+1EndIfionivateSubFormClickFori=6To40Step2tGDBHiNextiubctionisQOByValxAsIntegerAsStringisQO=”偶数”isQO=”奇数”EndIfiontionFByValxAsIntegerAsBooleanenEndIfionivateSubFormClickFori1000To2000ForiForiLToL+1-1EndifNextiubAsIntegerByValLAsDimL%,U%,x%,i%LLBoundaUUBounda)SubEndIfa(i)=a(i-1)NextiaL=xlseIfLLThenFori=L1ToL2-1a(i)=a(i+1)NextiaL=xEndIfub考答案unctionFunctionFByValxByValAsIntegeruibleEnabled考答案Dimtr&ThentxxyytRxModyDoWhileRR=xModyionrivateSubCommandClickTextValTextF(Val(Text1),Val(Text2))TextValTextF(Val(Text1),Val(Text2))ub参考答案xAsSingle,YAsSingle)Text1=x:Text2=YEndSubEndIfubngleYAsSingleDimr%,c%DimEndXEndYAsIntegerEndXx:EndY=YRGBrSqr((EndX-startX)^2+(EndY-StartY)^2)Form1.Circle(startX,StartY),r,cEndIfub参考答案systemOpencsamplesreadmetxtForOutputAS#3OpencautoexecbatForIntputAS#4tForRandomASLenyASTypestuingnameAsString*8zAsString*12zAsString*12tringererwlAsIntegerivateSubCmdAppendClickTextmeTextTextTextoolTexthenpsexhenpsexenpjcTrueElsepjcFalsepsxValTextp.yw=Val(Text7)pyyValTextp.wl=Val(Text9)fValTextPut#1,,pubivateSubCmdDisplayClickGet#1,Val(txtRecord_No),pTextpIDText2=Text3=p.z1:Text4=p.z2Textp.scoolueOpenAppPathstudatForRandomAs#1Len=Len(p)ubPrivateSubFormUnloadCancelAsInteger)oseubivateSubTextGotFocusTextValTextVal(Text7)+Val(Text8)+Val(Text9)ubteTypebooksnameAsString*8tringmathAsIntegerrivateSubCommandClickbAsbooksOpencstudatForAppendAs#1bidInputBox输入学号")bnameInputBox输入姓名")bsexInputBox输入性别")bmathInputBox输入数学成绩")bengInputBox输入英语成绩")beleInputBox输入电子成绩")Write#1,b.id,,b.sex,b.math,b.eng,b.eleoseubrivateSubCommandClickDima,b,cOpencstuodatForInputAs#1WhileNotEOF(1)tabcddItembddItembddItembdoseubriv