【加试题】有如下 VB 程序段：

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+34=46!789ok”（不包括双引号），单击按钮Command1后，在列表框List1中显示的结果是（  ）

A、

B、

C、

D、