阅读下列程序代码：

    Dim s As String， c As String

    Dim i As Integer， n As Integer， p As Integer

    s = Text1.Text

    n = Len(s)

    p = 1

    For i = 1 To n

        c = Mid(s， i， 1)

        If c >= "A" And c <= "Z" Then

            t = c + t

        Else

            t = Mid(t， 1， p - 1) + c + Mid(t， p， Len(t) - p + 1)

            p = p + 1

        End If

    Next i

Text2.Text = t

如果文本框Text1中输入“ABCD@1234”，则文本框Text2中输出（    ）

A、 ABCD@1234

B、 @1234ABCD

C、 @1234DCBA

D、 1234@ABCD