设计算法，求同时满足以下条件的所有四位正整数之合s。①不大于n(n的值由键盘输入)②能被9整除③十位数是2。算法流程图如下所示：

（1）解决上述问题的算法属于（_______）
A.枚举法 B.擂台法 C.解析法 D.对分法
（2）判断x能被9整除的设计思路是 ；取x十位上数字的设计思路是  。（_______）
A.x除以9的余数为0；先求x除以10的余数，再求该余数除以10的商
B.x除以9的商为0；先求x除以10的余数，再求该余数除以100的商
C.x除以9的商为0；先求x除以100的余数，再求该余数除以100的商
D.x除以9的余数为0；先求x除以100的余数，再求该余数除以10的商
（3）小明根据上述思路，设计了一段不完整的程序。请完善划线处内容，完成上述功能。
Dim n as Integer，x as Integer，s as long
s=0
n=InputBox(“输入四位数上限值”)
For____________

If___________and_____________ Then

s=s+x

End If

Next
_____________

数学中的“自守数”：如果一个数的平方数的末几位等于该数本身，这个数就是自守数。例如：
5*5=25
6*6=36
25*25=625
76*76=5776
……
那么，5、6、25、76 等数被称为自守数。小袁编写一个 VB 程序，实现如下功能：找出 10000 以内所有可能的自守数，单击“统计”按钮 Command1，将符合要求的自守数显示在列表框 List1 中，统计个数显示在标签 Label1 中，运行界面如图所示。

（1）程序运行时要在按钮上显示“统计”，应设置该按钮的________属性。
（2）为实现上述功能，请在划线处填入合适的代码。
Private Sub Command1_Click()
Dim n As Single, k As Integer, t As Integer, c As Integer
List1.Clear c=0
For n = 5 To 10000
k = Len(Trim(n))   'Trim()函数用于删除字符串前后的空格
t = (n * n)    Mod
If t = n Then
① _     List1.AddItem   Str(n)
②     
End If
Next n

Label1.Caption = "自守个数为：" + Str(c)

End Sub
为实现上述功能，划线处应填入的代码分别为
①__________________________________________ 。
②___________________________________________。
（3）解决该问题采用了_______（选填：枚举/解析）算法。

（加试题）下列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
l = Len(Str(i)) - 1
For j = 0 To l - 1
a = 1
s = s + a ^ 3
Next j
If i = s Then
List1.AddItem i
End If
Next i
End Sub
横线处应填写

A．i / 10 ^ j Mod 10	B．i \ 10 ^ j Mod 10
C．i \ 10 ^ (j Mod 10)	D．(i \ 10) ^ j Mod 10

列出所有可能的情况，逐个判断有哪些符合问题所要求的条件，从而解决问题，这是（  ）思路

A．递归算法

B．顺序查找算法

C．穷举法

D．解析法

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