有VB程序段如下：

s = "United by Emotion"： s1 = "”

For i=1 To Len(s) Step 4

    c = Mid(s， i，1)

    If Asc(c) >= Asc("a") Then

        c = Chr(Asc(c) - Asc("a") + Asc("A"))

        s1=c+s1

    End If

Next i

程序运行后，s1的值是(     )

A、"UEYON"

B、"NOYE"

C、"EYON"

D、"UEEI"