实现上述功能的VB程序如下，但横线处代码有错，请改正。

Private Sub Command1_Click()

    Dim a As String

    Dim x As Integer, s As Integer, k As Integer

    a = Text1.Text

    x = 1: s = 0: k = 0

    For i = 1 To Len(a)

        '如果输入的不是0到9的数字或者空格，则给出错误提示后结束子程序

        If (Asc(Mid(a, i, 1)) < 48 Or Asc(Mid(a, i,1)) > 57)  or(Asc(Mid(a,i,1))= 32)  then’{#blank#}1{#/blank#}Label1.Caption = "只能输入数字或空格"

            Exit Sub

        End If

        If Mid(a, i, 1) = " " Then

            s = s + Mid(a,x,i)’{#blank#}2{#/blank#}

            x = i + 1

            k = k + 1

        End If

    Next i

    Label1.Caption = "这" + Str(k) + "个数的和为:" + Str(s)

End Sub

⑴用数组b存储最小下降数列中最小的元素(查找过程中的最小值)，b(1)为数组a第1个元素。

⑵加入方法：将a(i)与数组b中的每个元素依次逐个比较：

若a(i)比b(j)小就用a(i)替换b(j)中的值，将a(i)添加到第j个下降数列中，并存储在c数组的c(j)中。

若a(i)比b(j)都大，则在数组b最后添加a(i)新的元素，将a(i)添加到第j个下降数列中，并存储在c数组的c(j)中。

⑶若数组a各元素的值为34，54，3，76，2，3时，则3个下降数列分别为“34，3，2”“54，3”“76”

程序运行界面如图所示。

小明依据上述描述设计了如下VB程序。请回答下列问题：

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

Private Sub Command1_Click()

  Dim a(5) as Integer

  Dim n as Integer, i as Integer

  n = Val(Text1.Text)

  i = 0

  a(1) = 1

  a(2) = 1

  For i = 3 To n

    a(i) = a(i-1) + a(i-2)

  Next i

  Label1.Caption = a(i)

End Sub

若在Text1中输入5，则点击按钮后的运行结果为（  ）