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

1、3.1解析算法及程序?qū)崿F(xiàn)1. 計(jì)算長(zhǎng)方體體積的算法描述如下： 輸入長(zhǎng)方體的長(zhǎng)、寬、高(h) 計(jì)算長(zhǎng)方形體積V = Z * w * h 輸出結(jié)果 結(jié)束上述算法屬于QA. 枚舉算法 B.排序算法C.解析算法 D.遞歸算法2. 下列問(wèn)題適合用解析算法求解的是(A. 將十三張紙牌按從小到大進(jìn)行排列B. 統(tǒng)計(jì)100內(nèi)偶數(shù)的各位數(shù)字之和恰好為10的個(gè)數(shù)C. 計(jì)算一輛車(chē)行駛100公里的油耗D. 尋找本年級(jí)身高最高的同學(xué)3. 有如下問(wèn)題： 已知圓錐的半徑r和高度h,使用公式心n Fh求出此圓錐體的體積。3 已知班級(jí)每位同學(xué)的其中成績(jī)總分s,按照s的值從大到小進(jìn)行成績(jī)排名。 已知圓的周長(zhǎng)s,利用公式r二s/(2

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

3、如下：Private Sub Comma ndl_Click () Dim a As Sin gle , b As Si ngle Dim c As Single , st As String a=Val (Textl. Text) b=Val (Text2. Text) c二Vai (TextSiJpgjE 構(gòu)咸一個(gè)不等邊酌翔三坤璇If Not (a + b c And b + c a And c + a b) The n st =這三條線不能構(gòu)成一個(gè)三角形”Elself a*a+b*b 二 c*cOra*a+c*c 二 b*bOrb*b+c*c=a * a The n st 二Elself

4、st =Elsest =End If“可以構(gòu)成一個(gè)直角三角形” Then“可以構(gòu)成一個(gè)等邊三角形”“可以構(gòu)成一個(gè)不等邊的斜三角形”Labell. Ca pti onEnd Sub劃線處應(yīng)填寫(xiě)正確的語(yǔ)句是:(1)劃線處(2)劃線處6.下列VB程序段實(shí)現(xiàn)計(jì)算的值。請(qǐng)將下面劃線處代碼補(bǔ)充完整s 二 1+1/2+2/3+3/4+99/100Private Sub Comma ndl_Click()Dim i As In tegerDim s As DoubleS=1For i=2 To 100Next iTextl. Text二Str (s)End Sub程序劃線處應(yīng)填入的內(nèi)容是7. 用解析算法求物體

5、重力的VB程序代碼如下：Private Sub Comma ndl_Click()Dim g As Si ngleDim m As Si nglelatell計(jì)宜m=Val (Textl Text),15|g二m*9 8label1. Ca ptio n=Str(g)End Sub程序界面如上圖所示：在文本框輸入15,單擊計(jì)算”按鈕Comma nd后，標(biāo)簽Label 1中顯不的內(nèi)容是8. 根據(jù)臀圍計(jì)算褲子尺寸的換算有以下公式： 尺二厘米*0.03 碼二厘米*0.3+7如臀圍為90厘米，那么在購(gòu)買(mǎi)時(shí)需要選2. 7尺（90*0.03）也即34碼（90*0.3+7）的褲子, 下面陽(yáng)程序可用于解決此實(shí)

6、際問(wèn)題，程序運(yùn)行界面如下圖所示：LabellCommandlLabel2Textl運(yùn)行程序，在文本框Textl中輸入臀圍，單擊計(jì)算“計(jì)算”按鈕Comma ndl在標(biāo)簽Label2中顯示褲子購(gòu)買(mǎi)的參考尺寸，程序代碼如下:Private Sub Comma ndl_Click ()Dim n As Si ngleDim c As Si ngleDim m As In tegern=l nt (Vai (Textl. Text)c=n *0. 03m=Label2.Caption=你需要購(gòu)買(mǎi)” +Str （c） + 尺（” +Str （ m） + “）碼是褲子”End Sub程序劃線處應(yīng)填入的內(nèi)容是

7、9.某書(shū)店出租圖書(shū)的費(fèi)用標(biāo)準(zhǔn)如下：借書(shū)一天內(nèi)，收費(fèi)2元；借書(shū)超過(guò)一天的，超過(guò)部分按每天0.8元收取。最后費(fèi)用按四舍五入這算成整數(shù)。程序算法結(jié)構(gòu)與運(yùn)行界面如下圖所示。借書(shū)天皴C天):IS頭用C云)：1615現(xiàn)書(shū)衷尋下面VB程序用于解決此問(wèn)題:Private Sub Comma ndl_Click()Dim n As In tegerDim s As Si ngle _n=Val(Textl. Text)If nl And x2 Thenf二 Abs(x+3)Elsef=2*xEnd IfEnd Fun cti onPrivate Sub Comma ndl_Click() Dim x As Si ngle