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

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

Private Sub Command1_Click()

  Dim s As String，i As Integer，s1 As String，sum As Integer，t As Integer

  Dim jy As Integer

  s＝Text1.Text

  t＝0：sum＝0

  For i＝1 To Len(s)

    s1＝Mid(s，i，1)

    If s1>＝“0” And s1<＝“9” Then

           ′①

        If t<10 Then

            sum＝sum＋Val(s1)*(11－t)

        ElseIf t＝10 Then

              ′②

        End If

    End If

  Next i

  sum＝11－sum Mod 11

  If  Then′③

    Text2.Text＝“该校验码中数字不是10位数！”

  Else

    If jy＝“X” and sum＝10 Then

      Text2.Text＝“校验通过”

    ElseIf val(jy)＝sum then

      Text2.Text＝“校验通过”

    Else

      Text2.Text＝“校验不通过”

    End If

  End If

End Sub

划线处代码为①{#blank#}1{#/blank#}

②{#blank#}2{#/blank#}

③{#blank#}3{#/blank#}

n=Len(s)       ‘s是待判断的字符串

k=0:j=n

For i=1 To n/ 2

Next i

If k=0 Then Labell Caption=“对称”Else Labell.Caption=“不对称”

方框中的代码由以下三部分组成:

①j=j-1    ②If cl <> c2 Then k=k+1    ③cl=Mid(s,i,l):c2=mid(s,j,l)

代码顺序正确的选项是（  ）

Private Sub Command1_Click()

 Dim a(1 To 5) As Integer

 a(5)=Val(Text1.text)

 For i=4 To 1 Step -1

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

 Next i

 Label1.caption=str(a(1))

End sub

在文本框Text1中输入“100”,单击命令按钮Command1后,标签Label1中显示的内容是（  ）

a=a-b

a=a*b