图1

①密码是六位数字，前面两位为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      ①      

    s = 310000 + i

    If  s  Mod  46 = 0   And  s  Mod  16 = 0   Then

              ②      

        b = (s  Mod  100) \ 10

        If a = b Then

            List1.AddItem Str(s)

        End If

    End If

Next i

End Sub

Private Sub Command1_Click()

i＝1

____①____

Do While____②____

____③____

j＝j－1 ′④

Loop

Text1.Text＝Str(i)

Text2.Text＝Str(j)

End Sub

Private Sub Command1_Click()

    List1.clear

    Dim a As Integer

    For i = 1 To 1000

        s = 0

        i= Len(Str(i)) - 1

        For j = 0 To i - 1

            a =           

            s = s + a ^ 3

        Next j

        If i = s Then

            List1.AddItem i

        End If

    Next i

End Sub

横线处应填写 （   ）

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