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

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

2、式r=s/(2*3.14)求出圓的半徑。 已知“水仙花數(shù)”的定義，找出110000范圍內(nèi)所有的水仙花數(shù)。用計算機解決上述問題時，適合用解析算法的是()A. B. C. D. 4. 出租車計價規(guī)則：3公里以內(nèi)，10元；超出3公里每公里增加2元。假定公 里數(shù)為X,金額為y.解決此問題的公式和流程圖如下圖所示：<= 3)y =r_10+2*(x-3X(x>3>流程圖加框處部分的算法屬于：()A.解析算法B. 排序算法 C.枚舉算法D.遞歸算法5.現(xiàn)要求編寫VB程序?qū)崿F(xiàn)如下功能：分別I 在文本框 Text1、Text2、和Text3中輸入 三條線段的長度，單擊“判斷”按鈕Comma

3、nd， 后，在標(biāo)簽Labell中顯示判斷結(jié)果。程序 運行界面如圖： 按此要求編寫的程序如下：Private Sub Comma nd1_Click() Dim a As Sin gle ,b As Si ngle Dim c As Si ngle ,st As String a=Val(Text1.Text) b=Val(Text2.Text) c=Val(Text3.Text)If Not (a + b > c And b + c > a And c + a > b) The n st = “這三條線不能構(gòu)成一個三角形”Elself a * a + b * b = c *

4、c Or a * a + c * c = b * b Or b * b + c * c = a * a The n st =Elselfst =Elsest =End If“可以構(gòu)成一個直角三角形” Then“可以構(gòu)成一個等邊三角形”“可以構(gòu)成一個不等邊的斜三角形”3.1可12JL構(gòu)咸一個不等邊酌翔三坤璇Labell.Ca pti on =End Sub劃線處應(yīng)填寫正確的語句是：(1) 劃線處(2) 劃線處 6.下列VB程序段實現(xiàn)計算s=1+1/2+2/3+3/4+99/100的值。請將下面劃線處 代碼補充完整。Private Sub Comma nd1_Click()Dim i As In

5、tegerDim s As Doubles=1For i=2 To 100s= Next iText1.Text=Str(s)End Sub程序劃線處應(yīng)填入的內(nèi)容是7. 用解析算法求物體重力的VB程序代碼如下:Private Sub Comma nd1_Click()Dim g As Si ngleDim m As Si nglem=Val(Text1.Text)g=m*9.8label1.Ca ptio n=Str(g)End Sub程序界面如上圖所示：在文本框輸入15，單擊“計算”按鈕 Comma nd后，標(biāo)簽Label1中顯示的 內(nèi)容是15|計宜latell8. 根據(jù)臀圍計算褲子尺寸的換

6、算有以下公式： 尺=厘米*0.03 碼二厘米*0.3+7如臀圍為90厘米，那么在購買時需要選2.7尺（90*0.03）也即34碼（90*0.3+7） 的褲子，下面 VB程序可用于解決此實際問題，程序運行界面如下圖所示：運行程序，在文本框Text1中輸入臀圍，單擊計算“計算”按鈕Comma nd1在標(biāo)簽Label2中顯示褲子購買的參考尺寸，程序代碼如下：Private Sub Comma nd1_Click（）Dim n As Si ngleDim c As Si ngleDim m As In tegern=1 nt（Val（Text1.Text）c=n *0.03m=Label2.Capti

7、on="你需要購買” +Str （c）+ "尺（” +Str （ m）+ “）碼是褲子”End Sub程序劃線處應(yīng)填入的內(nèi)容是9. 某書店出租圖書的費用標(biāo)準如下：借書一天內(nèi)，收費 2元；借書超過一天的， 超過部分按每天0.8元收取。最后費用按四舍五入這算成整數(shù)。程序算法結(jié)構(gòu)與 運行界面如下圖所示。借書天皴c天)：IS頭用C云)：16|b5現(xiàn)書衷尋 上NYn<!7尸2 I )*0,871下面VB程序用于解決此問題：Private Sub Comma nd1_Click()Dim n As In tegerDim s As Si ngle 'n=Val(Text1

8、.Text)If n<1 The nMsgBox “輸入錯誤”ElseIf n=1 The ns=2Elses=2+n*0.8End IfText2.Text=Str(s)End Sub請修改以實現(xiàn)該程序的功能。程序加框處代碼有誤,(1) 加框處應(yīng)改為(2) 加框處應(yīng)改為10.下列VB程序?qū)崿F(xiàn)如下功能：程序運行時，在文本框Textl和Text2中分別輸 入x和n的值，單擊命令按鈕Comma nd后，調(diào)用函數(shù)f計算s的值，并在文本3框Text3中顯示計算結(jié)果。其中s x 2!3!x2nx。n!Private Sub Comma nd1_Click()Dim x As Sin gle ,n

9、As Si ngle ,s As Si ngle x=Val(Text1.Text) n=Val(Text2.Text) s=f(x ,n)Text3.Text=End SubFun ctio n f(x As Si ngle ,n As Sin gle)As Si ngle Dim sum As Si ngle ,i As In teger ,t As Si ngle sum=0 t=1For i=1 To nt=t*x/isum=Next iEnd Fun cti on請在劃線處填入合適的代碼以實現(xiàn)該程序的功能。（1）劃線處（2）劃線處（3）劃線處11.按下面公式計算x 2f（x）x22x的值:1VB程序（運行界面如 圖所示），實現(xiàn)如下功能：在文本 框Text1中輸入x的值，單擊“計 算” Commanc，在標(biāo)簽Label3中 顯示f的值。按此要求編寫的程序如下?，F(xiàn)要求編寫Fun cti on f* As In teger) As SingleIf x<=-1 The n f=x+2'ElseIf x>-1 And x<2 Thenf= Abs(x+3)Elsef=2*xEnd IfEnd Fun cti