小刚的支付宝账户密码忘记了,但他急用支付宝进行转账,请你帮他尽可能找回密码。他只记得自己密码的一些零星信息: ①密码是六位数字,前面两位为59;②最后两位数字相同;③能被12和38整除。程序界面如图1所示,单击 “帮助找回密码”按钮(Command1)后,可能的密码显示在列表框List1中。
(1)
应用程序界面设计时,为添加“ 可能的密码有:”对象,应使用图2所示的“控件工具箱”中的(填写相应编号),并在图3所示的“属性窗口”中,将属性值设置为“可能的密码有:”。
(2)
解决此问题的相应程序如下,请根据题意将程序补充完整。 Private Sub Command1_click ( ) Dim x As Integer, s As Long, y As Integer, i As IntegerFor 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 IfNext iEnd Sub
答案: 【1】①【2】caption
【1】s Mod 12 = 0 and s Mod 38 = 0