题库 高中信息
题干
王敏的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）程序中②划线处应填入__________________。
①密码是六位数字，前面两位为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）程序中②划线处应填入__________________。
答案(点此获取答案解析）
相关知识点