程序代码如下：

Private Sub Command1_Click()

  Dim i As Integer

  List1.Clear  '清除列表框内容

End Sub

Private Function f(x As Integer) As Boolean  '判断是否为素数，若是返回true,若不是则返回false

………

End Function

密码强度判断条件如下：密码长度小于6，则强度为“弱”。在密码长度大于等于 6 的情况下，若只出现一种字符，则密码强度为“弱”；若出现两种不同字符，则密码强度为“中”，出现3种以上不同字符，则密码强度为“强”。

5*5=25

6*6=36

25*25=625

76*76=5776

……

那么，5、6、25、76 等数被称为自守数。小袁编写一个 VB 程序，实现如下功能：找出 10000 以内所有可能的自守数，单击“统计”按钮 Command1，将符合要求的自守数显示在列表框 List1 中，统计个数显示在标签 Label1 中，运行界面如图所示。

①密码是六位数字，前面两位为59；②最后两位数字相同；③能被12和38整除。

程序界面如图1所示，单击 “帮助找回密码”按钮（Command1）后，可能的密码显示在列表框List1中。