①密码是六位数字，前面两位为59；

②最后两位数字相同；

③能被12和38整除。

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

例如以6个同学编号为例，按1至2报数（从1号位置开始）依次出列的编号次序为2-4-6-3-1-5，那么最后剩下的就是编号为5的同学。

为了解决这个问题，小李用VB编写了如下程序尝试解决，其中列表list1显示出列的顺序编号，文本框text1中显示最后留下的编号，程序代码如下（测试界面如下图）：

Private Sub Command1_Click()

    Dim s, f, t As Integer

    Dim a(1 To 400) As Boolean

    For i = 1 To 400

        a(i) = False

    Next i

    s = 0

    f = 0

    i = 0

    Do While f < 399

        i = i + 1

        If i = 401 Then i = {#blank#}1{#/blank#}

        If a(i) = False Then s = s + 1

        If s = 2 Then

             {#blank#}2{#/blank#}

            List1.AddItem Str(i)

            a(i) = True

            f =  {#blank#}3{#/blank#}

        End If

    Loop

    For i = 1 To 400

        If  {#blank#}4{#/blank#} Then text1.text=str(i)

    Next i

End Sub

在程序划线处填入合适的代码。

实现上述功能的VB代码如下。

Dim a(1 To 50) As Integer

Private sub Command1_Click()

    Dim i As Integer

    k=0: i=3

    Do While i<= 100

        If Not prime(i) Then

            k=k+1

        End If

        i=i+2

    Loop

    For i=2 To k

        If         Then

            List1 AddItem Str(a(i-1))+"和"+ Str(a(i))

        End if

    Next i

End Sub

Function prime (x As Integer)As Boolean

    prime=False

    For i=2 To Int(sar(x))

        If x Mod i=0 Then

            prime=True

            Exit for

        End If

    Next i

End Function

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