解析枚举算法强化练习

解析、枚举算法强化练习1•下列问题中适合使用解析算法解决的是 ()A•计算两个电阻的并联值 B•完成各大网站访问量的排名C•找出100以内所有的质数D•找出100以内所有6的倍数用解析算法计算匀加速直线运动的位移问题时，使用的计算公式是s二v0t+(1/2)aU2 ，下列用于描述该公式的VB表达式中，正确的是()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用解析算法实现求匀速直线运动位移的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后.标签Labell中显示的内容是 。4•人们常用的欧洲鞋号（又称“法码”）与我国出台的鞋类“薪鞋号”标准存在着如下换算关系：新鞋号二（法码+10）*2x10. 如新鞋号为23.5的鞋子，即为人们平常所说的37码。下面的VB程序可用于解决此问题，程序运行界面如图所示：运行程序，在文本框TextI中输入新鞋号，单击“换算”按钮Commandj在文本框Text2中显示所对应的法码，程序代码如下：PrivateSubCommand1__Click()为新鞋号，m为法码DimnAsInteger为新鞋号，m为法码n=Val(TextI.Text)Text2.Text=Str（m）EndSub程序划线处应填入的内容是5•某停车场的收费标准如下：1小时及以内，收费5元；超过1小时的，超过部分每小时按15元收费（不足1小时的按1小时计算），具体算法流程图如图3-15-5所示。下面VB程序可用于解决此问题，程序运行界面如图所示：

费^（7T-）：120Command1运行程序，在文本TextI中输入停车时间（分钟），单击“收费”按钮文本框费^（7T-）：120Command1运行程序，在文本TextI中输入停车时间（分钟），单击“收费”按钮文本框Text2中显示所对应的费用（元）•程序代码如下：Commandj在PrivateSubCommandl_Click()DimtAsInteger/costAsInteger/hAsSingle't 为停车时间（分钟），h为停车小时数，cost为费用t=Val(Textl.Text)h=(t-1)\60J-lIf ①Thencost=5ElseCost= ② EndIfText2.Text=Str(cost)EndSub在程序①和②划线处填入适当的语句或表达式，将程序补充完整。程序中，①划线处填入 。程序中，②划线处室填入 枚举算法：1•用枚举算法求解“找出昕有满足各位数字之和等于 5的三位数”时，在下列所列举的数值范围内，算法执行效率最高的是 （）A从0至I」999B•从100到999C•从100至0500D•从104至05002.现要编写一个统计2015〜2100年间闰年次数的程序。已知出现闰年的条件是：年份数能被4整除但不能被100整除，或者能被400整除。下面的VB程序可用来实现上述功能，请将程序补充完整。PrivateSubCommandl Click()'DimCAsInteger,yearAsIntegerc=0Foryear=2015T02100ThenIfc=c+lThenEndIfNextyearTextl.Text=Str(c)EndSub程序划线处应填人 3•某人出生于20世纪，在21世纪的某一年，他的年龄正好是 52岁，并且这一年也恰好是某个数的平方：请问：此人出生于哪一年？52岁那年的年份是多少？下面的VB程序可用来解决上述问题二请在①和②划线处填人适当的语句或表达式-将程序补充完整。PrivateSubCommand1_Click()DimaAsInteger，bAsInteger'a为52岁那年的年份，b为出生年份Forb= ①a=b+52If ② ThenListl.Additem ”出生年份是：” &Str(b)&”年”Listl.Additem ”52岁那年是：” &Sstr(a)&”年”EndlfNextbEndSub程序中①划线处的语句为程序中②划线处的语句为4•下列VB程序可以用来统计字符串中某字符的个数。具体功能如下：运行程序，在文本框TextI中输入字符串s，在文本框Text2中输入需要统计个数的字符 m单击“统计”按钮Command后，在文本框Text3中显示字符m的个数c。程序运行界面如图3-16-1所示：谕A令符串呼PEOPLESREFUEL瓦OFN3azfText2\Tcxi1Command\Command\湖厂个如P卑人—“二・・u・'=•尸二二二二丁r•:二实现上述功能的程序代码如下：PrivateSubCommand1_Click()DimsAsString,mAsStringDimcAsInteger,iAsIntegers二Textl.Textm二Text2•Textc=0Fori=lTo ① IfMid(s/i/l)=mThen② NextiText3.Text=Str(c)EndSub在程序①和②划线处填入适当的语句或表达式，将程序补充完整。程序中①划线处应填入 程序中②划线处应填人 Listl5•一个“偶数迁移”的VB程序界面如图所示，运行程序后，将在左边列表框Listl中随机产生10个两位正整数，同时清空右边的列表框 List2中的内容：单击“迁移”按钮ommand,将列表框ListI中的所有偶数"迁移”到列表框 List2申。63J179H该程序的代码如下：Dima(lTO10)Aslnteger '数组a用来存放随机产生的10个两位正整数DimiAsIntegerPrivateSubFormLoad() '用于随机产生10个2位整数RandomizeList2.ClearFori=lT010a(i)=Int(Rnd*90)+10ListI.AddltemStr(a(i))NextiEndSubPrivateSubCommandl_click()Listl.ClearFori=lT010If①ThenIfList2AdditemSnr(a(i))ElseEndIfNextiEndSub为实现上述功能•在划线处填入适当的语句和代码，把程序补充完整。程序中①划线处的语句为 。程序中②划线处的语句为 。(每种至少CommandjC。其中程序6.现有一张100元绥币•要求将其竞换成若干张 (每种至少CommandjC。其中程序有I张)。问：具体的兑换方案有哪些？总共有几种方案？为解决上述问题所编制的VB程序如下，运行程序后，单击命令按钮列表框ListI中显示所有符合题目要求的兑换方案最后显示总共的方案数加框处语句需做改动，请写出修 改方案。PrivateSubCommandI__CIickDimtenAsIntegerDimfiveAsIntegerDimxAsIntegerPrivateSubCommandI__CIickDimtenAsIntegerDimfiveAsIntegerDimxAsIntegerC=0ListI.AddItemForten=0TO10 ①x=100-ten*10IfxMod5=0Thenfive=x\5EndIfc=c+1'②NeLxitst1e.nAddItemStr(ten)()'ten为10元纸币的张数'five为5元纸币的张数,cAsInteger