有如下VB程序段
m=a(1)
For t=2  to  15  step 2
If  a(t) > m  then  m=a(t)
Next t
该程序段执行后，变量t的值是（   ）

A．14

B．15

C．16

D．17

将一个十进数转化为任意进制可以采用“除权取余法”。方法是：a 为十进制数，n 为转化的 进制，从 a 开始循环除以 n，记下余数，整数商作为新的 a 继续除以 n ，直到 a=0 为止。然后 倒序取余数即可。余数 k 如果为 10<=k<=15，用字母依次记作“ABCDEF”，比如 k=10，记作 A。该 程序界面如下图所示，在文本框 Text1 中输入一个任意十进制数，在文本框 Text2 中输入要转换 的进制，单击“开始转换”按钮后，对应的进制数在文本框 Text3 中显示。

（1）代码“Private Sub Command1_Click()”中的 Click 是_________。（单选，填字母：

A．对象名/

B．属性名/

C．事件名）

（2）为实现上述功能，请在划线处填入合适的代码。
Private Sub Command1_click()
Dim a As Integer, n As Integer, k As Integer, b As String
Const m = "0123456789ABCDEF"
a = Val(Text1.Text)
①_________
Do While   ②_________
k = a Mod n   '求 a 的余数
a = a \ n
b =③__________ + b
Text3.Text = b
Loop
End Sub
（3）在实现程序功能后，在 Text1 中输入 “16”，在 Text2 中输入 “16”，Text3 显示的内容是____

某对分查找算法的VB程序段如下: 
Dim a(l to 6)As Integer
i=1: j=6: n=0
key= Val(Textl. Text)
Do While i<=j
n=n+1
m=(i+j)\2
If key=a(m) Then Exit Do ＇Exit do为退出do循环
If key<a(m) Then
j=m-1
Else
i=m+1
LOOP
数组元素a(1)到a(6)的值依次为“1921，1927，1949，1998，2008，2019”。在文本框Text1中输入“1998”后运行该程序，则以上程序段运行结束后，下列说法正确的是（   ）

A．变量i的值为3

B．变量j的值为5

C．变量m的值为3

D．变量n的值为3

有如下 VB 程序段：
n = Val(Text1.Text)
For i = 3 To 1 Step -1

If n Mod 2 = 1 Then

n = n\ 2
Else
n = 2 * n + 3
End If
Next i
Label1.Caption = Str(n)
运行该程序，在文本框 Text1 中输入 13，下列说法正确的是（   ）

A．执行程序结束后，标签 Label1 显示 7	B．语句“n=n\2”第一次被执行时，等式右边 n=6
C．程序结束后 i 值为 1	D．语句“n=2*n+3”总共执行 2 次

王敏的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 9999
s = ①
If s Mod 46 =" 0" and s mod 16="0" Then
a="s" mod 10
b = ②
If a =" b" Then
List1.AddItem Str(s)
End If
End If
Next i
End Sub
（1） 解决此问题的主要算法是________________。（选填：枚举算法 或 解析算法）
（2） 窗口上的“找密码”是对form1对象的 属性设置的
在程序①和②划线处，填入适当的语句或表达式，把程序补充完整：
（3）程序中①划线处应填入__________________。
（4）程序中②划线处应填入__________________。