Private Sub Command1Click()

Dim i As Integer

Dim j As Integer

i = 1: j = 0

list1.clear

Do While i <= 1000

If （i Mod 3 = 2 And i Mod 5 = 3 And i Mod 7 = 2） Then

List1.AddItem i

    ①    

End If

i = i + 1

Loop

Label1.Caption = Str(j)

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  ① prime(i)   Then      ‘⑴

      k = k + 1

      a(k) = i

   End If  

   i = i + 2

Loop

For i = 2 To k

   If   ②a(i) = a(i +1)+2   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(Sqr(x))

   If  x Mod i = 0  Then

      prime = True

      Exit For

   End If

Next i

End Function

① {#blank#}1{#/blank#}  ②{#blank#}2{#/blank#}  

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

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

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

输入火柴棍的数量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”的方案数，程序界面如图b所示。

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

Sub Command1_Click()

Dim i As Integer, n As Integer

m=106

n = {#blank#}1{#/blank#}

Do While m <= 996

    If {#blank#}2{#/blank#} Then n = n + 1

    m={#blank#}3{#/blank#}

Loop

Text1.Text = Str(n)

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#}