Private Sub Command1_Click()

Dim getStr As String

Dim a As String

Dim i As Integer，s As Integer

Dim q As Integer，l As Integer

s=0：q=0：l=0

getStr=Text1.Text

Text2.Text = Str（s）

Text3.Text = Str（q）

Text4.Text = Str（l）

End Sub

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

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

    i＝1

    j＝7

    Do While _______

        i＝_______

        j＝________

    Loop

    Text1.Text＝Str(i)

    Text2.Text＝Str(j)

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