- 二一组卷

题型：综合题题类：常考题难易度：普通

高中信息技术综合库——枚举算法3

小强在双十一购物期间忘记了支付宝账户密码，但他急用支付宝进行转账，请你帮他尽可能找回密码。他只记得自己密码的一些零星信息：

①密码是六位数字，前面两位为59；②最后两位数字相同；③能被12和38整除。

程序界面如图1所示，单击 “帮助找回密码”按钮（Command1）后，可能的密码显示在列表框List1中。

（1）、应用程序界面设计时，为添加“List1”对象，应使用图2所示的“控件工具箱”中的（填写相应编号）。

（2）、请根据题意将解决此问题的相应程序补充完整。

Private Sub Command1_click( )

Dim x As Integer, s As Long

Dim y As Integer, i As Integer

For i = 0 To 9999

s = 590000 + i

If Then

x= s mod 10

y =

If x = y Then

List1.AddItem Str(s)

End If

Next i

End Sub

（3）、该模块采用的算法是（）

A、枚举 B、查找 C、排序 D、解析

举一反三

【加试题】在我国古代《孙子算经》中曾经提出这样一个问题，原文是这样的：“今有物，不知其数，三三数之，剩二；五五数之，剩三；七七数之，剩二；问物几何？”试用枚举算法来解决这一个问题。现分析如下，所寻找之数为满足如下条件的自然数：以3除余2，以5除余3，以7除余2。程序将从自然数1开始依次寻找，逐一判断某一自然数是否满足全部条件，直至在指定范围内找到满足条件的所有自然数。程序代码如下，请补充完整。

Private Sub Command1Click()
Dim p As Integer    ‘sum 用来统计符合条件的自然数个数
Dim n As Integer
Dim max As Integer   ‘指定查找范围的最大自然数
List1.Clear
p = 0
max = Val(Text1.Text) ‘Text1文本框中输入
n = 0
Do While n <= max
n = n + 1            ‘从自然数1开始不断往上寻找
If       ①     Then
List1.AddItem Str(n)    ‘找到后在List1中显示结果
p=p+1
End If
Loop
List1.AddItem ("共计" + Str(n) + "个") ‘②
End Sub

个位数字是6，且能被3整除的3位数共有多少个？下面程序用于解决这一问题，在划线处填入合适的语句或表达式，设共有n个这样的数，Visual Basic程序如下：

Sub Command1_Click()

Dim i As Integer, n As Integer

m=106

n = {#blank#}1{#/blank#}

Do While m <= 996

If {#blank#}2{#/blank#} Then n = n + 1

m={#blank#}3{#/blank#}

Loop

Text1.Text = Str(n)

End Sub

一辆卡车运矿石，晴天每天运20次，雨天每天最多运12次，他一共运了8天，共112次，则晴天和雨天各有几天。用VB程序来解决这个问题，单击按钮Command1，在文本框Text1中输出晴天的天数，在文本框Text2中输出雨天的天数，程序代码如下：

Private Sub Command1_Click()

i＝1

j＝7

Do While ____①____

i＝____②____

j＝____③____

Loop

Text1.Text＝Str(i)

Text2.Text＝Str(j)

End Sub

则下列说法正确的是（）

在n个连续的方格内填字母A或B，但相邻两格都不能填B，求所有可能方案。可以用枚举算法解决，此题可以采用进制转换来解决。考虑到只包含了A与B两个字母，我们可以用二进制的0和1来代替。

程序部分代码如下：

Private Sub Command1_Click()

Dim n, m, s, i, j, count As Long

Dim flag As Boolean

Dim a(1 To 100) As Integer

n = Val(Text1.Text)

count = 0

①

For i = 0 to s-1

m = i

For j = 1 To n

a(j) = m Mod 2

m = m \ 2

Next j

flag = True

For j = 1 To n - 1

If ② Then flag = false: exit For

Next j

If flag = True Then ③

Next i

Label1.Caption =“可行方案共”+ Str(count) + “种”

End Sub

《孙子算经》中有一个“物不知其数”的问题，某数以3除余2，以5除余3，以7 除余 2。下面的 VB 程序用于求 1000 以内满足该条件的自然数及个数，请在程序划线处应填入合适的表达式。

Private Sub Command1_Click()

Dim c As Integer, n As Integer c = 0 : n = 9

Do While n <= 1000

If n Mod 3 = 2 And n Mod 5 = 3 Then

List1.AddItem Str(n)

c ={#blank#}1{#/blank#}

End If

n ={#blank#}2{#/blank#}

Loop

Label1.Caption = "1000 以内满足条件的数有" & Str（c）& "个"

End Sub

下列软件可以用于编程解决“鸡免同笼”问题的是（）。

相关试卷

公司介绍

服务介绍

帮助中心