- 二一组卷

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

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

设有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

End If

Next j

Next i

For j=1 To n

If Then List1.AddItem Str(j)

Next j

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

有趣的进制数：编写VB程序找出符合条件的十进制自然数，该自然数的七进制与九进制都是三位数，且七进制与九进制的三位数码顺序正好相反，输出这个十进制数与对应的七进制和九进制数。程序运行界面如图所示。

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

Private Sub Command1_Click（）

Dim i As Integer, d As Integer, r As integer

Dim rs As string, ans1 As Integer, ans2 As Integer

For i=81 To 342

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

rs=“”

Do While d ＜>0

r = d Mod 9

rs= str(r)+rs

②{#blank#}2{#/blank#}

Loop

ans1= Val(rs)

‘求出相应的七进制数，存储在变量ans2中，代码略

If ans1 Mod 10=ans2\ 100 And ans1\ 100=ans2 Mod 10 And ③{#blank#}3{#/blank#} Then

Text1. Text=④{#blank#}4{#/blank#}

Text2 Text= Str(ans1)

Text3. Text= Str(ans2)

End If

Next i

End Sub

火柴算术游戏，给定n(n<=24)根火柴，恰好用尽n根火柴拼凑出A+B=C形式的算式，问一共有多少种可行方案，请输出方案的总数，已知0~9每个数字所需的火柴根数如下表所示:

注意：⑴其中A+B=C 等式中的“+”“=”需要用去4根火柴。

⑵0+4=4与4+0=4算作一种方案。

例如n=18，符合条件的算式共有5个：0+4=4，0+11=11，1+10=11，2+2=4，2+7=9。

小明设计了一个程序，在Text1中输入火柴数量，单击“计算”按钮，在Label1中输出总的可行方案数，并在List1中输出所有可行的算式。

程序代码如下，加框处代码有误，请修改。

Dim s(0 To 9) As Integer

Private Sub Command1_Click()

Dim n As Integer, a As Integer, b As Integer, count As Integer

count=0

n=Val(Text1.Text)

For a=0 To 999 Step 1

For b=a To 999 Step 1

If Then '①{#blank#}1{#/blank#}

List1.AddItem Str(a)+"+"+Str(b)+"="+Str(a+b)

count=count+1

End If

Next b

Next a

Label2.Caption="共"+Str(count)+"种方案"

End Sub

Function gs(ByVal x As Integer) As Integer

Dim tmp As Integer

tmp=0

If x=0 Then tmp=s(0)

Do While x > 0

'②{#blank#}2{#/blank#}

x=x \ 10

Loop

gs=tmp

End Function

Private Sub Form_Load()

s(0)=6: s(1)=2: s(2)=5: s(3)=5: s(4)=4

s(5)=5: s(6)=6: s(7)=3: s(8)=7: s(9)=6

End Sub

古希腊著名科学家毕达哥拉斯把1、3、6、10、15、21、28……称为三角形数。这些三角形数序列有一定的规律，后一个数与前一个数的差刚好构成一个等差数列2、3、4、5、6、7、……，所以，第2位的“3”等于序列的第1位数“1”加上等差数“2”，第3位的6等于序列的第2位数“3”加上等差“3”……，第n位数m等于序列的第n-1位数加上等差数n。小金利用这个规律编写了一个判断三角形数的VB程序，在文本框Text1中输入一个大于1的正整数，单击“判断”按钮Command1，在标签Label1中显示判断结果。程序设计界面如图所示。

小明编写了一个寻找非常幸运数的程序。程序运行时，单击“求解”按钮，则在列表框中输出所有的六位数中的非常幸运数，在标签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)={#blank#}1{#/blank#}

x=x\10

k=k+1

Loop

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

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

{#blank#}2{#/blank#}

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

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

List1.AddItem Str(i)

{#blank#}3{#/blank#}

End If

Next i

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

End Sub

解决“百鸡百钱”问题，比较恰当的算法是（）。

相关试卷

公司介绍

服务介绍

帮助中心