找出满足各位数字之和等于5的所有三位数可采用的算法是（    ）。

A．解析算法

B．冒泡排序

C．枚举算法

D．选择排序

（加试题）哥德巴赫 1742 年给欧拉的信中哥德巴赫提出了以下猜想：任一大于 2 的偶数都可写成两个 质数之和。下列 V

A．程序的功能即验证哥德巴赫猜想。程序运行时，在文本框 Text1 中输入一个大于 2 的偶 数，单击“证明”按钮 Command1 后，在列表框 List1 中输出所有符合猜想的组合，在标签 Label2 中输出 共有多少个组合。程序运行效果如下图所示。

为实现上述功能程序如下，但加框处的代码有误，请改正。
Private Sub Command1Click()
Dim n As Integer
Dim i As Integer, c As Integer
n = Val(Text1.Text)
List1.Clear
c = 0
If n Mod 2 = 0 Then
For i = 2 To n   ________
If is Prime(i) Then    ________
List1.AddItem n & "=" & i & "+" & n - i
c = c + 1
End If
Next i
Label2.Caption = "共有" & c & "种组合"
Else
Label2.Caption = "请输入一个大于 2 的偶数"
End If
End Sub
Function is Prime(x As Integer) As Boolean
Dim i As Integer
Is Prime = True
For i = 2 To Int(Sqr(x))
If x Mod i = 0 Then
Is Prime = False
Exit For
End If
Next i
End Function

   （加试题）小李同学碰到了一个数学问题：400个同学按顺序进行编号后围成一个大圈，按1至2报数（从1号位置开始），报到2的同学出列，以此一直循环报数下去，问最后剩下的那位同学他的编号是几号？

例如以6个同学编号为例，按1至2报数（从1号位置开始）依次出列的编号次序为2-4-6-3-1-5，那么最后剩下的就是编号为5的同学。

为了解决这个问题，小李用VB编写了如下程序尝试解决，其中列表list1显示出列的顺序编号，文本框text1中显示最后留下的编号，程序代码如下（测试界面如下图）：

Private Sub Command1_Click()
Dim s, f, t As Integer
Dim a(1 To 400) As Boolean
For i = 1 To 400
a(i) = False
Next i
s = 0
f = 0
i = 0
Do While f < 399
i = i + 1
If i = 401 Then i = （1）
If a(i) = False Then s = s + 1
If s = 2 Then  
（2）    
List1.AddItem Str(i)
a(i) = True
f = （3）  
End If
Loop
For i = 1 To 400
If （4）    Then text1.text=str(i)
Next i
End Sub
为实现程序功能，在程序划线处应填入的代码为：
（1）    _________________
（2）    _________________
（3）    _________________
（4）    _________________

一辆卡车运矿石，晴天每天运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
则下列说法正确的是(　　)

A．①应填的代码为 i*20＋j*12<>112

B．②应填的代码为i－1

C．③应填的代码为j＋1

D．描述该算法的思想为解析算法

穷举法的适用范围是（  ）

A．一切问题

B．所求问题的解无限多

C．所求问题解的个数有限且有明确的条件

D．所求问题解的个数有限且无明确的条件