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

题型：填空题题类：模拟题难易度：困难

浙江省杭州市2015年高考信息技术模拟卷7

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

Private Sub Command1_Click()

Dim sum As Integer 'sum 用来统计符合条件的自然数个数'

Dim n, max As Integer

List1.Clear

sum = 0

max = '指定查找范围的最大自然数，Text1文本框中输入'

n = 0

Do While n <= max

n = n + 1 '从自然数1开始不断往上寻找'

If Then

List1.AddItem Str(n) '找到后在List1中显示结果'

End If

Loop

List1.AddItem ("共计" + Str(sum) + "个")

End Sub

举一反三

求孪生素数。孪生素数是指两个相邻奇数且都是素数，由于它们是最近的素数，就像孪生兄弟一样。下列Visual Basic程序用于查找100以内的所有孪生素数，其中函数f用于判断一个数是否是素数，程序运行界面如图(图1)所示，Command1鼠标单击事件过程的流程图如图(图2)所示。

程序代码如下：

Private Sub Command1_Click()

Dim i As Integer

List1.Clear '清除列表框内容

For i = 3 To 97 ___①___

If f(i) And f(i+2)=true Then

List1.AddItem Str(i) + " 和 " + Str(i + 2)

End If

Next i

End Sub

Private Function f(x As Integer) As Boolean '判断是否为素数，若是返回true,若不是则返回false

………

End Function

某密码强度判断程序功能如下：在文本框Text1中输入由大写字母、小写字母、数字和其它字符4种不同类型字符组成的密码字符串，单击“判断”按钮Cmdl，在标签框Label3 中显示判断结果。程序运行界面如图所示。

密码强度判断条件如下：密码长度小于6，则强度为“弱”。在密码长度大于等于 6 的情况下，若只出现一种字符，则密码强度为“弱”；若出现两种不同字符，则密码强度为“中”，出现3种以上不同字符，则密码强度为“强”。

平面上有N(3≤N≤100)个房间围成一圈，按顺时针方向分别编号为1…N，相邻的两个房间之间均有一扇门，第i个房间居住人数为a(i)。初始时选择一个房间，将所有人都聚集在该房间，接着每个人都按顺时针方向走到相邻的房间，直至走到居住的房间。一个人每经过一扇门花费1能量，请确定初始房间，使得所有人花费的能量和最小。例如:N=5，a(1)=4，a(2)=7， a(3)=8， a(4)=6， a(5)=4。

最佳方案:初始时所有人聚集在2号房间，花费的能量和:7*0+8*1+6*2+4*3+4*4=48。为了解决这个问题，小明编写了一个VB程序。在窗体加载时，从数据库中读取N的值和编号为1到N的房间的居住人数，人数存储在数组a中。点击窗体上的按钮Command1，程序枚举每一种方案(不同的初始房间)，计算该方案的能量和，在文本框Text1中输出最优方案的初始房间编号，在文本框Text2中输出最小能量和。

实现上述功能的VB代码如下，请在划线处填入合适代码。

Dim a(1 To 100) As Integer ’依次存储编号为1到100的房间的居住人数

Private Sub Form_Load()

‘本过程从数据库中读取N的值和每个房间居住人数，存储在数组a中

‘代码略

End Sub

Private Sub Command1_Click()

Dim i As Integer, j As Integer, w As Integer, k as Integer

Dim t As Long, ans As Long

k=0 : ans = 32767 ‘ans初始化为最大的Integer数据

For i = 1 To n

t = 0

For j = 0 To n - 1

w={#blank#}1{#/blank#}

If w = 0 Then w = n

t={#blank#}2{#/blank#}

Next j

If t < ans Then

k= i

ans = t

End If

Next i

Text1.Text = Str (k) ‘起始房间编号

Text2.Text ={#blank#}3{#/blank#}

End Sub

由n行数字组成的数字三角形如图所示。设计一个算法，对于由n行数字组成的数字三角形（数字范围[1，50]，计算从三角形的顶至底的路径经过的数字和的最大值，每一步可以从当前点走到左下方的点也可以走到右下方的点。

寻求路径最大值的算法设计如下：

按三角形的行划分，若有n行，则有n-1个步骤

①从底层开始，本身数即为最大值

②倒数第二层的计算取决于底层的数据：

12+6=18,13+14=27,24+15=39,24+8=32；

③倒数第三层的计算取决于底二层的数据：

27+12=39,39+7=46,39+26=65；

④倒数第四层的计算取决于底三层的数据：

46+11=57,65+8=73；

④最后的路径：13—8—26—15—24其和为86。

根据上述算法描述，设计程序界面如下图所示，点击“生成金字塔”按钮，在列表框中生成数字金字塔，点击“寻求路径最大值”按钮，在文本框text1中输出最大值。

依据上述描述设计如下VB程序：

Const n = 5

Dim sx As String

Dim i, j, k, a(1 To 100) As Integer Private Sub Command1_Click() List1.Clear

For i = 1 To n For j = 1 To i

①

sx = sx + Str(a((i - 1) * n + j)) Next j

For k = n To i Step -1 sx = " " + sx

Next k List1.AddItem sx sx = ""

Next i End Sub

Private Sub Command2_Click() For i = n To 1 Step -1

For j = 2 To i

If ② Then

a((i - 2) * n + j - 1) = a((i - 1) * n + j - 1) + a((i - 2) * n + j - 1)

Else

a((i - 2) * n + j - 1) = a((i - 1) * n + j) + a((i - 2) * n + j - 1)

End If Next j

Next i

③

End Sub

请回答下列问题：

编写程序输出100~200之间不能被3整除的自然数，并统计出符合条件的个数。

程序如下：

Private Sub Form_Click()

Dim i As Integer

Dim t As Integer

For i = 100 To 200

If{#blank#}1{#/blank#} Then '不能够被3整除的条件

Print i

t=t+1

End If

Next i

End Sub

程序运行结束后t的值为{#blank#}2{#/blank#}

某校内活动需要n（1≤n≤10）名学生迎宾，要求是：男女生站成一排，男生不能相邻，男女生比例大于1/2。考虑到方案只包含了男和女两种情况，可以用二进制的0来代替女生，1来代替男生。当全部是0时最小，此数为0；当全部是1时最大。枚举从0到最大数的每一种情况，逐一判断是否包含男生相邻（二进制1相连），符合的0、1转换为女、男后输出，并在此基础上输出男女生比例较合适的方案（男:女>1/2）。

按上述要求，编写VB程序，功能如下：在文本框Text1中输入n的值，点击“开始枚举”按钮Command1，在列表框List1中输出所有方案，在列表框List2中输出比例合适方案。

实现上述功能的VB程序如下，回答下列问题：

相关试卷

公司介绍

服务介绍

帮助中心