4.1 算法及其特征 知识点题库
现在我们用VB6.0软件设计一个程序，可以解答上述问题，通过界面输入鸡和兔头数和，鸡、兔脚数和。在输入数据合理的情况下，求出鸡、兔各有多少只。程序运行界面图、输出界面图和程序的代码如下所示。
程序运行界面图 输出结果界面图
程序代码如下：
Private Sub Command1_Click( )
Dim x As Integer, y As Integer ’x是鸡的数量，y是兔的数量
Dim a As Integer, b As Integer ’a是鸡兔的头数，b是鸡兔的脚数和
a = Val(Text1.Text)
b = Val(Text2.Text)
If b < 2 * a Or b > 4 * a Then ’对数据合理性做出判断
MsgBox "您的输入数据不合理，请重新输入！", , "错误提示"
Text1.Text = ""
Text2.Text = ""
①
x = 0
Do While x ② a
y = a - x
If (2 * x + 4 * y = b) Then
MsgBox "鸡有：" & x & "只 兔有：" & y & "只", , "运行结果"
End If
③
Loop
End Sub
Private Sub Command2_Click( )
Text1.Text = ""
Text2.Text = ""
End Sub
请分析任务，完成下面试题。
-
（1） 程序设计的“灵魂”是（选填“代码”或“算法”）。
-
（2） 流程图用图框及流程线来表示算法。流程图中的“ ”（菱形框）
用来表示（选填“数据处理”或“选择分支”）。
-
（3） 程序中的语句“Dim a As Integer”,是将变量a的数据类型定义为
-
（4） 程序中的语句用到了Msgbox函数，此函数的作用是（选填“输入数据”，“输出数据”或“数据转换”
-
（5） 程序中①所在的横线处应填写的语句是
-
（6） 程序中②所在的横线处应填写的语句是。
-
（7） 程序中③所在的横线处应填写的语句是。
-
（8） 如题图一所示的程序运行界面，要改变窗体的标题，使其显示为“鸡兔同笼”应修改窗体控件的（选填“Caption”,“Name”，“Text”）属性。
-
（9） 本程序中求解问题所用到的算法属于（选填“解析法”、“穷举法”或“递归法”）。
-
（10） 本程序“鸡兔同笼”窗体中（如程序运行界面图）使用的控件类型有
。
注意：⑴其中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 '①
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
'②
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
图a为初始状态，操作圈中的灯，则该灯与对面的两盏灯都会切换“开/关”状态，如图b所示。假设这些灯的编号为0到6号，“开/关”状态随机产生，并输出到列表框List1中，接着需要从中选出数盏灯进行操作，使得最后所有灯都打开（已证明方案-一定存在且唯一）， 并在列表框List2中输出灯的编号。
程序采用枚举策略，一一尝试对每盏灯状态进行“切换”操作，“1”表示对当前灯进行切换，“0”表示不操作。
程序运行界面如图c所示。
-
（1） 0-6号灯的初始状态为“关 关 关 开 关 关 开”，如对1号灯进行切换操作，对面随之切换灯的编号是：和
-
（2） 实现上述功能的VB程序如下，请在划线处填入合适的代码。
Dim a（0 To 6）As Integer，b（0 To 6） As Integer
Private Sub Command1_Click()
Dim i As Integer, x As Integer, pos As Integer
Dim flag As Boolean
List2.Clear
For i = 0 To
x = i：pos = 0：flag = True
For j = 0 To 6
b（j）= a（j）
Next j
Do While x > 0
If x Mod 2 = 1 Then
b（pos）= 1 - b（pos）
b（（pos + 3） Mod 7） = 1 – b（（pos + 3） Mod 7）
End If
pos = pos + 1
x = x \ 2
Loop
For j = 0 To 6
IfThen flag = False：Exit For
Next j
If flag Then
pos = 0
Do While i > 0
If i Mod 2 = 1 Then List2.AddItem “第” + CStr（pos）+ “号”
i = i \ 2
pos = pos + 1
Loop
Exit For
End If
Next i
End Sub
Private Sub Form_Load() ‘随机生成初始数据
Dim i As Integer
Randomize
List1.Clear
For i = 0 To 6
a（i）= Int（Rnd * 2）
If a（i）= 1 Then
List1.AddItem “第” + CStr（i） + “号：”+ “开”
Else
List1.AddItem “第” + CStr（i） + “号：” + “关”
End If
Next i
End Sub
实现上述功能的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 Not prime(i) Then
k=k+1
End If
i=i+2
Loop
For i=2 To k
If 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(sar(x))
If x Mod i=0 Then
prime=True
Exit for
End If
Next i
End Function
-
（1） 语句“List1. AddItem Str(a(i-1))+"和"+Str(a(i))”中的AddItem是（单选，填字母：A ．对象名/B ．属性名/C ．事件名/D ．方法名）。
-
（2） 程序代码中，加框处有错，请改正。
-
（3） 程序代码中，将横线处语句补充完整。
-
（4） 在自定义函数中，函数返回值prime=Flase表示的含义是。
| 输入两个互不相等的正整数A和B 10：If A<B then C←A,A←B,B←C) 输出A和B Else 返回到标号10的行继续执行 |
下列有关上述算的法说法，正确的是（ ）
Private Sub Command2_Click()
Const n=12
Dim a(1 To n) As Integer, s As Integer
Dim i As Integer, j As Integer
Randomize
For i=1 To n
a(i)=Int(Rnd * 50)+1
For j=1 To i- 1
If a(i)=a(j) Then
Next j
If j <i Then
Next i
For i=1 To n
For j=1 To n
If Then
s=s+1
List1. AddItem Str(s)+"："+ Str(a(i)) + Str(a(j))
Exit For跳出内层循环
End If
Next j
Next i
End Sub
