有如下VB程序段：

x = 4095 : s1 = "ABCDEFGHIJ" : s2 = "abcdefghij"

ret=""

Do While x > 0

    r = x Mod 10

    If r Mod 2 = 1 Then

        ret = Mid(s1, r + 1, 1) & ret

    Else

        ret = ret & Mid(s2, r + 1, 1)

    End If

    x = x \ 10

Loop

Text1.Text = ret

执行该程序段后，文本框Text1中显示的内容为（   ）

A、JFae

B、JFea

C、eaJF

D、EAfj