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

②最后两位数字相同；

③能被12和38整除。

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

图1

输入火柴棍的数量n（n≤24），计算可以拼出多少个“A+B=C”的等式？要求：

① 加号与等号各自需要两根火柴棍。

② A、B、C为非负的整数，且该数非零时，最高位不能是0。

③ 如果A≠B，则A+B=C 与B+A=C 视为不同的等式。

④ n 根火柴棍必须全部用上。

小明发现，数字1用的火柴棍最少，24根火柴棍全部用上的话，能拼出最大的整数A或B不超过1111，C不超过2222。他编写了一个VB 程序，在文本框Text1中输入火柴棍的数量，单击“统计”按钮Command1，在文本框Text2中输出“A+B=C”的方案数，程序界面如图2所示。

图2

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

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 Form_Click()

    Dim i As Integer

    Dim t As Integer

    For i = 100 To 200

        If{#blank#}1{#/blank#} Then           '不能够被3整除的条件

            Print i

            t=t+1

        End If

    Next i

End Sub

程序运行结束后t的值为{#blank#}2{#/blank#}

实现上述功能的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

Dim a(1 To 1000) As Integer

Dim n As Integer

Private Sub Form_Load()

'确定n的值和数组a的各个元素值，即每根棍子的长度值，代码略

End Sub

Function max (x As Integer, y As Integer) As Integer

    If x>y Then

        max=x

    Else

        max=y

    End If

End Function

Private Sub Command1_Click()

    Dim i As Integer, J As Integer, K As Integer

    Dim ans As Integer, c As Integer, longest As Integer,

    rest As Integer

    ans=0

    '让i<j<k，保证棍子不会被重复选中

    For i=1 To n

        For j=i+1 To n

            For k=j+1 To n

                c=a(i)+a(j)+a(k)

                longest=      '①

                rest=c-longest        'rest 保存最短的两条边的和

                If Then      '②

                    ans=max(ans, c)

                End If

            Next k

        Next j

    Next i

    Print ans

End Sub