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中显示的结果是（  ）

a＝2

b＝1

Do While b<＝4

 a＝a＋b

 b＝a＋b

Loop

Text1.Text＝Str(a＋b)

则运行该程序段后，文本框Text1上显示（  ）

For i=1 To 100

  If Rnd>0.5 Then

   n=n+1

  Else

  m=m+1

 Next i

分析该程序段，该代码中缺少了（  ）

For i= 1 To 10

    b(i)=0

Next i

For i= 1 To 5

    For j= 1 To 10

        If b(i) <a(j) Then

          b(i)=a(j)

          t=j

        End If

    Next j

    a(t)=0

    List 1.Additem Str(b(i) )

Next i

其中数组元素a(1)到a(10)的值依次为“25，42，53，66，77，83，98，14，38，99”，执行程序后，在列表框List 1中依次输出的数据是（  ）