某VB程序段如下：

s = "Hello World"

s1 = ""

n = Len(s)

For i = 1 To n \2

    If Mid(s, i, 1) > Mid(s, n - i + 1, 1) Then

        s1 = s1 + Mid(s, i, 1)

    Else

        s1 = Mid(s, n - i + 1, 1) + s1

    End If

Next i

Text1.Text = s1

执行该程序段后，在文本框Text1中显示的是（    ）

A、WlleH

B、oorld

C、dlroo

D、Orldo