有如下VB程序段：

s=Text1. Text

s1=" "

For i=1 To Len(s)   

    c= Mid(s, i, 1)

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

        c= Chr(Asc(c)+ 32)

    ElseIf c>="a"Andc<(="z"Then

        c=Chr( Asc(c)-32)

    End If

    s1=c+s1

Next i

Text2. Text=s1

该程序段运行后，若在文本框Text1中输入 “Ab12CD”，则 文本框Text2中显示的内容是(    )

A、aBcd

B、dcBa

C、aB12cd

D、dc21Ba