Privvate Sub Command1Click( )

Dim man As Integer,woman As Integer,child As Intger,s As Integer

{#blank#}1{#/blank#}

   For woman = 1 To 15

     Child = 30 – man – woman

     S = 20 * man + 30 * woman + 10 * child

     If {#blank#}2{#/blank#} Then

        List1.AddItem Str(man) + Str(woman) + Str(child)

     End If

Next woman

       Next man

End Sub

  实现上述功能的 VB 程序代码如下，请回答下列问题。

Private Sub Command1_Click() Dim a, b, c, d, z As Integer d = 0

For a = 1 To 3  'a代表百位

   For b = 0 To 3  'b代表十位

      For c = 0 To 3

        If a <> b And b <> c And c <> a Then                      ①                        list1.AddItem  str(z)            d = d + 1

        End If

      Next c

   Next b Next a

label1.Caption = "共有" +       ②          + "个数"

End Sub

Private Sub Command1_Click()

    Dim c As Integer, n As Integer c = 0 : n = 9

    Do While n <= 1000

        If n Mod 3 = 2 And n Mod 5 = 3 Then

            List1.AddItem Str(n)

            c ={#blank#}1{#/blank#}

        End If

        n ={#blank#}2{#/blank#}

    Loop

    Label1.Caption = "1000 以内满足条件的数有" & Str（c）& "个"

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

横线处应填写 （   ）

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

②最后两位数字相同；

③能被12和38整除。

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