（加试题）小李同学碰到了一个数学问题：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）    _________________

穷举法的适用范围是（  ）

A．一切问题

B．所求问题的解无限多

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

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

古希腊著名科学家毕达哥拉斯把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程序，在文本框Textl中输入一个大于1的正整数，单击“判断”按钮Commandl,在标签Labell中显示判断结果。程序设计界面如图所示。

(1) 在设计程序界面时，要清空标签中显示的内容“Labell”，应修改该标签的_________属性。
(2) VB程序代码如下，请在划线处填入合适代码。
Private Sub Command1 Click()

Dim n As Integer, s As Integer

s = 0

n = Val(Textl. text)

If n > 1 Then

For i = 1 To n
s =________________________
If n = s Then
Labell. Caption = Str(n) +〃是一个三角形数。"
Exit For
______________________________________
Labell. Caption = Str(n) +"不是一个三角形数。"
Exit For
End If
Next i

Else

Labell.Caption = 〃请输入一个大于1的正整数"

End If

End Sub
(3)若文本框Text1中输入的内容为“27”，单击按钮Commandl后，标签Labell中显示的内容是_________________

编写程序输出100~200之间不能被3整除的自然数，并统计出符合条件的个数。
程序如下：
Private Sub Form_Click()
Dim i As Integer
Dim t As Integer
For i = 100 To 200
If __________ Then    '不能够被3整除的条件
Print i
t=t+1
End If
Next i
End Sub
程序运行结束后t的值为_______________

用枚举算法求解“找出所有满足各位数字之和等于5的三位数”时，在下列所列举的数值范围内，算法执行效率最高的是（  ）

A．从0到999	B．从100到999
C．从100到500	D．从104到500