解析枚举算法强化练习

解析 枚举算法强化练习 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 在程序 和 划线处填入适当的语句或表达式 将程序补充完整 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 位整数 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 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 x 5 End If c c