①密码是六位数字,前面两位为59;
②最后两位数字相同;
③能被12和38整除。
程序界面如图1所示,单击 “帮助找回密码”按钮(Command1)后,可能的密码显示在列表框List1中。
Private Sub Command1_click ( )
Dim x As Integer, s As Long, y As Integer, i As Integer
For i = 0 To 9999
S = 590000 + i
If Then
x= s mod 10
y = (s Mod 100) \ 10
If x = y Then
List1.AddItem Str(s)
End If
End If
Next i
End Sub