解析枚举算法强化练习

《解析枚举算法强化练习》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、解析、枚举算法强化练习1．下列问题中适合使用解析算法解决的是()A．计算两个电阻的并联值B．完成各大网站访问量的排名C．找出100以内所有的质数D．找出100以内所有6的倍数2．用解析算法计算匀加速直线运动的位移问题时，使用的计算公式是s=v0t+(1/2)at^2，下列用于描述该公式的VB表达式中，正确的是()A．s=v0t+l/2at^2B．s=v0*t+l/(2*a*t*t)C.s=v0t+l/(2*at^2)D.s=v0*t+l/2*a*t^23．用解析算法实现求匀速直线运动位移的VB程序代码如下：PrivateSubCommand1__Click()

2、DimSAsSingleDimVAsSingleDimtAsSingles=0v=10t=Val(Textl.Text)s=v*tLabel1.Caption=Str(s)EndSub程序界面如图所示：在文本框Textl中输入28，单击“计算”按钮Commandl后．标签Labell中显示的内容是。4．人们常用的欧洲鞋号（又称“法码”）与我国出台的鞋类“薪鞋号”标准存在着如下换算关系：新鞋号=（法码+10）÷2xl0.如新鞋号为23.5的鞋子，即为人们平常所说的37码。下面的VB程序可用于解决此问题，程序运行界面如图所示：运行程序，在文本框Textl中输入新鞋

3、号，单击“换算”按钮Commandl，在文本框Text2中显示所对应的法码，程序代码如下：PrivateSubCommand1__Click()DimnAsInteger，mAsSingle'n为新鞋号，m为法码n=Val(TextI.Text)Text2.Text=Str(m)EndSub程序划线处应填入的内容是。5．某停车场的收费标准如下：1小时及以内，收费5元；超过1小时的，超过部分每小时按15元收费（不足1小时的按1小时计算），具体算法流程图如图3-15-5所示。下面VB程序可用于解决此问题，程序运行界面如图所示：运行程序，在文本Textl中输入停车时

4、间（分钟），单击“收费”按钮Commandl，在文本框Text2中显示所对应的费用（元）．程序代码如下：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、．用枚举算法求解“找出昕有满足各位数字之和等于5的三位数”时，在下列所列举的数值范围内，算法执行效率最高的是()A从0到999B．从100到999C．从100到500D．从104到5002．现要编写一个统计2015～2100年间闰年次数的程序。已知出现闰年的条件是：年份数能被4整除但不能被100整除，或者能被400整除。下面的VB程序可用来实现上述功能，请将程序补充完整。PrivateSubCommandl___Click（）'DimCAsInteger,yearAsIntegerc=0Foryear=2015T02100IfThenc=c+lEndIfNex

6、tyearTextI.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.Addi

7、tem”52岁那年是：”&Sstr(a)&”年”EndlfNextbEndSub(1)程序中①划线处的语句为：(2)程序中②划线处的语句为：4．下列VB程序可以用来统计字符串中某字符的个数。具体功能如下：运行程序，在文本框Textl中输入字符串s，在文本框Text2中输入需要统计个数的字符m：单击“统计”按钮Commandl后，在文本框Text3中显示字符m的个数c。程序运行界面如图3-16-1所示：实现上述功能的程序代码如下：PrivateSubCommand1_Click()DimsAsString,mAsStringDimcAsInteger,iAsIn

8、tegers=Textl.Textm=