以下是两位同学设计的描述“输出所有能被3整除的四位数”的流程图。
（1）请将流程图的空缺填写完整 ①_____________ ② ____________ 
（2）请问采用枚举算法描述的是  。（从下列选项中选择）

A．图A

B．图B

C．都是

D．都不是

   （加试题）n个数从小到大选择排序需要经过n-1遍加工，每遍加工从未排序的数据元素中找出最小的元素与当前元素进行交换。小天同学学习了选择排序算法和函数的知识后，编写了一个VB程序，功能如下：运行程序时首先在列表框List1中显示10个不小于10且不大于99的随机自然数，单击“排序”按钮Command1后，在列表框List2中显示这些数据按从小到大排序后的结果，运行结果如图所示。

实现上述功能的VB代码如下，但划线处有错，请改正。
Dim a(1 To 10) As Integer '定义数组a
Private Sub Form_Load()
Randomize
For i = 1 To 10  '产生10个不小于10且不大于99的随机自然数，并依次存放在数组a中
a(i) = Int(Rnd * 100) '①
List1.AddItem Str(a(i))
Next i
End Sub
'Find_min函数寻找与当前元素a(x)需要交换的数组元素下标
Function Find_min(x As Integer)
Dim k As Integer, j As Integer
k = x
For j = x + 1 To 10
If a(j) < a(k) Then k = j
Next j
Find_min = k
End Function
Private Sub Command1_Click()
Dim i As Integer, k As Integer, t As Integer
For i = 1 To 9
k = Find_min(i+1)     '②
If k <> i Then
t = a(i): a(i) = a(k): a(k) = t
End If
Next i
For i = 1 To 10
List2.AddItem Str(a(i))
Next i
End Sub
（1）加框处①有错，应改为__________________________。
（2）加框处②有错，应改为__________________________。

如果一个三位正整数等于它的每个数字的立方和，则此数称为“水仙花”数（如：153=1^3+5^3+3^3）。 下列程序用于求出 100-999 之间的所有“水仙花”数。
（1）设计下列程序界面时，在窗体上添加 List1 对象，可使用下图所示 的“控件工具箱”中的 （填写相应编号）。

（2）VB 程序如下： Private Sub Command1 Click（）
Dim m As Integer， n As Integer
Dim a As Integer，b As Integer,c As Integer For m =" 100" To 999
a =" Int(m/100)" b = ①   c= ②   n=a^3+b^3+c^3
If  ③ Then List1.AddItem Str(m) Next m
End Sub 在程序①、②、③划线处，填入适当的语句或表达式，把程序补充完整:
程序中①划线处应填入 。程序中②划线处应填入 。程序中③划线处应填入   。
（3）该程序是 算法。（选填：枚举/解析）

某多选题共有6个候选项（A、B、C、D、E、F），得分规则是：全部答对得2分，部分答对得1分，未作答或有错误答案0分。设计一个能够评分的程序，要求如下：在文本框Text1中输入标准答案，在文本框Text2中输入学生答案。点击评分按钮Command1后，将得分显示在标签Label4中。程序界面如图所示：

（1）要使程序运行后，窗体Form1的标题栏中显示“评分”，正确的做法是_____ （单选，填字母：

A．将窗体的Text属性改为“评分”/

B．在Form1_Load事件中输入代码Form1.Caption=”评分”/

C．在Form1_Load事件中输入代码Form1.Name=”评分”）；

(2)实现上述功能的程序如下，请在划线处填入合适的代码：
Private Sub Command1Click
Dim cans As String ,ans As String ,c As String ,count As Integer
Dim f(1 To 6) As Boolean
cans = Text1.Text:ans = Text2.Text
count = 0
For i = 1 To Len(cans)
c = Mid(cans, i, 1)
f(Asc(c) - 64) = True
Next i
For i = 1 To ①______     
c = Mid(ans, i, 1)
If f(Asc(c) - 64) = False Then
count = 0: Exit For
Else
count = count + 1
End If
Next i
If count = 0 Then
Label4.Caption = "0分"
ElseIf ②______ Then    
Label4.Caption = "2分"
Else
Label4.Caption = "1分"
End If
End Sub
（3）若去除加框处代码，且将文本框Text2的内容改为“BCD”，标签Label4显示的内容是_______。

下面是一段关于计算变量s的算法：
①变量s的初值是0
②变量i从1起循环到n，此时变量s的值由下面的表达式计算
③s=s+(-1)*I
④输出变量s的值
这个计算s值的算法中，s的代数式表示式（   ）

A．1－2+3－4+…+(-1)n×(n－1)

B．1－2+3－4+…+(-1)n×n

C．1+2+3+4+…+(n－1)+n

D．－1－2－3－…－n