解析枚举算法强化练习 - 图文

Forpesnauseonysudyandresachnofrcmmercause解析、枚举算法强化练习

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

If Then 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”出生年份是：”&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 s As String, m As String Dim c As Integer ,i As Integer s=Textl.Text m=Text2．Text c=0

For i=l To ① If Mid(s，i，l)=m Then ② Next i

Text3.Text= Str(c) End Sub

在程序①和②划线处填入适当的语句或表达式，将程序补充完整。

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说教育文库解析枚举算法强化练习 - 图文在线全文阅读。