内容发布更新时间 : 2024/5/18 6:12:36星期一 下面是文章的全部内容请认真阅读。

范文范例 指导参考

解析、枚举算法强化练习

1．下列问题中适合使用解析算法解决的是( )

A．计算两个电阻的并联值 B．完成各大网站访问量的排名 C．找出100以内所有的质数 D．找出100以内所有6的倍数 2．用解析算法计算匀加速直线运动的位移问题时，使用的计算公式是s=v0t+(1/2)at^2，下列用于描述该公式的 VB表达式中，正确的是( )

A．s=v0t+l/2at^2 B．s=v0*t+l/(2*a*t*t) C.s=v0t+l/( 2*at^2) D.s=v0*t+l/2*a*t^2

3．用解析算法实现求匀速直线运动位移的VB程序代码如下： Private Sub Command1__Click() Dim S As Single 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中输入新鞋号，单击“换算”按钮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中输入停车时间（分钟），单击“收费”按钮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

在程序①和②划线处填入适当的语句或表达式，将程序补充完整。 程序中，①划线处填入 。 程序中，②划线处室填入 枚举算法：

1．用枚举算法求解“找出昕有满足各位数字之和等于5的三位数”时，在下列所列举的数值范围内，算法执行效率最高的是( )

A 从0到999 B．从100到999 C．从100到500 D．从104到500 2．现要编写一个统计2015～2100年间闰年次数的程序。已知出现闰年的条件是：年份数能被4整除但不能被100整除，或者能被400整除。下面的VB程序可用来实现上述功能，请将程序补充完整。

Private Sub Commandl___ Click（ ）' Dim C As Integer, year As Integer c=0

For year=2015 T0 2100

学习资料整理