解析枚举算法强化练习

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