VB課本習(xí)題答案第三章_第1頁(yè)
VB課本習(xí)題答案第三章_第2頁(yè)
VB課本習(xí)題答案第三章_第3頁(yè)
VB課本習(xí)題答案第三章_第4頁(yè)
VB課本習(xí)題答案第三章_第5頁(yè)
已閱讀5頁(yè),還剩26頁(yè)未讀 繼續(xù)免費(fèi)閱讀

下載本文檔

版權(quán)說明:本文檔由用戶提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請(qǐng)進(jìn)行舉報(bào)或認(rèn)領(lǐng)

文檔簡(jiǎn)介

第3章程序流程控制3.1填空題1.設(shè)變量r表示圓的半徑,則計(jì)算圓的面積并賦給變量s使用的賦值語(yǔ)句為(s=3。14159*r*r)。2.給命令按鈕Command2的Caption屬性賦予字符串“退出"使用的賦值語(yǔ)句為(Command2.Caption="退出").3.為了求n的階乘,要求用戶輸入n的值。程序使用InputBox函數(shù)輸入,要求對(duì)話框提示信息為“請(qǐng)輸入一個(gè)求階乘的數(shù):”,標(biāo)題為“求數(shù)的階乘”,并且正確地把輸入的信息轉(zhuǎn)換為數(shù)值存放到變量n中,則使用的賦值語(yǔ)句為(n=val(InputBox("請(qǐng)輸入一個(gè)求階乘的數(shù):","求數(shù)的階乘"))。4.如果使用MsgBox對(duì)話框顯示提示信息“退出本系統(tǒng)?",并顯示“是(Yes)”和“否(No)”兩個(gè)按鈕,顯示圖標(biāo)“?”號(hào),指定第一個(gè)按鈕為默認(rèn)值以及標(biāo)題為“提示信息”,則調(diào)用MsgBox函數(shù)的形式為(MsgBox("退出本系統(tǒng)?",4+32+0,"提示信息"))。5.如果使用MsgBox對(duì)話框顯示提示信息“文件未找到!",并顯示“確定”按鈕、圖標(biāo)“!”號(hào)和標(biāo)題“文件查找”,則使用的MsgBox語(yǔ)句為(MsgBox"文件未找到",0+48+0,"文件查找")。6.要在當(dāng)前窗體Form和立即窗口輸出字符串“VisualBASIC6.0"使用的Print方法分別是(Print“VisualBASIC6.0”)和(Debug.Print“VisualBASIC6.0”)。7.使用Print方法時(shí),若用逗號(hào)分隔,則按(標(biāo)準(zhǔn))格式輸出各表達(dá)式的值,若用分號(hào)分隔,則按(緊湊)格式輸出各表達(dá)式的值。8.注釋語(yǔ)句是一個(gè)(非執(zhí)行)語(yǔ)句,VB不對(duì)它們進(jìn)行編譯,對(duì)程序的執(zhí)行結(jié)果沒有任何影響。9.判別變量i是否為偶數(shù),若為偶數(shù)就把它顯示出來。使用單行結(jié)構(gòu)條件語(yǔ)句為(IfiMod2=0Thenprintx)。10.判別變量x是否大于0,若大于0,則累加到變量s1中,否則,累加到變量s2中,使用的單行結(jié)構(gòu)條件語(yǔ)句為(Ifx〉0Thens1=s1+xElses2=s2+x)。11.給定分段函數(shù),求y的值,使用的單行結(jié)構(gòu)條件語(yǔ)句為(Ifx>0Theny=2*x+1ElseIfx=0Theny=0Elsey=2*x—1)。12.判別a是否等于b,若a=b,則輸出字符串“aisequaltob”的塊結(jié)構(gòu)條件語(yǔ)句為()。答案:Ifa=bThenPrint“aisequaltob”End13.判別ch是否為小寫字母,若是,輸出“yes”;否則,輸出“No"的塊結(jié)構(gòu)條件語(yǔ)句為().答案:IfAsc(ch)〉=97AndAsc(ch)〈=122ThenPrint“Yes”ElsePrint“No”EndIf14.若一個(gè)case子句中的表達(dá)式表由逗號(hào)分隔的若干個(gè)常數(shù)組成,則它的含義是:當(dāng)測(cè)試表達(dá)式的值等于(這些常數(shù)中的某一個(gè))時(shí),執(zhí)行該case子句相應(yīng)的程序塊.15.若case子句中的表達(dá)式表列具有形式:〈表達(dá)式1〉To<表達(dá)式2〉,則它的含義是:當(dāng)測(cè)試表達(dá)式的值等于(這個(gè)范圍內(nèi)的值)時(shí),執(zhí)行該case子句相應(yīng)的程序塊.16.若case子句中的表達(dá)式表列具有形式:Is<關(guān)系運(yùn)算符><表達(dá)式>,則它的含義是:當(dāng)測(cè)試表達(dá)式的值滿足(Is后的關(guān)系)時(shí),執(zhí)行該case子句相應(yīng)的程序塊。17.在循環(huán)語(yǔ)句中,反復(fù)執(zhí)行的程序段稱為(循環(huán)體);進(jìn)入循環(huán)體的條件稱為(循環(huán)條件);中止循環(huán)體執(zhí)行的條件稱為(結(jié)束循環(huán)條件)。3.2選擇題1.下列賦值語(yǔ)句中,(d)是正確的.a)x?。剑bc"b)a%="10e"c)x+1=5d)s$=1002.下列選項(xiàng)中,(d)不能交換變量a和b的值。a)t=b:b=a:a=tc)t=a:a=b:b=tb)a=a+b:b=a—b:a=a—bd)a=b:b=a3.若在消息框MsgBox中顯示“確定(Ok)"和“取消(Cancel)”兩個(gè)按鈕,則buttons參數(shù)的設(shè)置值是(b).a)0c)2b)1d)34.若在消息框MsgBox中選擇第二個(gè)按鈕為默認(rèn)值,則buttons參數(shù)的設(shè)置值是(b)。a)0c)512d)7685.若單擊了“終止(Abort)”按鈕,則MsgBox函數(shù)的返回值是(c)。b)2c)3d)46.以下不正確的單行結(jié)構(gòu)條件語(yǔ)句是(d)。b)256a)1a)Ifx>yThenPrint“x〉y”c)IfxMod3=2Then?x7.給定程序段b)IfxThent=t*xd)Ifx<0Theny=2*x—1:PrintxEndIfDimaAsInteger,bAsInteger,cAsIntegera=1:b=2:c=3Ifa=c-bThenPrint”####?!盓lsePrint”*****"以上程序(c)。a)沒有輸出b)有語(yǔ)法錯(cuò)d)輸出*****c)輸出#####8.把a(bǔ),b之中的最大值存放于max,下面語(yǔ)句書寫正確的是(d).a)Ifa>bThenmax=aElsemax=bEndIfb)Ifa>bThenmax=aElsemax=bEndIfc)Ifa〉bThenmax=aElsemax=bd)Ifa〉bThenmax=aElsemax=bEndIf9.下列Case語(yǔ)句中正確的是(c)。a)SelectCasexCase1Or3Or5y=x*x—1CaseIs>10y=x+1EndSelectb)SelectCasexCase1,3,5y=2*x—1CaseIsx<=1Y=2*x+1EndSelectc)SelectCasexCaseIs〈=0y=x—1CaseIs>0y=Sqr(x)+1EndSelectd)SelectCasexCasex>=1Andx<=5y=x-1CaseIs>10y=x*x+1EndSelect10.執(zhí)行下列程序段后屏幕上(c)。i%=10:Sum=0Whilei>1Sum=Sum+ii=i-1WendPrintSuma)無顯示b)顯示10c)顯示54d)顯示5511.執(zhí)行下列程序段輸出結(jié)果是(c)。x%=2Dowhilex〈8Print“*”;x=x+2Loopa)*b)**c)***d)****12.設(shè)有程序段Dimk%k=5Dountilk=0k=k-1Loop則下面對(duì)循環(huán)語(yǔ)句描述正確的是(c)。a)循環(huán)體1次也不執(zhí)行c)循環(huán)體執(zhí)行5次b)循環(huán)體執(zhí)行1次d)循環(huán)體執(zhí)行無限次13.下面描述中錯(cuò)誤的是(a,c)。a)執(zhí)行Dountil〈條件〉…loop語(yǔ)句中,當(dāng)循環(huán)〈條件〉為false時(shí),結(jié)束循環(huán)體的執(zhí)行。b)執(zhí)行While〈條件〉…Wend語(yǔ)句時(shí),循環(huán)體可能一次也不執(zhí)行。c)Do…loopWhile<條件〉語(yǔ)句的循環(huán)體可能一次也不執(zhí)行。d)執(zhí)行Do…loopUntil<條件>語(yǔ)句中,當(dāng)循環(huán)條件為true時(shí),結(jié)束循環(huán)體的執(zhí)行.14.下面程序段中循環(huán)語(yǔ)句的循環(huán)次數(shù)是(b).Forx=10To1Step—3PrintxNextxa)015.執(zhí)行語(yǔ)句Fori=1to3:i=i+1:Nexti后變量i的值是(c)。a)3b)4c)5d)6b)4c)5d)1016.下面程序段執(zhí)行后輸出結(jié)果是(b)。Fori=1To2s=1Forj=0Toi—1s=s+s*jNextjPrints,Nextia)11b)12c)21d)223.3閱讀下列程序,寫出執(zhí)行結(jié)果1。PrivateSubForm_ClickPrint–2*3/2,“Visual"&“BASIC”,Not5〉3,0。75Print–2*3/2;“Visual”&“BASIC”;Not5>3;0。75x=12。34Print“x=”;PrintxEndSub答案:-3VisualBASICFalse.75—3VisualBASICFalse。75x=12.342.PrivateSubForm_ClickPrintTab(10);—100;Tab(20);200;Tab(30);—300PrintSpc(10);-100;Spc(10);200;Spc(10);-300EndSub答案:-100200-300-100200-3003.PrivateSubForm_Clickx=12。35PrintFormat(x,”###.##")PrintFormat(x,”##.#?!保㏄rintFormat(x,”000。00”)PrintFormat(x,”00。0")PrintFormat(x,”0。00%”)PrintFormat(x,”$##.#?!保㏄rintFormat(x,”+##。##”)PrintFormat(x,”00。00E+00”)EndSub答案:12.3512.35012.3512.41235.00%$12。35+12。3512.35e+004.PrivateSubCommand1_Click()Dima%,b%,c%,s%,w%,t%a=-1:b=3:c=3s=0:w=0:t=0Ifc〉0Thens=a+bIfa<=0ThenIfc<=0Thenw=a—bEndIfElseIfc〉0Thenw=a-bElset=cEndIfc=a+bPrinta,b,cPrints,w,tEndSub答案:—1322005.PrivateSubCommand1_Click()Dimx%,y%x=InputBox("請(qǐng)輸入x的值:”)SelectCasexCase1,3,5y=x—1Case6To10y=x+1Case2,4y=2*xCaseIs〉10y=x*x+1EndSelectPrint"x=”;x,”y=”;yEndSub(x的輸入值為2。5、8、4和15)答案:x=2y=4x=8y=9x=4y=8x=15y=2266.PrivateSubCommand1_Click()Dimi%,t!t=1:i=1Whilei<10t=t*ii=i+2WendPrint”t=”;tEndSub答案:t=9457.PrivateSubCommand1_Click()Dimi%,x%,y%x=1:y=1:i=1DoUntili〉8IfiMod2=1Thenx=x*iElsey=y*iEndIfi=i+1LoopPrint"x=”;x,”y=";yEndSub答案:x=105y=3848.PrivateSubCommand1_Click()Dimp%,s%p=1:s=1Dop=p+2:s=s+pLoopWhilep〈10Print"s=”;sEndSub答案:s=369.PrivateSubCommand1_Click()Dimm%,n%Form=1to3n=0Whilen〈=m—1Printm,nn=n+1WendNextmEndSub答案:1020231033123.4編程題1.輸入一個(gè)學(xué)生成績(jī),若成績(jī)?cè)?5分以上,則輸出“verygood";若成績(jī)?cè)?0分到80分之間,則輸出“good”;若成績(jī)低于60分,則輸出“nogood”.解答:(1)界面設(shè)計(jì)和屬性設(shè)置在窗體上建立兩個(gè)標(biāo)簽、兩個(gè)文本框和兩個(gè)命令按鈕.窗體和窗體上控件的主要屬性設(shè)置如表3—3-1所示。表3-3—1第1題的屬性設(shè)置控件名稱屬性名屬性值Form1Caption根據(jù)分?jǐn)?shù)給定評(píng)語(yǔ)Label1CaptionCaptionText分?jǐn)?shù)評(píng)語(yǔ)空串空串開始結(jié)束Label2Text1Text2TextCommand1Command2CaptionCaption(2)程序代碼PrivateSubCommand1_Click()Dimscore!score=Val(Text1。Text)Ifscore>=85ThenText2。Text="Verygood!"ElseIfscore>=60ThenText2。Text="Good!”ElseText2.Text=”Nogood!"EndIfEndSubPrivateSubCommand2_Click()EndEndSub(3)運(yùn)行情況運(yùn)行程序后,屏幕出現(xiàn)用戶界面。把鼠標(biāo)移到Text1文本框并單擊,輸入分?jǐn)?shù)。然后,單擊“開始”命令按鈕,系統(tǒng)執(zhí)行Command1_Click事件過程。執(zhí)行結(jié)果如圖3。3。1所示。單擊標(biāo)題為“結(jié)束"的命令按鈕,執(zhí)行Command2_Click事件過程,結(jié)束程序的執(zhí)行.圖3。3。1第1題的執(zhí)行結(jié)果2。求一元二次方程ax+bx+c=0的根。解答:(1)界面設(shè)計(jì)和屬性設(shè)置在窗體上建立兩個(gè)命令按鈕。窗體和命令按鈕的主要屬性設(shè)置如表3-3—2所示。表3-3—2第2題的屬性設(shè)置控件名稱屬性名屬性值Form1Caption求一元二次方程的根Command1Command2CaptionCaption開始結(jié)束(2)程序代碼由中學(xué)數(shù)學(xué)知識(shí)知道,求一元二次方程的根的公式為:,編程時(shí)要考慮如下各種情況:①當(dāng)a=0時(shí),方程不是二次方程;②當(dāng)b2—4ac=0時(shí),有兩個(gè)相同的實(shí)根:;③當(dāng)b2—4ac〉0時(shí),有兩個(gè)不同的實(shí)根:;④當(dāng)b2-4ac〈0時(shí),有兩個(gè)共軛復(fù)根:PrivateSubCommand1_Click()Cls.Dima!,b!,c!,disc!,x1!,x2!,realpart!,imagpart!a=InputBox(”請(qǐng)輸入方程的系數(shù)a:”)b=InputBox(”請(qǐng)輸入方程的系數(shù)b:")c=InputBox("請(qǐng)輸入方程的系數(shù)c:")Print:PrintPrintTab(10);”輸入方程的系數(shù)為:”;"a=";a;”b=”;b;"c=”;cPrintIfAbs(a)<=0。000001ThenPrintTab(15);”方程不是一個(gè)二次方程!”Elsedisc=b^2-4*a*cIfAbs(disc)<=0。000001ThenPrintTab(10);”方程有兩個(gè)相同的實(shí)根:”;"x1=x2=”;—b/(2*a)ElseIfdisc>0。000001Thenx1=(-b+Sqr(disc))/(2*a)x2=(-b—Sqr(disc))/(2*a)PrintTab(5);"方程有兩個(gè)實(shí)根:"PrintTab(18);”x1=”;x1PrintTab(18);”x2=”;x2ElseIfdisc〈0。000001Thenrealpart=—b/(2*a):imagpart=Sqr(—disc)/(2*a)PrintTab(5);”方程有兩個(gè)虛根:";PrintTab(18);”x1=”;realpart;”+";imagpart;"i”PrintTab(18);"x2=”;realpart;”-";imagpart;”i"EndIfEndIfEndSubPrivateSubCommand2_Click()EndEndSub注意,程序中的條件“fabs(a)〈=0。000001”和“fabs(disc)〈=0。000001”分別用來判斷a和disc的值是否為0。因?yàn)閷?shí)數(shù)在計(jì)算機(jī)計(jì)算和存儲(chǔ)時(shí)會(huì)有微小的誤差,若用“a=0”和“disc=0”來判斷a和disc是否為0,則會(huì)由于誤差導(dǎo)致條件不成立,無法得到正確的運(yùn)行結(jié)果.(3)運(yùn)行情況運(yùn)行程序后,單擊“開始"命令按鈕,執(zhí)行Command1_Click事件過程。執(zhí)行時(shí),在InputBox框中輸入a、b和c三個(gè)系數(shù).圖3.3.2~圖3。3.5顯示了不同系數(shù)輸入的執(zhí)行結(jié)果。圖3。3。2執(zhí)行結(jié)果(a)圖3。3.3執(zhí)行結(jié)果(b)圖3。3。4執(zhí)行結(jié)果(c)圖3.3。5執(zhí)行結(jié)果(d)3。給定函數(shù)y=,從鍵盤上輸入x的值,求y的值。(要求使用Case語(yǔ)句)解答:(1)界面設(shè)計(jì)和屬性設(shè)置在窗體上建立兩個(gè)命令按鈕.窗體和命令按鈕的主要屬性設(shè)置如表3-3-3所示。表3—3-3第3題的屬性設(shè)置控件名稱屬性名屬性值Form1Caption求給定分段函數(shù)的值Command1Command2CaptionCaption開始結(jié)束(2)程序代碼PrivateSubCommand1_Click()ClsDimx!,y!x=InputBox(”請(qǐng)輸入x的值:”)Ifx〉=1Andx〈=5ThenSelectCasexCaseIs〈2y=3*x-5CaseIs〈4y=2*Cos(x)+1CaseIs<=5y=Sqr(1+x*x)EndSelectElsey=x*x—4*x+5EndIfPrintTab(10);"x=”;x,”y=”;yEndSubPrivateSubCommand2_Click()EndEndSub(3)運(yùn)行情況運(yùn)行程序后,單擊“開始”命令按鈕,執(zhí)行事件過程Command1_Click。執(zhí)行時(shí),按InputBox對(duì)話框提示,輸入x的值。計(jì)算結(jié)果在窗體上顯示.4.輸入圓的半徑R和運(yùn)算標(biāo)志,按照運(yùn)算標(biāo)志進(jìn)行指定運(yùn)算。給定的運(yùn)算標(biāo)志及其表示的運(yùn)算如下:C(Circle)表示計(jì)算周長(zhǎng)A(Area)表示計(jì)算面積B(Both)表示周長(zhǎng)和面積都計(jì)算(要求使用Case語(yǔ)句)解答:(1)界面設(shè)計(jì)和屬性設(shè)置在窗體上放置兩個(gè)命令按鈕.窗體和命令按鈕的主要屬性設(shè)置如表3-3-4所示。表3-3—4第4題的屬性設(shè)置控件名稱屬性名屬性值Form1Caption計(jì)算圓周長(zhǎng)或圓面積或兩者都計(jì)算開始Command1Command2CaptionCaption結(jié)束(2)程序代碼PrivateSubCommand1_Click()ClsDimr!,fAsString*1Constpi!=3.14159265r=InputBox("請(qǐng)輸入圓的半徑r:”)Ifr〉=0Thenf=UCase(InputBox(”輸入運(yùn)算標(biāo)志:"+Chr(13)&_"C___(計(jì)算周長(zhǎng))”+Chr(13)&_”A___(計(jì)算面積)"+Chr(13)&_”B___(兩者都計(jì)算)"))SelectCasef’提示信息分多行顯示Case"C"PrintTab(10);"半徑r=”;r;"圓周長(zhǎng)=”;r*2*piCase"A"PrintTab(10);"半徑r=”;r;”圓面積=";r^2*piCase"B”PrintTab(10);"半徑r=”;r;”圓周長(zhǎng)=”;r*2*piPrintTab(10);”半徑r=”;r;”圓面積=";r^2*piCaseElsePrintTab(18);”輸入的運(yùn)算標(biāo)志錯(cuò)!”EndSelectElsePrintTab(18);”半徑不能是負(fù)數(shù)!"EndIfEndSubPrivateSubCommand2_Click()EndEndSub(3)運(yùn)行情況運(yùn)行程序后,單擊標(biāo)題為“開始"的命令按鈕,執(zhí)行Command1_Click事件過程。按InputBox對(duì)話框的提示輸入半徑r和運(yùn)算標(biāo)志.計(jì)算結(jié)果在窗體上顯示。5.求滿足12+22+…+n2〉1000的最小n值.(要求使用While…WEnd語(yǔ)句)解答:(1)界面設(shè)計(jì)和屬性設(shè)置在窗體上建立兩個(gè)命令按鈕。窗體和命令按鈕的主要屬性設(shè)置如表3-3-5所示。表3—3-5第5題的屬性設(shè)置控件名稱屬性名屬性值Form1Caption求滿足1^2+2^2+…+n^2>1000的最小n值Command1Command2CaptionCaption開始結(jié)束(2)程序代碼PrivateSubCommand1_Click()Dimn%,s&n=0:s=0Whiles〈=1000n=n+1s=s+n^2WendPrint:Print:PrintPrintTab(8);”滿足1^2+2^2+…+n^2>1000的最小n值為:”;nEndSubPrivateSubCommand2_Click()EndEndSub6.輸入若干個(gè)正實(shí)數(shù),個(gè)數(shù)預(yù)先不能確定,求這些正實(shí)數(shù)之和。(要求分別使用DoWhile…Loop語(yǔ)句和DoUntil…Loop語(yǔ)句)解答:(1)界面設(shè)計(jì)和屬性設(shè)置在窗體上建立三個(gè)命令按鈕。窗體和命令按鈕的主要屬性設(shè)置如表3-3-6所示。表3-3—6第6題的屬性設(shè)置控件名稱屬性名屬性值Form1Caption求正實(shí)數(shù)之和DoWhile…LoopDoUntil…LoopCommand1Command2Command3CaptionCaptionCaption結(jié)束(2)程序代碼PrivateSubCommand1_Click()ClsDima!,s!a=InputBox(”輸入一個(gè)實(shí)數(shù):")DoWhilea〉=0s=s+aa=InputBox(”輸入一個(gè)實(shí)數(shù):”)LoopPrint:PrintPrintTab(15);"輸入的正實(shí)數(shù)之和為:”;sEndSubPrivateSubCommand2_Click()ClsDima!,s!a=InputBox("輸入一個(gè)實(shí)數(shù):")DoUntila〈0s=s+aa=InputBox("輸入一個(gè)實(shí)數(shù):”)LoopPrint:Print:PrintPrintTab(15);"輸入的正實(shí)數(shù)之和為:”;sEndSubPrivateSubCommand3_Click()EndEndSub(3)運(yùn)行情況運(yùn)行程序后,屏幕出現(xiàn)用戶界面如圖3.3。6所示。單擊標(biāo)題為“DoWhile…Loop”或標(biāo)題為“DoWhile…Loop”的命令按鈕,系統(tǒng)執(zhí)行相應(yīng)的Click事件過程。用戶可以輸入一系列數(shù)據(jù),以輸入-1作結(jié)束。窗體顯示運(yùn)算結(jié)果。單擊“結(jié)束”按鈕,結(jié)束程序執(zhí)行。圖3。3。6第6題的執(zhí)行結(jié)果7.使用公式While語(yǔ)句)來求π的近似值,直到最后一項(xiàng)的值小于10-8為止.(要求使用Do…Loop解答:(1)界面設(shè)計(jì)和屬性設(shè)置在窗體上建立兩個(gè)命令按鈕。窗體和命令按鈕的主要屬性設(shè)置如表3—3—7所示.表3-3-7第7題的屬性設(shè)置控件名稱屬性名屬性值Form1Caption求圓周率的近似值Command1Command2CaptionCaption開始結(jié)束(2)程序代碼PrivateSubCommand1_Click()Dimi&,s#,term#i=1s=0Doterm=1/(i*i)s=s+termi=i+1LoopWhileterm>=0.00000001Print:Print:PrintPrintTab(8);"圓周率的近似值為:";Sqr(6*s)EndSubPrivateSubCommand2_Click()EndEndSub(3)運(yùn)行情況運(yùn)行程序后,單擊標(biāo)題為“開始”的命令按鈕,執(zhí)行Command1_Click事件過程。計(jì)算結(jié)果在窗體上顯示。8.由數(shù)值計(jì)算方法可知,用牛頓迭代法解方程f(x)=0的迭代公式為:試用牛頓迭代法求解方程x5-3x2+2x+1=0在x0=0附近的根。(要求使用Do…LoopUntil語(yǔ)句)解答:(1)界面設(shè)計(jì)和屬性設(shè)置在窗體上建立兩個(gè)命令按鈕.窗體和命令按鈕的主要屬性設(shè)置如表3-3—8所示。表3-3-8第8題的屬性設(shè)置控件名稱屬性名屬性值Form1Caption用牛頓法求方程的根Command1Command2CaptionCaption開始結(jié)束(2)程序代碼根據(jù)迭代公式,牛頓迭代法的計(jì)算過程為:①令n=0,由迭代公式得,然后判別∣x1-x0∣是否小于ε(給定精度)。若是,則迭代結(jié)束,x1作為方程的近似根;否則,進(jìn)行下一步。②令n=1,由迭代公式得,然后判別∣x2-x1∣是否小ε。若是,則迭代結(jié)束,x2作為方程的近似根;否則,由x2求x3的值,判斷∣x3-x2∣.┇按這樣迭代下去,一直到∣xi+1-xi∣<ε(i=0,1,2,…)為止。根據(jù)上述計(jì)算過程可以編寫程序?yàn)?PrivateSubCommand1_Click()Dimx0!,x1!x1=0Dox0=x1x1=x0—(x0^5-3*x0^2+2*x0+1)/(5*x0^4—6*x0+2)LoopUntilAbs(x1-x0)<0。00001PrintTab(10);”方程的根為:”;x1EndSubPrivateSubCommand2_Click()EndEndSub(3)運(yùn)行情況運(yùn)行程序后,單擊標(biāo)題為“開始”的命令按鈕,執(zhí)行Command1_Click事件過程.在窗體上顯示計(jì)算結(jié)果.9.求S=的值。解答:(1)界面設(shè)計(jì)和屬性設(shè)置在窗體上建立兩個(gè)命令按鈕。窗體和命令按鈕的主要屬性設(shè)置如表3-3—9所示.表3—3-9第9題的屬性設(shè)置控件名稱Form1屬性名Caption屬性值求s=1—1/2+1/3-1/4+…+1/99-1/100的值Command1Command2CaptionCaption開始結(jié)束(2)程序代碼PrivateSubCommand1_Click()Dimi%,s!,sign%sign=1:s=0Fori=1To100s=s+sign*1/isign=—signNextiPrint:Print:PrintPrintTab(18);”s的值為:";sEndSubPrivateSubCommand2_Click()EndEndSub(3)運(yùn)行情況運(yùn)行程序后,單擊標(biāo)題為“開始”的命令按鈕,執(zhí)行Command1_Click事件過程。窗體顯示計(jì)算結(jié)果。10.求100到999中的水仙花數(shù)。所謂水仙花數(shù)是指一個(gè)三位數(shù),它的各位數(shù)字的立方之和等于該數(shù)。例如,因?yàn)?53=13+53+33,所以153是水仙花數(shù)。解答:(1)界面設(shè)計(jì)和屬性設(shè)置在窗體上建立兩個(gè)命令按鈕。窗體和命令按鈕的主要屬性設(shè)置如表3-3-10所示。表3-3—10第10題的屬性設(shè)置控件名稱Form1屬性名Caption屬性值求水仙花數(shù)開始Command1Command2CaptionCaption結(jié)束(2)程序代碼PrivateSubCommand1_Click()Dimi%,a%,b%,c%PrintPrintTab(5);”100——999之間的水仙花數(shù)為:"Fori=100To999a=i\100b=(i-a*100)\10c=i—a*100—b*10Ifi=a^3+b^3+c^3ThenPrintTab(10);iEndIfNextiEndSubPrivateSubCommand2_Click()EndEndSub(3)運(yùn)行情況執(zhí)行結(jié)果如圖3.3.7所示.圖3。3.7第10題的執(zhí)行結(jié)果11。求1000之內(nèi)的所有完數(shù).所謂完數(shù)是指一個(gè)數(shù)恰好等于它的所有因子之和.例如,因?yàn)?=1+2+3,所以6為完數(shù)。解答:(1)界面設(shè)計(jì)和屬性設(shè)置在窗體上建立兩個(gè)命令按鈕.窗體和命令按鈕的主要屬性設(shè)置如表3-3-11所示。表3—3-11第11題的屬性設(shè)置控件名稱Form1屬性名Caption屬性值求完數(shù)開始Command1Command2CaptionCaption結(jié)束(2)程序代碼PrivateSubCommand1_Click()Dimi%,j%,s%PrintPrintTab(5);”1--1000之內(nèi)的完數(shù)為:”Fori=1To1000s=0Forj=1Toi—1IfiModj=0Thens=s+jNextjIfi=sThenPrintTab(5);iNextiEndSubPrivateSubCommand2_Click()EndEndSub(3)運(yùn)行情況程序執(zhí)行結(jié)果如圖3。3.8所示.圖3.3。8第11題的執(zhí)行結(jié)果12.在窗體上輸出形如以下圖形,其中第一行的起始字母和終止字母由用戶從鍵盤上輸入。ABCDEBCDEACDEABDEABCEABCD

溫馨提示

  • 1. 本站所有資源如無特殊說明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請(qǐng)下載最新的WinRAR軟件解壓。
  • 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請(qǐng)聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
  • 3. 本站RAR壓縮包中若帶圖紙,網(wǎng)頁(yè)內(nèi)容里面會(huì)有圖紙預(yù)覽,若沒有圖紙預(yù)覽就沒有圖紙。
  • 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
  • 5. 人人文庫(kù)網(wǎng)僅提供信息存儲(chǔ)空間,僅對(duì)用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理,對(duì)用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對(duì)任何下載內(nèi)容負(fù)責(zé)。
  • 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容,請(qǐng)與我們聯(lián)系,我們立即糾正。
  • 7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時(shí)也不承擔(dān)用戶因使用這些下載資源對(duì)自己和他人造成任何形式的傷害或損失。

評(píng)論

0/150

提交評(píng)論