第11、12课枚举和解析算法(两课时)实验八.doc

文档介绍：枚举算法程序实现
1、王敏的E-Mail邮箱密码忘记了,但她需要收一封很重要的来信,请你帮她尽可能找出密码。她零星记得自己密码信息:
①密码是六位数字,前面两位为31;
②最后两位数字相同;
③能被16和46整除。
程序界面如图所示,单击"帮助找回密码"mand1)后,可能的密码显示在列表框List1中。

解决此问题的相应程序如下:
Private mand1_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
Str(s)
End If
End If
Next i
End Sub
(1)解决此问题的算法是________________。(选填:枚举算法或排序算法)
在程序①和②划线处,填入适当的语句或表达式,把程序补充完整:
(2)程序中①划线处应填入__________________。
(3)程序中②划线处应填入__________________。