1、解析、枚舉算法強化練習1下列問題中適合使用解析算法解決的是( ) A計算兩個電阻的并聯值 B完成各大網站訪問量的排名 C找出100以內所有的質數 D找出100以內所有6的倍數2用解析算法計算勻加速直線運動的位移問題時，使用的計算公式是s=v0t+(1/2)at2，下列用于描述該公式的 VB表達式中，正確的是( ) As=v0t+l/2at2 Bs=v0*t+l/(2*a*t*t) C.s=v0t+l/( 2*at2) D.s=v0*t+l/2*a*t23用解析算法實現求勻速直線運動位移的VB程序代碼如下： Private Sub Command1_Click()Dim S As Single

2、Dim V As Single Dim t As Single s=0 v=10 t=Val( Textl.Text) s=v*t Label1.Caption=Str(s) End Sub 程序界面如圖所示： 在文本框Textl中輸入28，單擊“計算”按鈕Commandl后 標簽Labell中顯示的內容是 。4人們常用的歐洲鞋號（又稱“法碼”）與我國出臺的鞋類“薪鞋號”標準存在著如下換算關系：新鞋號=（法碼+10）÷2 x l0. 如新鞋號為23.5的鞋子，即為人們平常所說的37碼。下面的VB程序可用于解決此問題，程序運行界面如圖所示： 運行程序，在文本框Textl中輸入新鞋號，單

3、擊“換算”按鈕Commandl，在文本框Text2中顯示所對應的法碼，程序代碼如下： Private Sub Command1_Click() Dim n As Integer，m As Single 'n為新鞋號，m為法碼 n=Val( TextI.Text) Text2.Text=Str( m) End Sub 程序劃線處應填入的內容是 。5某停車場的收費標準如下：1小時及以內，收費5元；超過1小時的，超過部分每小時按15元收費（不足1小時的按1小時計算），具體算法流程圖如圖3-15-5所示。下面VB程序可用于解決此問題，程序運行界面如圖所示：運行程序，在文本Textl中輸入停車時

4、間（分鐘），單擊“收費”按鈕Commandl，在文本框Text2中顯示所對應的費用（元）程序代碼如下：Private Sub Commandl_Click() Dim t As Integer， cost As Integer，h As Single 't為停車時間（分鐘），h為停車小時數，cost為費用 t=Val( Textl.Text) h=( t-1)60J-l If Then cost=5 Else Cost= End If Text2.Text=Str（cost） End Sub 在程序和劃線處填入適當的語句或表達式，將程序補充完整。 程序中，劃線處填入 。 程序中，劃線處

5、室填入 枚舉算法：1用枚舉算法求解“找出昕有滿足各位數字之和等于5的三位數”時，在下列所列舉的數值范圍內，算法執行效率最高的是( ) A 從0到999 B從100到999 C從100到500 D從104到500 2現要編寫一個統計20152100年間閏年次數的程序。已知出現閏年的條件是：年份數能被4整除但不能被100整除，或者能被400整除。下面的VB程序可用來實現上述功能，請將程序補充完整。 Private Sub Commandl_ Click（ ）' Dim C As Integer, year As Integer c=0 For year=2015 T0 2100 If Th

6、en c=c+l End If Next year TextI.Text=Str(c) End Sub 程序劃線處應填人 3某人出生于20世紀，在21世紀的某一年，他的年齡正好是52歲，并且這一年也恰好是某個數的平方： 請問：此人出生于哪一年？52歲那年的年份是多少？ 下面的VB程序可用來解決上述問題=請在和劃線處填人適當的語句或表達式-將程序補充 完整。 Private Sub Command1_Click() Dim a As Integer，b As Integer 'a為52歲那年的年份，b為出生年份 For b= a=b+52 If Then Listl.Additem”出生

7、年份是：”&Str( b)&”年” Listl.Additem”52歲那年是：”&Sstr(a)&”年” Endlf Nextb End Sub (1)程序中劃線處的語句為 ： (2)程序中劃線處的語句為 ：4下列VB程序可以用來統計字符串中某字符的個數。具體功能如下：運行程序，在文本框Textl中輸入字符串s，在文本框Text2中輸入需要統計個數的字符m：單擊“統計”按鈕Commandl后，在文本框Text3中顯示字符m的個數c。程序運行界面如圖3-16-1所示： 實現上述功能的程序代碼如下： Private Sub Command1_Click() Dim

8、s As String, m As String Dim c As Integer ,i As Integer s=Textl.Text m=Text2Text c=0 For i=l To If Mid(s，i，l)=m Then Next i Text3.Text= Str(c) End Sub 在程序和劃線處填入適當的語句或表達式，將程序補充完整。 (1)程序中劃線處應填入 (2)程序中劃線處應填人 5一個“偶數遷移”的VB程序界面如圖所示，運行程序后，將在左邊列表框List1中隨機產生10個兩位正整數，同時清空右邊的列表框List2中的內容：單擊“遷移”按鈕ommandl，將列表框Li

9、stl中的所有偶數“遷移”到列表框List2申。該程序的代碼如下：Dim a(l T0 10) Aslnteger 數組a用來存放隨機產生的10個兩位正整數 Dim i As Integer Private Sub Form Load（ ） 用于隨機產生10個2位整數 Randomize List2.Clear For i=l T0 10 a(i)=Int(Rnd*90)+10 ListI.Addltem Str(a (i) Next i End Sub Private Sub Commandl_click ( ) Listl.Clear For i=l T0 10 If Then List2

10、.Addltem Snr(a(i) Else End If Next i End Sub 為實現上述功能.在劃線處填入適當的語句和代碼，把程序補充完整。 (1)程序中劃線處的語句為 。 (2)程序中劃線處的語句為 。6.現有一張100元綏幣要求將其競換成若干張10元和5元面額的紙幣（每種至少有l張）。問：具體的兌 換方案有哪些？總共有幾種方案？ 為解決上述問題所編制的VB程序如下，運行程序后，單擊命令按鈕Commandl，列表框Listl中顯示所有符合題目要求的兌換方案最后顯示總共的方案數c。其中程序加框處語句需做改動，請寫出修 改方案。 Private Sub Commandl_Click（ ） Dim ten As Integer ten為10元紙幣的張數 Dim five As Integer five為5元紙幣的張數 Dimx As Integer，c As Integer C=0 ListI.Addltem “10元”&” ” & “5元” For ten=0 T0 10 x=100-ten*10 If x Mod 5=0 Then five=x5 End If c=c+1 List1.Addltem St