会员积分的计算。某超市会根据会员顾客的一次性消费总额给予一定的积分，会员可在年终依据积分换得相应的商品。每次消费时，计算机会自动累加所购商品的总价并折算成积分。
超市折算积分的规则：如果总消费额不足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

王敏的E­Mail邮箱密码忘记了，但她需要收一封很重要的来信，请你帮她尽可能找出密码。
她零星记得自己的密码信息：
①密码是六位数字，前面两位为31；
②最后两位数字相同；
③能被16和46整除。
程序界面如图所示，单击“帮助找回密码”按钮(Command1)后，可能的密码显示在列表框List1中。

解决此问题的相应程序如下：
Private Sub Command1_Click()
Dim a As Integer，s As long，b As Integer，i As Integer
For i＝0 To 9 999 ①________
s＝310 000＋i
If s Mod 46＝0 Then
②________
b＝(s Mod 100)\100
If a＝b Then
List1.Addltem Str(s)
End If
End If
Next i
End Sub

(1)解决此问题的算法是________(选填：枚举算法或排序算法)
在程序①和②画线处，填入适当的语句或表达式，把程序补充完整：
(2)程序中①画线处应填入________。
(3)程序中②画线处应填入________。

王敏的 QQ 密码忘记了，试了很多次都没有成功，请你帮她尽可能找出密码。她零星记得自己的密码信息：①密码是六位数字，前面两位为 31；②最后两位数字相同；③能被 16 和 46 整除。程序界面如图所示，单击“帮助找回密码”按钮，可能的密码显示在列表框 List1 中。解决此问题的相应程序如下，完成相应的填充。

Private Sub Command1_Click（）
Dim a As Integer , s As Long , b As Integer , i As Integer
For i=0 To 9999 ___________
s=310000+i
If s Mod 46 = 0 Then
a = s mod 10
b=(s\10)mod 10
If ___________Then
___________
End If
End If
Next i
End Sub

有如下VB程序段
m=a(1)
For i=2  to  100
If  a(i) > m  then  m=a(i)
Next i
该程序段执行后，变量m中存储的是(    )

A．累加值

B．计数值

C．a(1)至a(100)中的最大值

D．最小值

读程序，写出下列程序的输出结果
55、s = 1
For j =" 100" To -100 Step -1
s =" s" * j
Next j
MsgBox (s)
上述程序段中s =" s*j" 的执行次数是(    )

A．400

B．401

C．200

D．201