解析枚舉算法強(qiáng)化練習(xí)

解析、枚舉算法強(qiáng)化練習(xí)1?下列問題中適合使用解析算法解決的是 ()A?計算兩個電阻的并聯(lián)值 B?完成各大網(wǎng)站訪問量的排名C?找出100以內(nèi)所有的質(zhì)數(shù)D?找出100以內(nèi)所有6的倍數(shù)用解析算法計算勻加速直線運動的位移問題時，使用的計算公式是s二v0t+(1/2)aU2 ，下列用于描述該公式的VB表達(dá)式中，正確的是()A.s二v0t+l/2atA2B?s二v0*t+l/(2*a*t*t)C.s=vOt+l/(2*atA2)D.s二vO*t+l/2*a*tA2用解析算法實現(xiàn)求勻速直線運動位移的VB程序代碼如下：PrivateSubCommand1__Click()DimSAsSingleDimVAsSingleDimtAsSingles=0v=10 — — t=Val(Textl.Text) 12f3 計貧 Label1-亠■■"■r—■P* J?F」—弓_nE金EBh■■■jw?s=v*tLabell.Caption二Str(s)EndSub程序界面如圖所示：在文本框TextI中輸入28,單擊“計算”按鈕Command后.標(biāo)簽Labell中顯示的內(nèi)容是 。4?人們常用的歐洲鞋號（又稱“法碼”）與我國出臺的鞋類“薪鞋號”標(biāo)準(zhǔn)存在著如下?lián)Q算關(guān)系：新鞋號二（法碼+10）*2x10. 如新鞋號為23.5的鞋子，即為人們平常所說的37碼。下面的VB程序可用于解決此問題，程序運行界面如圖所示：運行程序，在文本框TextI中輸入新鞋號，單擊“換算”按鈕Commandj在文本框Text2中顯示所對應(yīng)的法碼，程序代碼如下：PrivateSubCommand1__Click()為新鞋號，m為法碼DimnAsInteger為新鞋號，m為法碼n=Val(TextI.Text)Text2.Text=Str（m）EndSub程序劃線處應(yīng)填入的內(nèi)容是5?某停車場的收費標(biāo)準(zhǔn)如下：1小時及以內(nèi)，收費5元；超過1小時的，超過部分每小時按15元收費（不足1小時的按1小時計算），具體算法流程圖如圖3-15-5所示。下面VB程序可用于解決此問題，程序運行界面如圖所示：

費^（7T-）：120Command1運行程序，在文本TextI中輸入停車時間（分鐘），單擊“收費”按鈕文本框費^（7T-）：120Command1運行程序，在文本TextI中輸入停車時間（分鐘），單擊“收費”按鈕文本框Text2中顯示所對應(yīng)的費用（元）?程序代碼如下：Commandj在PrivateSubCommandl_Click()DimtAsInteger/costAsInteger/hAsSingle't 為停車時間（分鐘），h為停車小時數(shù)，cost為費用t=Val(Textl.Text)h=(t-1)\60J-lIf ①Thencost=5ElseCost= ② EndIfText2.Text=Str(cost)EndSub在程序①和②劃線處填入適當(dāng)?shù)恼Z句或表達(dá)式，將程序補(bǔ)充完整。程序中，①劃線處填入 。程序中，②劃線處室填入 枚舉算法：1?用枚舉算法求解“找出昕有滿足各位數(shù)字之和等于 5的三位數(shù)”時，在下列所列舉的數(shù)值范圍內(nèi)，算法執(zhí)行效率最高的是 （）A從0至I」999B?從100到999C?從100至0500D?從104至05002.現(xiàn)要編寫一個統(tǒng)計2015?2100年間閏年次數(shù)的程序。已知出現(xiàn)閏年的條件是：年份數(shù)能被4整除但不能被100整除，或者能被400整除。下面的VB程序可用來實現(xiàn)上述功能，請將程序補(bǔ)充完整。PrivateSubCommandl Click()'DimCAsInteger,yearAsIntegerc=0Foryear=2015T02100ThenIfc=c+lThenEndIfNextyearTextl.Text=Str(c)EndSub程序劃線處應(yīng)填人 3?某人出生于20世紀(jì)，在21世紀(jì)的某一年，他的年齡正好是 52歲，并且這一年也恰好是某個數(shù)的平方：請問：此人出生于哪一年？52歲那年的年份是多少？下面的VB程序可用來解決上述問題二請在①和②劃線處填人適當(dāng)?shù)恼Z句或表達(dá)式-將程序補(bǔ)充完整。PrivateSubCommand1_Click()DimaAsInteger，bAsInteger'a為52歲那年的年份，b為出生年份Forb= ①a=b+52If ② ThenListl.Additem ”出生年份是：” &Str(b)&”年”Listl.Additem ”52歲那年是：” &Sstr(a)&”年”EndlfNextbEndSub程序中①劃線處的語句為程序中②劃線處的語句為4?下列VB程序可以用來統(tǒng)計字符串中某字符的個數(shù)。具體功能如下：運行程序，在文本框TextI中輸入字符串s，在文本框Text2中輸入需要統(tǒng)計個數(shù)的字符 m單擊“統(tǒng)計”按鈕Command后，在文本框Text3中顯示字符m的個數(shù)c。程序運行界面如圖3-16-1所示：諭A令符串呼PEOPLESREFUEL瓦OFN3azfText2\Tcxi1Command\Command\湖廠個如P卑人—“二??u?'=?尸二二二二丁r?:二實現(xiàn)上述功能的程序代碼如下：PrivateSubCommand1_Click()DimsAsString,mAsStringDimcAsInteger,iAsIntegers二Textl.Textm二Text2?Textc=0Fori=lTo ① IfMid(s/i/l)=mThen② NextiText3.Text=Str(c)EndSub在程序①和②劃線處填入適當(dāng)?shù)恼Z句或表達(dá)式，將程序補(bǔ)充完整。程序中①劃線處應(yīng)填入 程序中②劃線處應(yīng)填人 Listl5?一個“偶數(shù)遷移”的VB程序界面如圖所示，運行程序后，將在左邊列表框Listl中隨機(jī)產(chǎn)生10個兩位正整數(shù)，同時清空右邊的列表框 List2中的內(nèi)容：單擊“遷移”按鈕ommand,將列表框ListI中的所有偶數(shù)"遷移”到列表框 List2申。63J179H該程序的代碼如下：Dima(lTO10)Aslnteger '數(shù)組a用來存放隨機(jī)產(chǎn)生的10個兩位正整數(shù)DimiAsIntegerPrivateSubFormLoad() '用于隨機(jī)產(chǎn)生10個2位整數(shù)RandomizeList2.ClearFori=lT010a(i)=Int(Rnd*90)+10ListI.AddltemStr(a(i))NextiEndSubPrivateSubCommandl_click()Listl.ClearFori=lT010If①ThenIfList2AdditemSnr(a(i))ElseEndIfNextiEndSub為實現(xiàn)上述功能?在劃線處填入適當(dāng)?shù)恼Z句和代碼，把程序補(bǔ)充完整。程序中①劃線處的語句為 。程序中②劃線處的語句為 。(每種至少CommandjC。其中程序6.現(xiàn)有一張100元綏幣?要求將其競換成若干張 (每種至少CommandjC。其中程序有I張)。問：具體的兌換方案有哪些？總共有幾種方案？為解決上述問題所編制的VB程序如下，運行程序后，單擊命令按鈕列表框ListI中顯示所有符合題目要求的兌換方案最后顯示總共的方案數(shù)加框處語句需做改動，請寫出修 改方案。PrivateSubCommandI__CIickDimtenAsIntegerDimfiveAsIntegerDimxAsIntegerPrivateSubCommandI__CIickDimtenAsIntegerDimfiveAsIntegerDimxAsIntegerC=0ListI.AddItemForten=0TO10 ①x=100-ten*10IfxMod5=0Thenfive=x\5EndIfc=c+1'②NeLxitst1e.nAddItemStr(ten)()'ten為10元紙幣的張數(shù)'five為5元紙幣的張數(shù),cAsInteger