编写“数字序列”程序，实现如下功能：在文本框Text1中输入100,500范围内的整数，单击“生成”按钮Command1，在列表框List1中显示9个该序列的数字。数字序列的生成规则为：该项的数字+该数百位上的数字+该数十位上的数字+该数个位上的数字=下一项的数字，例如：365+3+6+5=379。小明编写了VB程序，运行的界面如图所示，程序代码如下：

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

A．对象名

B．事件

C．事件处理过程

D．方法   ）

（2）为实现上述功能，请在划线处填入合适的代码。
Private Sub Command1_Click(   )
Dim n As Integer, i As Integer
Dim a As Integer,b As Integer
Dim c As Integer
List1.Clear
n = Val(Text1.Text)
If n >= 100 And n <= 500 Then
For i = 1 To 9
 
a = n \ 100
b = (n - 100 * a) \ 10
c = n Mod 10
_______________________
   
Next i

Else
List1.AddItem "输入数值有误"
End If

End Sub
（3）上述代码段中缺少了List1.AddItem Str(i)+"."+Str(n)，此句代码应该加在_____（填字母）位置。
（4）若输入的数字为123，则List1中第三行为__________________。

（加试题）某VB程序段如下：
s = 0
For i = 1 To 5
a(i) = 0
Next i
For i = 2 To 5
For j = i To 5
If j Mod i = 0 Then
a(j) = a(j) + 1
s = s + a(j)
End If
Next j
Next i
运行程序段后，变量s的值为

A．6

B．5

C．4

D．3

王敏的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）程序中②划线处应填入__________________。

素数是指除了1和本身不能被任何数整除的数。请将3到100间的素数添加到LIST1中。
PRIVATE   SUB    FORMCLICK
FOR  I = 3  TO 　________1
F=0
FOR  J= 2  TO  I-1
IF ________2 THEN
F=1
EXIT  FOR
END   IF
NEXT  J
IF   F=0   THEN  ________3
________4
END  SUB

下列程序的功能是标签Label1中显示1+2+3+…+10值。
Dim s As Integer
Dim i As Integer
① s = 0
② For i = 1 To 10
③    s = i
Next i
④ Label1.Caption = Str(s)
错误在_________处，改为____________。