高中VB程序题王敏的E-Mail邮箱密码忘记了，但她需要收一封很重要的来信，请你帮她尽可能找出密码。她零星记得自己密码信

高中VB程序题
王敏的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 = 310000 + i
If s Mod 46 = 0 Then
②
b = (s Mod 100) 10
If a = b Then
List1.AddItem Str(s)
End If
End If
Next i
End Sub
（1）解决此问题的算法是________________。（选填：枚举算法 或 排序算法）
在程序①和②划线处，填入适当的语句或表达式，把程序补充完整：
（2）程序中①划线处应填入__________________。
（3）程序中②划线处应填入__________________。