某食品连锁店5位顾客贵宾消费卡的积分依次为810，512，613，700，900。采用选择排序算法对其排序，若完成第一遍时的结果为：512，810，613，700，900，则完成第二遍的结果是(  )

A．512，613，700，900，810

B．512，810，613，900，700

C．512，900，613，700，810

D．512，613，810，700，900

水仙花数是三维整数：其各位数字立方和等于该数本身，如153=1^∧3+5^∧3+3^∧3，如果要求出所有的水仙花数，下列算法最合适的是（）

A．查找法

B．解析法

C．排序法

D．穷举法

会员积分的计算。某超市会根据会员顾客的一次性消费总额给予一定的积分，会员可在年终依据积分换得相应的商品。每次消费时，计算机会自动累加所购商品的总价并折算成积分。
超市折算积分的规则：如果总消费额不足150元，就给1分积分；如果总消费额达150元及以上，那么每40元消费可以获得0.5积分。如，某人消费总额为150元，150/40=3.75，根据规则，积分为3*0.5=1.5分。
下列程序（流程图如图所示）可根据各种已购买商品的费用（已经保存在数组a中），计算总消费金额（total）并折算成积分（ans），最后输出总消费额（显示在标签Label2中）以及所获得的积分总值（显示在标签Label4中）。则程序中划线处应分别填入：
①   ② ③
Const n = 10
Dim a(n) As Single

Dim i As Integer
Dim ans As Single, total As Single
Private Sub Command1_Click()
total =" 0:" ans = 0
For i =" 1" To n
   ①    
Next i
If total < 150 Then
   ②    
Else
ans =" Fix(total" / 40) / 2
End If
Label2.Caption = Str(total)
③  = Str(ans)
End Sub

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

请认真阅读并分析下面Visual Basic程序代码，按要求完成题目。
Dim a(1 To 6) As Integer
Dim n, i, j, k As Integer
Private Sub Command1_Click()
For i =" 1" To n - 1
For j =   （1） To n
If a(i) < a(j) Then
k = a(i):  （2）  : a(j) = k
End If
Next j
Next i
For i =" 1" To n
list2.AddItem Str(a(i))
Next I
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii =" 13" Then
n =" n" + 1
a(n) = Val(    (3)  )
List1.AddItem Str(a(n))
Text1.Text = "": Text1.SetFocus
End If
End Sub
①程序中出现了text和list两种控件，其中list控件的中文名称是列表框，text控件的中文名称是    。
（2）在上述程序段中3处带序号的空白地方补充恰当的语句，完善程序。