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

Dim a(1 to 5) as Integer, i as Integer, c as Integer

a(1) = 2 : a(2) = 1 : a(3) = 3 : a(4) = 4 : a(5) = 5

c = 0

For I = 3 to 5

If a(i - 2) + a(i - 1) = a(i) Then c = c + 1

Next i

Text1.Text = Str(c)

该程序运行后，文本框text1中显示的内容是（  ）

Private Sub Command1_Click()

    Dim i As Integer, n As Integer

    Dim s As Integer, t As Integer, k As Integer

    s = 0

    For i = 1 To 1000

        n = i

        t = 0

        k = 0

        Do While n > 0

            If n Mod 2 = 1 Then t = t + 1 Else k = k + 1

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

        Loop

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

    Next i

    Text1.Text = Str(s)

End Sub