s = "2019.06 Visual Basic 6.0": n = 0 For i = 1 To Len(s)

    ch = Mid(s, i, 1)

    If ch >= "0" And ch <= "9" Then

        m = Asc(ch) - Asc("0") + 1

        a(m) = a(m) + 1

    End If

 Next i

 For i = 1 To 10

    If a(i) > 1 Then n = n + i

 Next i

数组 a 各元素的初始值都为0，执行该程序段后，则变量n的值为（  ）

Private Sub Command1_Click()

  Dim s As String, a As String, t As String

  s = Text1.Text: t = ""

  For i = 1 To Len(s)

    a = Mid(s, i, 1)

    If a >= "0" And a <= "9" Then

      t = t + a

    ElseIf a = "!" Then

      t = ""

    ElseIf t <> "" Then

      List1.AddItem t

    End If

  Next i

End Sub

在文本框Text1中输入“12+23=35!456Ye”，单击按钮“Command1”后，在列表框List1中显示的结果是（  ）

s = "Hello, Taizhou!"

n= Len(s): ans =""

For i=1 To n

    c=Mid(s, i, 1))

    If Abs(i-n)<n\2 Then

        If c>="a" And c<="z" Then c=Char(Asc(c)-Asc("a")+Asc("A"))

    End If

        ans=ans+c

    Next i

    Labell.Caption=ans

执行上述程序段后，标签Labell中输出的内容为（  ）

i = 1: j = 8: s = ""

key =Text1.Text

Do While i <= j

  m =(i + j) \ 2

  If key = a(m) Then

   s = s + "M"

   Exit Do

  ElseIf key > a(m) Then

   j = m - 1: s = s + "L"

  Else

   i = m + 1: s = s + "R"

  End If

Loop

Text1.Text = s

数组元素a(1)到a(8)的值依次为“4,22,27,32,35,44,56,59”，该程序段执行后，文本框Text1中显示的内容不可能是（  ）

当输入x的值为100时，在标签Label1中输出的内容为（   ）