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

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

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

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

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,單擊“計算”按鈕Command后，標簽Label1中顯示的內(nèi)容是根據(jù)臀圍計算褲子尺寸的換算有以下公式：尺=厘米*碼=厘米*+7如臀圍為90厘米，那么在購買時需要選尺(9

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

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

7、值，并在文本nxon!23框Text3中顯示計算結(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的值，單擊“計算”Command1在標簽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加框處代碼有誤，請修正。(1) 加框處應(yīng)改為(2) 加框處應(yīng)改為(3) 加框處應(yīng)改為End