《解析枚举算法强化练习题》由会员分享，可在线阅读，更多相关《解析枚举算法强化练习题（10页珍藏版）》请在金锄头文库上搜索。
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 mand1_Click()Dim S As Single DimV
2、 As Single Dimt As Single s=0 v=10 t=Val( Te*tl.Te*t) s=v*t Label1.Caption=Str(s) End Sub 程序界面如下图： 在文本框Te*tl中输入28，单击“计算按钮mandl后 标签Labell中显示的容是。4人们常用的欧洲鞋号又称“法码与我国出台的鞋类“薪鞋号标准存在着如下换算关系：新鞋号=法码+102 * l0. 如新鞋号为23.5的鞋子，即为人们平常所说的37码。下面的VB程序可用于解决此问题，程序运行界面如下图： 运行程序，在文本框Te*tl中输入新鞋号，单击“换算按钮mandl，在文本框Te*t2中显示所对
3、应的法码，程序代码如下： Private Sub mand1_Click() Dim n As Integer，m As Single n为新鞋号，m为法码 n=Val( Te*tI.Te*t) Te*t2.Te*t=Str( m) End Sub 程序划线处应填入的容是。5*停车场的收费标准如下：1小时及以，收费5元；超过1小时的，超过局部每小时按15元收费缺乏1小时的按1小时计算，具体算法流程图如图3-15-5所示。下面VB程序可用于解决此问题，程序运行界面如下图：运行程序，在文本Te*tl中输入停车时间分钟，单击“收费按钮mandl，在文本框Te*t2中显示所对应的费用元程序代码如下：P
4、rivate Sub mandl_Click() Dim t As Integer， cost As Integer，h As Single t为停车时间分钟，h为停车小时数，cost为费用 t=Val( Te*tl.Te*t) h=( t-1)60J-lIf Then cost=5 ElseCost= End If Te*t2.Te*t=Strcost End Sub 在程序和划线处填入适当的语句或表达式，将程序补充完整。 程序中，划线处填入。 程序中，划线处室填入枚举算法：1用枚举算法求解“找出昕有满足各位数字之和等于5的三位数时，在以下所列举的数值围，算法执行效率最高的是( ) A 从0
5、到999 B从100到999 C从100到500 D从104到500 2现要编写一个统计20152100年间闰年次数的程序。出现闰年的条件是：年份数能被4整除但不能被100整除，或者能被400整除。下面的VB程序可用来实现上述功能，请将程序补充完整。 Private Sub mandl_ Click Dim C As Integer, year As Integer c=0 For year=2015 T0 2100 IfThen c=c+l End If Ne*t year Te*tI.Te*t=Str(c) End Sub 程序划线处应填人3*人出生于20世纪，在21世纪的*一年，他的年龄
6、正好是52岁，并且这一年也恰好是*个数的平方： 请问：此人出生于哪一年？52岁那年的年份是多少？ 下面的VB程序可用来解决上述问题=请在和划线处填人适当的语句或表达式-将程序补充 完整。 Private Sub mand1_Click() Dim a As Integer，b As Integer a为52岁那年的年份，b为出生年份 For b= a=b+52 If Then Listl.Additem出生年份是：&Str( b)&年 Listl.Additem52岁那年是：&Sstr(a)&年 Endlf Ne*tb End Sub (1)程序中划线处的语句为： (2)程序中划线处的语句为：
7、4以下VB程序可以用来统计字符串中*字符的个数。具体功能如下：运行程序，在文本框Te*tl中输入字符串s，在文本框Te*t2中输入需要统计个数的字符m：单击“统计按钮mandl后，在文本框Te*t3中显示字符m的个数c。程序运行界面如图3-16-1所示： 实现上述功能的程序代码如下： Private Sub mand1_Click() Dim s As String,m As String Dim c As Integer,i As Integer s=Te*tl.Te*t m=Te*t2Te*t c=0 For i=l To If Mid(s，i，l)=m Then Ne*ti Te*t3.
8、Te*t= Str(c) End Sub 在程序和划线处填入适当的语句或表达式，将程序补充完整。 (1)程序中划线处应填入 (2)程序中划线处应填人 5一个“偶数迁移的VB程序界面如下图，运行程序后，将在左边列表框List1中随机产生10个两位正整数，同时清空右边的列表框List2中的容：单击“迁移按钮ommandl，将列表框Listl中的所有偶数“迁移到列表框List2申。该程序的代码如下：Dim a(l T0 10) Aslnteger 数组a用来存放随机产生的10个两位正整数 Dim i As Integer Private Sub Form Load 用于随机产生10个2位整数 Ran
9、domize List2.Clear For i=l T0 10 a(i)=Int(Rnd*90)+10 ListI.Addltem Str(a (i) Ne*t i End Sub Private Sub mandl_click ( ) Listl.Clear For i=l T0 10 If Then List2.Addltem Snr(a(i) Else End If Ne*t i End Sub 为实现上述功能.在划线处填入适当的语句和代码，把程序补充完整。 (1)程序中划线处的语句为。 (2)程序中划线处的语句为。6.现有一100元绥币要求将其竞换成假设干10元和5元面额的纸币每种至
10、少有l。问：具体的兑 换方案有哪些？总共有几种方案？ 为解决上述问题所编制的VB程序如下，运行程序后，单击命令按钮mandl，列表框Listl中显示所有符合题目要求的兑换方案最后显示总共的方案数c。其中程序加框处语句需做改动，请写出修 改方案。 Private Sub mandl_Click Dim ten As Integer ten为10元纸币的数 Dim five As Integer five为5元纸币的数 Dim* As Integer，c As Integer C=0 ListI.Addltem “10元& & “5元 For ten=0 T0 10 *=100-ten*10 If* Mod 5=0 Then five=*5 End If c=c+1 List1.Addltem Str(ten)&Str( five)&Ne*t ten ListI.Addltem总共有方案数：&Str(c)End Sub(l)语句应改为。(2)语句的修改方案为( ) A修改为c=ten+five B修改为c=ten+*5 C与语句“End if互换位置 D与语句“Ne*t ten互换位置. z.
