有如下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．最小值

分析解决问题。
有一张单据，编号为四位数，号码为：8□□0.中间两位被污浊看不出来。已知该单据能被23和37整除，请用编程求出该单据号码。
（算法设计）
设百位数字为x,十位数字为y；x和y的范围都是0到9。
4位数：8xy0=8*1000+x*100+y*10
列举（）（）里的两个数字的所有可能情况：
00,01,02,03,04,05,06,07,08,09
10,11,12,13,14,15,16,17,18,19
……
90,91,92,93,94,95,96,97,98,99
逐一判断找出符合条件的数字。
（参考代码）
Dim  x  as long
Dim  y  as long
Dim  n  as long
For x=0  to  9
For y=0  to  9
n=8*1000+x*100+y*10
If   then
Print n
End if
Next y
Next x
根据上述回答下列问题
（1）解决该问题采用的算法是：___________（填：解析法/穷举法/排序法/递归法）
（2）根据题意，程序中空白处应填写：______（填写字母：A/B/C/D）

A．n mod 23 =0 or n mod 37 =0

B．n\23=0 and n\37=0

C．n\23=0 or n\37=0

D．n mod 23 =0 and n mod 37 =0

（3）根据算法设计，参考程序中循环体中的语句“n=s*1000+x*100+y*10”，一共重复执行了_________次。

王敏的 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

小明的支付宝帐号密码忘记了，但他还零星记得有关于密码的一些信息：
①密码是八位数字，前两位为19
②最后两位数字是91
③能被77和133整除
程序界面如图所示，单击“找回密码”按钮（Command1）后，可能的密码显示在列表框List1中。

解决此问题的相应的程序如下：
Private Sub Command1_Click()
Dim i As Long, s As Long
For i = 0 To 9999
s = _____①______ 's表示该八位数密码
If  ② Then   '符合密码的条件，s能被77和133整除
List1.AddItem Str(s)
End If
Next i
End Sub
（1）在应用程序界面设计时，添加“List1”对象用于显示可能的密码，应使用如图所示的“控件工具箱”中的【小题1】（填写相应的编号）。
（2）将窗体Form1上显示的文本“Form1”改为“寻找密码”，可在其属性窗口中将属性【小题2】的属性值修改为“寻找密码”。
（3）解决此问题的算法是【小题3】。（填：枚举算法/解析算法/查找算法）
（4）在程序①和②下划线处，填入适当的语句或表达式，把程序补充完整：
程序中①下划线处应填入【小题4】
程序中②下划线处应填入【小题5】

（加试题）有如下VB程序段：
Private Sub Command1_Click()
Dim a(0 To 9) As Integer
Dim t as Long
t = Val(Text1.Text)
Do While t <> 0
a(t Mod 10) = a(t Mod 10) + 1
t = t \ 10
Loop
For i = 0 To 9
If a(i) <> 0 Then x = x + a(i)
Next i
End Sub
若在文本框 Text1 中输入 3141592，则程序执行后，变量 x 的值为( )

A．1

B．2

C．5

D．7