VB課本習(xí)題答案第三章3558

VB語(yǔ)言基礎(chǔ)第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ù)的階乘＂））。４．如果使用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，＂提示信息＂））。５．如果使用MsgBox對(duì)話框顯示提示信息“文件未找到！”，并顯示“確定”按鈕、圖標(biāo)“！”號(hào)和標(biāo)題“文件查找”，則使用的MsgBox語(yǔ)句為（MsgBox＂文件未找到＂，0+48+0，＂文件查找＂）。６．要在當(dāng)前窗體Form和立即窗口輸出字符串“VisualBASIC6.0”使用的Print方法分別是(Print“VisualBASIC”6.0)和(Debug.Print“VisualBASIC”6.0)。７．使用Print方法時(shí)，若用逗號(hào)分隔，則按(標(biāo)準(zhǔn))格式輸出各表達(dá)式的值，若用分號(hào)分隔，則按(緊湊)格式輸出各表達(dá)式的值。８．注釋語(yǔ)句是一個(gè)（非執(zhí)行）語(yǔ)句，VB不對(duì)它們進(jìn)行編譯，對(duì)程序的執(zhí)行結(jié)果沒(méi)有任何影響。９．判別變量i是否為偶數(shù)，若為偶數(shù)就把它顯示出來(lái)。使用單行結(jié)構(gòu)條件語(yǔ)句為（IfiMod2=0Thenprintx）。頁(yè)腳內(nèi)容1VB語(yǔ)言基礎(chǔ)10．判別變量x是否大于0，若大于0，則累加到變量s1中，否則，累加到變量s2中，使用的單行結(jié)構(gòu)條件語(yǔ)句為（Ifx>0Thens1=s1+xElses2=s2+x）。2x1x0y0x02x1x0，求y的值，使用的單行結(jié)構(gòu)條件語(yǔ)句為（Ifx>0Then11．給定分段函數(shù)y=2*x+1ElseIfx=0Theny=0Elsey=2*x-）。112．判別a是否等于b，若a=b，則輸出字符串“aisequal的to塊b”結(jié)構(gòu)條件語(yǔ)句為（）。答案：Ifa=bThenPrint“aisequaltob”End13．判別ch是否為小寫(xiě)字母，若是，輸出“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á)式的頁(yè)腳內(nèi)容2VB語(yǔ)言基礎(chǔ)值等于（這些常數(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選擇題１．下列賦值語(yǔ)句中，(d是)正確的。ａ)x?。剑bc＂b)a％＝＂10e＂c)x＋１＝５d)s＄＝1002．下列選項(xiàng)中，(d不)能交換變量a和b的值。a)t=b:b=a:a=tb)a=a+b:b=a-b:a=a-bc)t=a:a=b:b=td)a=b:b=a3．若在消息框MsgBox中顯示“確定(Ok)”和“取消(Cancel)”兩個(gè)按鈕，則buttons參數(shù)的設(shè)置值是(b。)a)0b)1c)2d)34．若在消息框MsgBox中選擇第二個(gè)按鈕為默認(rèn)值，則buttons參數(shù)的設(shè)置值是(b)。a)0b)256c)512d)7685．若單擊了“終止（Abort）”按鈕，則MsgBox函數(shù)的返回值是（c）。頁(yè)腳內(nèi)容3VB語(yǔ)言基礎(chǔ)a)1b)2c)3d)46．以下不正確的單行結(jié)構(gòu)條件語(yǔ)句是（d）。a)Ifx>yThenPrint“x>y”b)IfxThent=t*xc)IfxMod3=2Thenx?d)Ifx<0Theny=2*x-1:PrintxEndIf7．給定程序段DimaAsInteger,bAsInteger,cAsIntegera=1：b=2：c=3Ifa=c-bThenPrint"#####"ElsePrint"*****"以上程序（c）。a)沒(méi)有輸出c)輸出#####b)有語(yǔ)法錯(cuò)d)輸出*****8．把a(bǔ),之b中的最大值存放于max，下面語(yǔ)句書(shū)寫(xiě)正確的是（d）。a)Ifa>bThenmax=aElsemax=bEndIfb)Ifa>bThenmax=aElsemax=bEndIfc)Ifa>bThen頁(yè)腳內(nèi)容4VB語(yǔ)言基礎(chǔ)max=aElsemax=bd)Ifa>bThenmax=aElsemax=bEndIf9.下列Case語(yǔ)句中正確的是（c）。a)SelectCasexCase1Or3Or5y=x*x-1CaseIs>10y=x+1EndSelectb)SelectCasex頁(yè)腳內(nèi)容5VB語(yǔ)言基礎(chǔ)Case1,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）。頁(yè)腳內(nèi)容6VB語(yǔ)言基礎(chǔ)i%=10:Sum=0Whilei>1Sum=Sum+ii=i-1WendPrintSuma)無(wú)顯示b)顯示10c)顯示54d)顯示5511．執(zhí)行下列程序段輸出結(jié)果是（c）。x%=2Dowhilex<8Print“*”；x=x+2Loopa)*b)**c)***d)****12．設(shè)有程序段Dimk%k=5頁(yè)腳內(nèi)容7VB語(yǔ)言基礎(chǔ)Dountilk=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í)行無(wú)限次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)0b)4c)5d)1015．執(zhí)行語(yǔ)句Fori=1to3:i=i+1:Next后變量ii的值是（c）。頁(yè)腳內(nèi)容8VB語(yǔ)言基礎(chǔ)a)3b)4c)5d)616．下面程序段執(zhí)行后輸出結(jié)果是（b）。Fori=1To2s=1Forj=0Toi-1s=s+s*jNextjPrints,Nextia)11b)12c)21d)223．3閱讀下列程序，寫(xiě)出執(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=”；Printx頁(yè)腳內(nèi)容9VB語(yǔ)言基礎(chǔ)EndSub答案：-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,.##”)PrintFormat”(00x,0.00”)PrintFormat”(00x,.0”)PrintFormat”(0.x,00%”)頁(yè)腳內(nèi)容10VB語(yǔ)言基礎(chǔ)PrintFormat”($#x,#.##”)PrintFormat”(+#x,#.##”)PrintFormat”(00x,.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+b頁(yè)腳內(nèi)容11VB語(yǔ)言基礎(chǔ)Ifa<=0ThenIfc<=0Thenw=a-bEndIfElseIfc>0Thenw=a-bElset=cEndIfc=a+bPrinta,b,cPrints,w,tEndSub答案：-1322005．PrivateSubCommand1_Click()Dimx%,y%x=InputBox("請(qǐng)輸入x的值：")SelectCasex頁(yè)腳內(nèi)容12VB語(yǔ)言基礎(chǔ)Case1,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()頁(yè)腳內(nèi)容13VB語(yǔ)言基礎(chǔ)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*i頁(yè)腳內(nèi)容14VB語(yǔ)言基礎(chǔ)EndIfi=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%頁(yè)腳內(nèi)容15VB語(yǔ)言基礎(chǔ)Form=1to3n=0Whilen<=m-1Printm,nn=n+1WendNextmEndSub答案:1020213330123．4編程題1.輸入一個(gè)學(xué)生成績(jī)，若成績(jī)?cè)?5分以上，則輸出“verygood”；若成績(jī)?cè)?0分到80分之間，則輸出“good”；若成績(jī)低于60分，則輸出“nogood”。頁(yè)腳內(nèi)容16VB語(yǔ)言基礎(chǔ)解答：(1)界面設(shè)計(jì)和屬性設(shè)置在窗體上建立兩個(gè)標(biāo)簽、兩個(gè)文本框和兩個(gè)命令按鈕。窗體和窗體上控件的主要屬性設(shè)置如表3-3-1所示。表3-3-1第1題的屬性設(shè)置控件名屬性名CaptionCaption屬性值稱Form1根據(jù)分?jǐn)?shù)給定評(píng)語(yǔ)Label1Label2Text1分?jǐn)?shù)評(píng)語(yǔ)空串空串開(kāi)始CaptionTextTextText2CaptionCommand1頁(yè)腳內(nèi)容17VB語(yǔ)言基礎(chǔ)Caption結(jié)束Command2(2)程序代碼PrivateSubCommand1_Click()Dimscore!score=Val(Text1.Text)Ifscore>=85ThenText2.Text="Verygood!"ElseIfscore>=60ThenText2.Text="Good!"ElseText2.Text="Nogood!"EndIfEndSubPrivateSubCommand2_Click()EndEndSub頁(yè)腳內(nèi)容18VB語(yǔ)言基礎(chǔ)(3)運(yùn)行情況運(yùn)行程序后，屏幕出現(xiàn)用戶界面。把鼠標(biāo)移到Text1文本框并單擊，輸入分?jǐn)?shù)。然后，單擊“開(kāi)始”命令按鈕，系統(tǒng)執(zhí)行Command1_Click事件過(guò)程。執(zhí)行結(jié)果如圖3.3.1所示。單擊標(biāo)題為“結(jié)束”的命令按鈕，執(zhí)行Command2_Click事件過(guò)程，結(jié)束程序的執(zhí)行。圖3.3.1第1題的執(zhí)行結(jié)果2.求一元二次方程ax2+bx+c=0的根。解答：(1)界面設(shè)計(jì)和屬性設(shè)置在窗體上建立兩個(gè)命令按鈕。窗體和命令按鈕的主要屬性設(shè)置如表3-3-2所示。表3-3-2第2題的屬性設(shè)置控件名屬性名屬性值稱Form1Caption求一元二次頁(yè)腳內(nèi)容19VB語(yǔ)言基礎(chǔ)方程的根Caption開(kāi)始結(jié)束Command1CaptionCommand2(2)程序代碼xbb24ac由中學(xué)數(shù)學(xué)知識(shí)知道，求一元二次方程的根的公式為：編程時(shí)要考慮如下各種情況：2a，1,2①當(dāng)a=0時(shí)，方程不是二次方程；xb2a；②當(dāng)b2-4ac=0時(shí),有兩個(gè)相同的實(shí)根：1,2xbb24ac③當(dāng)b2-4ac>0時(shí),有兩個(gè)不同的實(shí)根：；2a1,2xb4acb2i2a2a。1,2④當(dāng)b2-4ac<0時(shí),有兩個(gè)共軛復(fù)根：PrivateSubCommand1_Click()ClsDima!,b!,c!,disc!,x1!,x2!,realpart!,imagpart!頁(yè)腳內(nèi)容20VB語(yǔ)言基礎(chǔ)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=";x1頁(yè)腳內(nèi)容21VB語(yǔ)言基礎(chǔ)PrintTab(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”分別用來(lái)判斷a和disc的值是否為0。因?yàn)閷?shí)數(shù)在計(jì)算機(jī)計(jì)算和存儲(chǔ)時(shí)會(huì)有微小的誤差，若用“a=0”和“disc=0”來(lái)判斷a和disc是否為0，則會(huì)由于誤差導(dǎo)致條件不成立，無(wú)法得到正確的運(yùn)行結(jié)果。(3)運(yùn)行情況運(yùn)行程序后，單擊“開(kāi)始”命令按鈕，執(zhí)行Command1_Click事件過(guò)程。執(zhí)行時(shí)，在InputBox框中輸入a、b和c三個(gè)系數(shù)。圖3.3.2～圖3.3.5顯示了不同系數(shù)輸入的執(zhí)行結(jié)果。頁(yè)腳內(nèi)容22VB語(yǔ)言基礎(chǔ)圖3.3.2執(zhí)行結(jié)果(a)圖3.3.3執(zhí)行結(jié)果(b)圖3.3.4執(zhí)行結(jié)果(c)圖3.3.5執(zhí)行結(jié)果(d)3x51x22x44x5其它2cosx11x23.給定函數(shù)y=x24x5,從鍵盤上輸入x的值，求y的值。(要求使用Case語(yǔ)句)解答：(1)界面設(shè)計(jì)和屬性設(shè)置在窗體上建立兩個(gè)命令按鈕。窗體和命令按鈕的主要屬性設(shè)置如表3-3-3所示。頁(yè)腳內(nèi)容23VB語(yǔ)言基礎(chǔ)表3-3-3第3題的屬性設(shè)置控件名屬性名屬性值稱Form1Caption求給定分段函數(shù)的值Caption開(kāi)始結(jié)束Command1Command2Caption(2)程序代碼PrivateSubCommand1_Click()ClsDimx!,y!x=InputBox("請(qǐng)輸入x的值：")Ifx>=1Andx<=5ThenSelectCasexCaseIs<2頁(yè)腳內(nèi)容24VB語(yǔ)言基礎(chǔ)y=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)行程序后，單擊“開(kāi)始”命令按鈕，執(zhí)行事件過(guò)程Command1_Click。執(zhí)行時(shí)，按InputBox對(duì)話框提示，輸入x的值。計(jì)算結(jié)果在窗體上顯示。頁(yè)腳內(nèi)容25VB語(yǔ)言基礎(chǔ)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ì)算Caption開(kāi)始Command1頁(yè)腳內(nèi)容26VB語(yǔ)言基礎(chǔ)Caption結(jié)束Command2(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ì)算)"))'提示信息分多行顯示SelectCasefCase"C"PrintTab(10);半徑"r=";r;圓"周長(zhǎng)=";r*2*piCase"A"頁(yè)腳內(nèi)容27VB語(yǔ)言基礎(chǔ)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)題為“開(kāi)始”的命令按鈕，執(zhí)行Command1_Click事件過(guò)程。按InputBox對(duì)話框的提示輸入半徑r和運(yùn)算標(biāo)志。計(jì)算結(jié)果在窗體上顯示。頁(yè)腳內(nèi)容28VB語(yǔ)言基礎(chǔ)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值Caption開(kāi)始結(jié)束Command1Command2Caption(2)程序代碼PrivateSubCommand1_Click()頁(yè)腳內(nèi)容29VB語(yǔ)言基礎(chǔ)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所示。頁(yè)腳內(nèi)容30VB語(yǔ)言基礎(chǔ)表3-3-6第6題的屬性設(shè)置控件名屬性名屬性值稱Form1Caption求正實(shí)數(shù)之和DoWhile…LoopCaptionCommand1Command2Command3CaptionCaptionDoUntil…Loop結(jié)束(2)程序代碼PrivateSubCommand1_Click()ClsDima!,s!a=InputBox("輸入一個(gè)實(shí)數(shù)：")DoWhilea>=0頁(yè)腳內(nèi)容31VB語(yǔ)言基礎(chǔ)s=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ù)之和為：";sEndSub頁(yè)腳內(nèi)容32VB語(yǔ)言基礎(chǔ)PrivateSubCommand3_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事件過(guò)程。用戶可以輸入一系列數(shù)據(jù)，以輸入-1作結(jié)束。窗體顯示運(yùn)算結(jié)果。單擊“結(jié)束”按鈕，結(jié)束程序執(zhí)行。圖3.3.6第6題的執(zhí)行結(jié)果2117．使用公式來(lái)求π的近似值，直到最后一項(xiàng)的值小于10-8為止。(要求使用Do…61222LoopWhile語(yǔ)句)解答：(1)界面設(shè)計(jì)和屬性設(shè)置在窗體上建立兩個(gè)命令按鈕。窗體和命令按鈕的主要屬性設(shè)置如表3-3-7所示。頁(yè)腳內(nèi)容33VB語(yǔ)言基礎(chǔ)表3-3-7第7題的屬性設(shè)置控件名屬性名屬性值稱Form1Caption求圓周率的近似值Caption開(kāi)始結(jié)束Command1Command2Caption(2)程序代碼PrivateSubCommand1_Click()Dimi&,s#,term#i=1s=0Doterm=1/(i*i)s=s+term頁(yè)腳內(nèi)容34VB語(yǔ)言基礎(chǔ)i=i+1LoopWhileterm>=0.00000001Print:Print:PrintPrintTab(8);圓周"率的近似值為：";Sqr(6*s)EndSubPrivateSubCommand2_Click()EndEndSub(3)運(yùn)行情況運(yùn)行程序后，單擊標(biāo)題為“開(kāi)始”的命令按鈕，執(zhí)行Command1_Click事件過(guò)程。計(jì)算結(jié)果在窗體上顯示。8.由數(shù)值計(jì)算方法可知，用牛頓迭代法解方程f(x)=0的迭代公式為：xxf(x)/f(x)(n0,1,2,)n1nnn試用牛頓迭代法求解方程x5－3x2＋2x＋1=0在x=0附近的根。(要求使用Do…LoopUntil語(yǔ)句)0解答：(1)界面設(shè)計(jì)和屬性設(shè)置在窗體上建立兩個(gè)命令按鈕。窗體和命令按鈕的主要屬性設(shè)置如表3-3-8所示。頁(yè)腳內(nèi)容35VB語(yǔ)言基礎(chǔ)表3-3-8第8題的屬性設(shè)置控件名屬性名屬性值稱Form1Caption用牛頓法求方程的根Caption開(kāi)始結(jié)束Command1Command2Caption(2)程序代碼根據(jù)迭代公式，牛頓迭代法的計(jì)算過(guò)程為：xxf(x)/f(x)，然后判別∣x－x∣是否小于ε(給定精度)。10①令n=0，由迭代公式得1000作為方程的近似根；否則，進(jìn)行下一步。若是，則迭代結(jié)束，x1②令n=1，由迭代公式得xxf(x)/f(x)，然后判別∣x－x∣是否小ε。若是，則迭212111作為方程的近似根；否則，由x求x的值，判斷∣x－x∣。3代結(jié)束，x2232┇－x∣<ε(i=0，1，2，…)為止。按這樣迭代下去，一直到∣xi＋1i頁(yè)腳內(nèi)容36VB語(yǔ)言基礎(chǔ)根據(jù)上述計(jì)算過(guò)程可以編寫(xiě)程序?yàn)椋篜rivateSubCommand1_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)題為“開(kāi)始”的命令按鈕，執(zhí)行Command1_Click事件過(guò)程。在窗體上顯示計(jì)算結(jié)果。1111119．求S=的值。23499100頁(yè)腳內(nèi)容37VB語(yǔ)言基礎(chǔ)解答：(1)界面設(shè)計(jì)和屬性設(shè)置在窗體上建立兩個(gè)命令按鈕。窗體和命令按鈕的主要屬性設(shè)置如表3-3-9所示。表3-3-9第9題的屬性設(shè)置控屬屬性值件名稱Form1性名求s=1-1/2+1/3-1/4+…Caption+1/99-1/100的值Caption開(kāi)始結(jié)束Command1Command2Caption(2)程序代碼PrivateSubCommand1_Click()Dimi%,s!,sign%sign=1:s=0Fori=1To100頁(yè)腳內(nèi)容38VB語(yǔ)言基礎(chǔ)s=s+sign*1/isign=-signNextiPrint:Print:PrintPrintTab(18);的值"s為：";sEndSubPrivateSubCommand2_Click()EndEndSub(3)運(yùn)行情況運(yùn)行程序后，單擊標(biāo)題為“開(kāi)始”的命令按鈕，執(zhí)行Command1_Click事件過(guò)程。窗體顯示計(jì)算結(jié)果。10．求100到999中的水仙花數(shù)。所謂水仙花數(shù)是指一個(gè)三位數(shù)，它的各位數(shù)字的立方之和等于該數(shù)。例如，因?yàn)?53=31+53+33，所以153是水仙花數(shù)。解答：(1)界面設(shè)計(jì)和屬性設(shè)置在窗體上建立兩個(gè)命令按鈕。窗體和命令按鈕的主要屬性設(shè)置如表3-3-10所示。頁(yè)腳內(nèi)容39VB語(yǔ)言基礎(chǔ)表3-3-10第10題的屬性設(shè)置控件名屬性名屬性值稱Form1Caption求水仙花數(shù)開(kāi)始CaptionCommand1Command2Caption結(jié)束(2)程序代碼PrivateSubCommand1_Click()Dimi%,a%,b%,c%PrintPrintTab(5);"100--999Fori=100To999a=i\100之間的水仙花數(shù)為："b=(i-a*100)\10頁(yè)腳內(nèi)容40VB語(yǔ)言基礎(chǔ)c=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ù)。頁(yè)腳內(nèi)容41VB語(yǔ)言基礎(chǔ)解答：(1)界面設(shè)計(jì)和屬性設(shè)置在窗體上建立兩個(gè)命令按鈕。窗體和命令按鈕的主要屬性設(shè)置如表3-3-11所示。表3-3-11第11題的屬性設(shè)置控件名屬性名屬性值稱Form1Caption求完數(shù)開(kāi)始CaptionCommand1Command2Caption結(jié)束(2)程序代碼PrivateSubCommand1_Click()Dimi%,j%,s%PrintPrintTab(5);"1--1000之內(nèi)的完數(shù)為："頁(yè)腳內(nèi)容42VB語(yǔ)言基礎(chǔ)Fori=1To1000s=0Forj=1Toi-1IfiModj=0Thens=s+jNextjIfi=sThenPrintTab(5);iNextiEndSubPrivateSubCommand2_Click()EndEndSub(3)運(yùn)行情況程序執(zhí)行結(jié)果如圖3.3.8所示。頁(yè)腳內(nèi)容43VB語(yǔ)言基礎(chǔ)圖3.3.8第11題的執(zhí)行結(jié)果12.在窗體上輸出形如以下圖形，其中第一行的起始字母和終止字母由用戶從鍵盤上輸入。ABCDEBCDEACDEAB