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

For x = 10 To 1 Step -2

   a(x) = x + 1

Next x

该程序段运行后数组元素x的值为（  ）

x=Text1.Text

p=0

For i=1 to Len(x)

 If Mid(x,i,1)=“a” Then p=p+1

Next i

Print p

若程序运行时，在文本框Text1中键入“Are you happy”，则运行结果是（  ）

  Privat Sub Command1 Click

      Dim array1(10,10) As Integer

      Dim i AS integer, j As Integer

      For i = 1 To 3

          For j = 2 To 4

              array1(i,j) = i + j

          Next j

      Next i

  Text1.Text=array1(2, 3)+array1(3, 4)

  End Sub

程序运行后，单击命令按钮，在文本框中显示的值（  ）