VB程序設(shè)計(jì)教程第四版課后答案

第一章習(xí)題參考答案解釋運(yùn)行模式答：①可視化的程序設(shè)計(jì)方法②面向?qū)ο蟮某绦蛟O(shè)計(jì)思想③事件驅(qū)動(dòng)的編程機(jī)制④結(jié)構(gòu)化的程序設(shè)計(jì)語(yǔ)言⑤高度的可擴(kuò)充性⑥強(qiáng)大的數(shù)據(jù)庫(kù)訪問(wèn)能力⑦支持動(dòng)態(tài)數(shù)據(jù)交換⑧支持對(duì)象鏈接與嵌入①單擊“開(kāi)始”按鈕，選擇“程序”菜單下的“MicrosoftVisualBasic6.0中文版”菜單項(xiàng)并單擊；②雙擊桌面上的VB6.0快捷圖標(biāo)；③在“開(kāi)始”菜單的運(yùn)行對(duì)話框中輸入命令來(lái)啟B；第二章習(xí)題參考答案-29、AACBBCDDC考答案oleant3、(1)常量(關(guān)鍵字)(2)字符型常量(3)邏輯型常量(4)變量(5)字符串常量(6)變量(7)字符串常量(8)變量(9)日期型常量(題目應(yīng)是#11/16/1999#)(10)數(shù)值型常量(單精度)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．文本框、“轉(zhuǎn)大寫”命令按鈕和“轉(zhuǎn)大寫”命令按鈕的名稱分別為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考答案．a(chǎn)Ubound(b)n=n-12．Key=a(i)Index=-1xAsSingleespAsSingleDimpSFi%PSi:F=xLoopUntilAbs(F/p)<ESPPrintsubFunctionPxAsSingle,espAsSingle)AssingleDimpSFi%PSi:F=xoopUntilAbsFpESPPsion那么形參的變化，會(huì)引起實(shí)參的變化(即形參將值回傳給實(shí)參)，故可實(shí)現(xiàn)兩數(shù)交換。LFByValxAsSingleAsSingleiondClickDimI%Fori=1To20intILFiNextiubunctionWeekDayByValxAsIntegerAsStringelectCasexCase0WeekDay=”星期日”Case1WeekDay=”星期一”Case2WeekDay=”星期二”Case3WeekDay=”星期三”Case4WeekDay=”星期四”Case5WeekDay=”星期五”Case6WeekDay=”星期六”ctionionRandByValXAsIntegerAsIntegerdIntRndXiondClickFori=1To30PrintRandNextiubDimi%Fori=3Tox-3Step2GDBH=i&"+"&(x-i)&"="&xtionEndIftionnctionispyAsBooleanDoWhilei<=ki=i+1EndIfionivateSubFormClickFori=6To40Step2tGDBHiNextiubctionisQOByValxAsIntegerAsStringisQO=”偶數(shù)”isQO=”奇數(shù)”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輸入學(xué)號(hào)")bnameInputBox輸入姓名")bsexInputBox輸入性別")bmathInputBox輸入數(shù)學(xué)成績(jī)")bengInputBox輸入英語(yǔ)成績(jī)")beleInputBox輸入電子成績(jī)")Write#1,b.id,,b.sex,b.math,b.eng,b.eleoseubrivateSubCommandClickDima,b,cOpencstuodatForInputAs#1WhileNotEOF(1)tabcddItembddItembddItembdoseubriv