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 Sin
2、gleDim V As SingleDim t As Singles=0v=10t=Val( Textl.Text) s=v*tLabel1.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 程序可用于解决此问题，程序运行界面如图所示：运行程序，在文本
4、 Textl 中输入停车时间（分钟），单击“收费”按钮 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-lIf Thencost=5ElseCost= End IfText2.Text=Str（cost）End Sub在程序和划线处填入适当的语句或表达式，将程序补充完整。程序中，划线处填入 。程序中，划
5、线处室填入 枚举算法：1用枚举算法求解“找出昕有满足各位数字之和等于 5 的三位数”时，在下列所列举的数值范围内，算法执行效率最高的是( )A 从 0 到 999 B从 100 到 999 C从 100 到 500 D从 104 到 5002现要编写一个统计 20152100 年间闰年次数的程序。已知出现闰年的条件是：年份数能被 4 整除但不能被 100 整除，或者能被 400 整除。下面的 VB 程序可用来实现上述功能，请将程序补充完整。Private Sub Commandl_ Click（ ）Dim C As Integer, year As Integerc=0For year=201
6、5 T0 2100If Thenc=c+lEnd IfNext yearTextI.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+52If ThenList
7、l.Additem”出生年份是： ”&Str( b)&”年”Listl.Additem”52 岁那年是：”&Sstr(a)&”年”EndlfNextbEnd Sub(1)程序中划线处的语句为 ：(2)程序中划线处的语句为 ：4下列 VB 程序可以用来统计字符串中某字符的个数。具体功能如下：运行程序，在文本框 Textl 中输入字符串 s，在文本框 Text2 中输入需要统计个数的字符 m：单击“统计”按钮 Commandl 后，在文本框 Text3 中显示字符 m 的个数 c。程序运行界面如图 3-16-1 所示：实现上述功能的程序代码如下：Private Sub Command1_Click
8、()Dim s As String, m As StringDim c As Integer ,i As Integers=Textl.Textm=Text2Textc=0For i=l To If Mid(s，i，l)=m Then Next iText3.Text= Str(c)End Sub在程序和划线处填入适当的语句或表达式，将程序补充完整。(1)程序中 划线处应填入 (2)程序中 划线处应填人 5一个“偶数迁移”的 VB 程序界面如图所示，运行程序后，将在左边列表框List1 中随机产生 10 个两位正整数，同时清空右边的列表框 List2 中的内容：单击“迁移”按钮 ommandl
9、，将列表框 Listl 中的所有偶数“迁移”到列表框 List2 申。该程序的代码如下：Dim a(l T0 10) Aslnteger 数组 a 用来存放随机产生的 10 个两位正整数Dim i As IntegerPrivate Sub Form Load（ ） 用于随机产生 10 个 2 位整数RandomizeList2.ClearFor i=l T0 10a(i)=Int(Rnd*90)+10ListI.Addltem Str(a (i)Next iEnd SubPrivate Sub Commandl_click ( )Listl.ClearFor i=l T0 10If Then
10、List2.Addltem Snr(a(i)Else End IfNext iEnd Sub为实现上述功能.在划线处填入适当的语句和代码，把程序补充完整。(1)程序中 划线处的语句为 。(2)程序中 划线处的语句为 。6.现有一张 100 元绥币要求将其竞换成若干张 10 元和 5 元面额的纸币（每种至少有 l 张）。问：具体的兑 换方案有哪些？总共有几种方案？为解决上述问题所编制的 VB 程序如下，运行程序后，单击命令按钮Commandl，列表框 Listl 中显示所有符合题目要求的兑换方案最后显示总共的方案数c。其中程序加框处语句需做改动，请写出修 改方案。Private Sub Comm
11、andl_Click（ ）Dim ten As Integer ten 为 10 元纸币的张数Dim five As Integer five 为 5 元纸币的张数Dimx As Integer，c As IntegerC=0ListI.Addltem “10 元”&” ” & “5 元”For ten=0 T0 10 x=100-ten*10If x Mod 5=0 Thenfive=x5End Ifc=c+1 List1.Addltem Str(ten) ”张 ”&Str( five)&”张”Next tenListI.Addltem”总共有方案数：”&Str(c)End Sub(l) 语句应改为 。(2) 语句的修改方案为( )A修改为 c=ten+five B修改为 c=ten+x5C与语句“End if互换位置 D与语句“Next ten”互换位置
