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

②最后两位数字相同；

③能被12和38整除。

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

小张编写 VB 程序，实现如下功能：在前 100 个偶自然数中，计算恰好有四位为 1 的二进制数的个数， 如图所示，单击“计算”按钮 Command1，在文本框 Text1 中显示符合条件的个数，在列表框 List1 中显示符合条件的二进制数。VB 程序代码如下：

提示：本题“除 2 取余倒排法”的方法将十进制转化为二进制，算法如下： 例如十进制数“97”转化为二进制的过程如右图所示：

因此“97”二进制值为：1100001

实现该功能的程序代码如下：

Private Sub Command1_Click()

    Dim i As Integer，ch As String，s As String

    Dim my(0 To 127)As Boolean  ‘0～127表示128个ASCII字符的ASCII值

    s=Text1．Text

    For i=0 To 127

        my(i)=False

    Next i

    If    ①   then

        Text2．Text=”密钥长度不足26个字符!”

    Else

        For i=1 To 26

           ch=Mid(s，i，1)

           t=    ②    

           If my(t)=False Then

              my(t)=True

           Else

             Text2．Text=“密钥中有重复字符!”

             Exit Sub

           EndIf

        Next i

        Text2．Text=“密钥正确!”

    EndIf

End Sub

点击“转换”按钮Command1，则在文本框Text2中显示该金额的大写，程序运行界面如下图所示:

例如以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

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