VB解析算法及程序?qū)崿F(xiàn)

1、1. 計(jì)算長(zhǎng)方體體積的算法描述如下：2. 輸入長(zhǎng)方體的長(zhǎng)、寬(w)、高(h)計(jì)算長(zhǎng)方形體積v=z*w*h輸出結(jié)果結(jié)束上述算法屆丁()枚舉算法B.排序算法C.解析算法D.遞歸算法下列問(wèn)題適合用解析算法求解的是()將十三張紙牌按從小到大進(jìn)行排列統(tǒng)計(jì)100內(nèi)偶數(shù)的各位數(shù)字之和恰好為10的個(gè)數(shù)計(jì)算一輛車行駛100公里的油耗尋找本年級(jí)身高最高的同學(xué)有如下問(wèn)題： 已知圓錐的半徑r和高度h,使用公式V=1兀r2h求出此圓錐體的體積。3 已知班級(jí)每位同學(xué)的其中成績(jī)總分s,按照s的值從大到小進(jìn)行成績(jī)排名。 已知圓的周長(zhǎng)s,利用公式r=s/(2*求出圓的半徑。 已知“水仙花數(shù)”的定義，找出110000范圍內(nèi)所有的

2、水仙花數(shù)。用計(jì)算機(jī)解決上述問(wèn)題時(shí)，適合用解析算法的是()A.B.C.D.3. 出租車計(jì)價(jià)規(guī)則：3公里以內(nèi)，10元；超出3公里每公里增加2元。假定公里數(shù)為x,金額為y.解決此問(wèn)題的公式和流程圖如下圖所示：4. 流程圖加框處部分的算法屆?。?)A.解析算法B.排序算法C.枚舉算法D.遞歸算法現(xiàn)要求編寫VB程序?qū)崿F(xiàn)如下功能：分別在文本框Text1、Text2、和Text3中輸入三條線段的長(zhǎng)度，單擊“判斷”按鈕Command!，在標(biāo)簽Label1中顯示判斷結(jié)果。程序運(yùn)行界面如圖：按此要求編寫的程序如下：PrivateSubCommand1_Click()DimaAsSingle,bAsSingleDi

3、mcAsSingle,stAsStringa=Valb=Valc=ValIfNot(a+b>cAndb+c>aAndc+a>b)Thenst="這三條線不能構(gòu)成一個(gè)三角形"Elselfa*a+b*b=c*cOra*a+c*c=b*bOrb*b+c*c=a*aThenst=“可以構(gòu)成一個(gè)直角三角形”ElselfThenst=“可以構(gòu)成一個(gè)等邊三角形”Elsest=“可以構(gòu)成一個(gè)不等邊的斜三角形”EndIfEndSub劃線處應(yīng)填寫正確的語(yǔ)句是：(1) 劃線處劃線處一下列VB程序段實(shí)現(xiàn)計(jì)算s=1+1/2+2/3+3/4+99/100的值。請(qǐng)將下面劃線處代碼補(bǔ)充完

4、整。PrivateSubCommand1_Click()DimiAsIntegerDimsAsDoubles=1Fori=2To100s=Nexti5. =Str(s)EndSub程序劃線處應(yīng)填入的內(nèi)容是用解析算法求物體重力的VB程序代碼如下：PrivateSubCommand1_Click()DimgAsSingleDimmAsSinglem=Valg=m*=Str(g)EndSub程序界面如上圖所示：6. 在文本框輸入15,單擊“計(jì)算”按鈕Command后，標(biāo)簽Label1中顯示的內(nèi)容是根據(jù)臀圍計(jì)算褲子尺寸的換算有以下公式：尺=厘米*碼=厘米*+7如臀圍為90厘米，那么在購(gòu)買時(shí)需要選尺(9

5、0*)也即34碼(90*+7)的褲子,下面VB程序可用丁解決此實(shí)際|可題，程序運(yùn)行界面如下圖所?。哼\(yùn)行程序，在文本框Textl中輸入臀圍，單擊計(jì)算“計(jì)算”按鈕Command1在標(biāo)簽Label2中顯示褲子購(gòu)買的參考尺寸，程序代碼如下：PrivateSubCommand1_Click()DimnAsSingleDimcAsSingleDimmAsIntegern=Int(Val)c=n*m=7. ="你需要購(gòu)買”+Str(c)+"尺(”+Str(m)+")碼是褲子”EndSub程序劃線處應(yīng)填入的內(nèi)容是某書店出租圖書的費(fèi)用標(biāo)準(zhǔn)如下：借書一天內(nèi)，收費(fèi)2元；借書超過(guò)一天的，

6、超過(guò)部分按每天元收取。最后費(fèi)用按四舍五入這算成整數(shù)。程序算法結(jié)構(gòu)與運(yùn)行界面如下圖所示。下面VB程序用丁解決此問(wèn)題：PrivateSubCommand1_Click()DimnAsIntegerDimsAsSingle'n=ValIfn<1ThenMsgBox"輸入錯(cuò)誤”ElseIfn=1Thens=2Elses=2+n*，EndIf=Str(s)EndSub程序加框處代碼有誤，請(qǐng)修改以實(shí)現(xiàn)該程序的功能。(1) 加框處應(yīng)改為加框處應(yīng)改為下列VB程序?qū)崿F(xiàn)如下功能：程序運(yùn)行時(shí)，在文本框Textl和Text2中分別輸入x和n的值，單擊命令按鈕Command后，調(diào)用函數(shù)f計(jì)算s的

7、值，并在文本nxon!23框Text3中顯示計(jì)算結(jié)果。其中sx2!3!PrivateSubCommand1_Click()DimxAsSingle,nAsSingle,sAsSinglex=Valn=Vals=f(x,n)=®EndSubFunctionf(xAsSingle,nAsSingle)AsSingleDimsumAsSingle,iAsInteger,tAsSinglesum=0t=1Fori=1Tont=t*x/isum=Nexti入x的值，單擊“計(jì)算”Command1在標(biāo)簽Label3中顯示f的值按此要求編寫的程序如下。Functionf(xAsInteger)AsSingle'Ifx<=-1Thenf=x+2ElseIfx>-1Andx<2Thenf=Abs(x+3)'Elsef=2*xEndIfEndFunctionPrivateSubCommand1_Click()DimxAsSingle,yAsSinglex=Valy=f(x)=Str(y)，EndSub加框處代碼有誤，請(qǐng)修正。(1) 加框處應(yīng)改為(2) 加框處應(yīng)改為(3) 加框處應(yīng)改為End