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

1、3.1解析算法及程序?qū)崿F(xiàn)1.計算長方體體積的算法描述如下：輸入長方體的長(z)、寬(w)、高(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=求出此圓錐體的體積。已知班級每位同學(xué)的其中成績總分s，按照s的值從大到小進行成績排名。已知圓的周長s，利用公式r=s/(2*

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

3、ate Sub Command1_Click() Dim a As Single ,b As Single Dim c As Single ,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) Then st = “這三條線不能構(gòu)成一個三角形” ElseIf a * a + b * b = c * c Or a * a + c * c = b * b Or b * b + c * c = a * a Then st = “可以構(gòu)成一

4、個直角三角形” ElseIf Then st = “可以構(gòu)成一個等邊三角形” Else st = “可以構(gòu)成一個不等邊的斜三角形” End If Label1.Caption = End Sub劃線處應(yīng)填寫正確的語句是：（1）劃線處 （2）劃線處 6.下列VB程序段實現(xiàn)計算s=1+1/2+2/3+3/4+99/100的值。請將下面劃線處代碼補充完整。Private Sub Command1_Click() Dim i As Integer Dim s As Double s=1 For i=2 To 100 s= Next i Text1.Text=Str(s)End Sub程序劃線處應(yīng)填入的

5、內(nèi)容是 7.用解析算法求物體重力的VB程序代碼如下：Private Sub Command1_Click() Dim g As Single Dim m As Single m=Val(Text1.Text) g=m*9.8 label1.Caption=Str(g)End Sub程序界面如上圖所示：在文本框輸入15，單擊“計算”按鈕Command1后，標簽Label1中顯示的內(nèi)容是 8.根據(jù)臀圍計算褲子尺寸的換算有以下公式：尺=厘米*0.03碼=厘米*0.3+7如臀圍為90厘米，那么在購買時需要選2.7尺（90*0.03）也即34碼（90*0.3+7）的褲子，下面VB程序可用于解決此實際問題

6、，程序運行界面如下圖所示：運行程序，在文本框Text1中輸入臀圍，單擊計算“計算”按鈕Command1，在標簽Label2中顯示褲子購買的參考尺寸，程序代碼如下：Private Sub Command1_Click() Dim n As Single Dim c As Single Dim m As Integer n=Int(Val(Text1.Text) c=n*0.03 m= Label2.Caption=“你需要購買”+Str（c）+“尺（”+Str（m）+“）碼是褲子”End Sub程序劃線處應(yīng)填入的內(nèi)容是 9.某書店出租圖書的費用標準如下：借書一天內(nèi)，收費2元；借書超過一天的，超過

7、部分按每天0.8元收取。最后費用按四舍五入這算成整數(shù)。程序算法結(jié)構(gòu)與運行界面如下圖所示。下面VB程序用于解決此問題：Private Sub Command1_Click() Dim n As Integer Dim s As Single n=Val(Text1.Text) If n1 ThenMsgBox “輸入錯誤” ElseIf n=1 Thens=2 Elses=2+n*0.8 End IfText2.Text=Str(s)End Sub程序加框處代碼有誤，請修改以實現(xiàn)該程序的功能。（1）加框處應(yīng)改為 （2）加框處應(yīng)改為 10.下列VB程序?qū)崿F(xiàn)如下功能：程序運行時，在文本框Text1和

8、Text2中分別輸入x和n的值，單擊命令按鈕Command1后，調(diào)用函數(shù)f計算s的值，并在文本框Text3中顯示計算結(jié)果。其中。Private Sub Command1_Click() Dim x As Single ,n As Single ,s As Single x=Val(Text1.Text) n=Val(Text2.Text) s=f(x ,n) Text3.Text= End SubFunction f(x As Single ,n As Single)As Single Dim sum As Single ,i As Integer ,t As Single sum=0 t=1For i=1 To n t=t*x/i sum= Next i End Function請在劃線處填入合適的代碼以實現(xiàn)該程序的功能。（1）劃線處（2）劃線處（3）劃線處11.按下面公式計算f的值： 現(xiàn)要求編寫VB程序（運行界面如圖所示），實現(xiàn)如下功能：在文本框Text1中輸入x的值，單擊“計算”Command1，在標簽Label3中顯示f的值。按此要求編寫的程序如下。Function f(x As Integer) As Single If x-1 And x2 Then f= Abs(x+3) Else f=2*x End IfEnd FunctionPrivate