- 二一组卷

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

【bj】高中信息技术综合库——枚举算法2

小明编写了一个寻找非常幸运数的程序。程序运行时，单击“求解”按钮，则在列表框中输出所有的六位数中的非常幸运数，在标签Label2中输出非常幸运数的个数。

所谓的非常幸运数是指符合下列条件的整数：

⑴该数的偶数位数字之和等于奇数位数字之和。

⑵该数的前一半的各位数字之和正好等于后一半的各位数字之和。

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

Private Sub Command1_Click()

Dim a(1 To 6) As Integer, sum(1 To 4) As Integer

Dim x As Long, i As Long, count As Long, k As Long

For i=100000 To 999999

x=i

k=1

Do While x > 0

a(k)=

x=x\10

k=k+1

Loop

sum(1)=a(1) +a(2)+a(3)

sum(2)=a(4)+a(5)+a(6)

sum(4)=a(2)+a(4)+a(6)

If sum(1)=sum(2) And sum(3)=sum(4)Then

List1.AddItem Str(i)

End If

Next i

Label2.Caption="共有个数:" + str(count)

End Sub

举一反三

如果两个质数的差为2，则这两个质数称为孪生质数对；编写VB程序，实现如下功能：单击“显示孪生质数对”按钮Command1，在列表框list1中显示100以内的所有孪生质数对(运行效果如图所示)。

实现上述功能的VB代码如下, 但划线处代码有错，请改正。

Dim a(1 To 50) As Integer

Private Sub Command1_Click()

Dim i As Integer

k = 0: i = 3

Do While i <= 100

If ① prime(i) Then ‘⑴

k = k + 1

a(k) = i

End If

i = i + 2

Loop

For i = 2 To k

If ②a(i) = a(i +1)+2 Then ‘⑵

List1.AddItem Str(a(i - 1)) + "和" + Str(a(i))

End If

Next i

End Sub

Function prime(x As Integer) As Boolean

prime = False

For i = 2 To Int(Sqr(x))

If x Mod i = 0 Then

prime = True

Exit For

End If

Next i

End Function

① {#blank#}1{#/blank#} ②{#blank#}2{#/blank#}

如图1所示，这是一个城市街道简图，小明从 A 点出发，到达 B 点，如果在每一个路口只能向右或向上走（0 表示向上走，1 表示向右走），问小明有多少条行走路线，并请输出每条路线。程序界面如图2所示。

算法分析：从A点到B点共有7个路口，即可以有一个7位二进制数表示所走路线。观察以上路线，枚举所有满足路线特征的7位二进制数，再去掉不满足的二进制数即可。

设有n盏灯，放在一排。从1 到 n依次顺序编号。有 n个人也从1到n依次编号。第1个人（1号）将灯全部关闭，第2个人（2号）将凡是2的倍数的灯打开，第3个人（3号）将凡是3的倍数的灯做相反处理（该灯如果为打开的，则将它关闭，如关闭的将它打开），以后的人和3号一样，将凡是自己号数倍数的灯做相反处理。问当n个人操作后，哪几盏灯是亮的。（亮灯为0，关闭为1）

为了实现这一目标，完善下列程序，使之能完成该功能。

Private Sub Command1_Click()

Const n=20

Dim i As Integer, j As Integer

Dim a(1 To n) As integer

For j=1 To n

a(j)=0

Next j

For i=1 To n

For j=1 To n

If j Mod i=0 Then

{#blank#}1{#/blank#}

End If

Next j

Next i

For j=1 To n

If {#blank#}2{#/blank#} Then List1.AddItem Str(j)

Next j

End Sub

下列VB程序的功能是：求得1000以内的所有水仙花数，并在list1中显示。水仙花数是指一个n位数（n）=3），它的每个位上的数字的n次幂之和等于它本身（例如：1^3+5^3+3^3=153）

Private Sub Command1_Click()

List1.clear

Dim a As Integer

For i = 1 To 1000

s = 0

i= Len(Str(i)) - 1

For j = 0 To i - 1

a =

s = s + a ^ 3

Next j

If i = s Then

List1.AddItem i

End If

Next i

End Sub

横线处应填写（）

现有n根棍子，第i根棍子的长度为a<sub>1</sub>，现设计了以下VB程序段，想要从中选出三根棍子组成周长尽可能长的三角形，输出最大的周长；若无法组成三角形，则输出0。如当n=5，a={2，3，4，5，10}时，输出12，即选择了3、4、5。当n=4，a={4，5，10，20}时，无法组成三角形，输出0。实现上述功能的VB程序代码如下，但加框处代码有误，请改正。

Dim a(1 To 1000) As Integer

Dim n As Integer

Private Sub Form_Load()

'确定n的值和数组a的各个元素值，即每根棍子的长度值，代码略

End Sub

Function max (x As Integer, y As Integer) As Integer

If x>y Then

max=x

Else

max=y

End If

End Function

Private Sub Command1_Click()

Dim i As Integer, J As Integer, K As Integer

Dim ans As Integer, c As Integer, longest As Integer,

rest As Integer

ans=0

'让i<j<k，保证棍子不会被重复选中

For i=1 To n

For j=i+1 To n

For k=j+1 To n

c=a(i)+a(j)+a(k)

longest= '①

rest=c-longest 'rest 保存最短的两条边的和

If Then '②

ans=max(ans, c)

End If

Next k

Next j

Next i

Print ans

End Sub

枚举算法的适用范围是（）

相关试卷

公司介绍

服务介绍

帮助中心