下列VB程序段：

Const n=8

Dim a(1 To n) As Integer

k=1

For i=1 To 2

    For j=1 To n-i* 2

        If a(j) * k< a(j+2) * k Then

            t=a(j)：a(j)=a(j+2)： a(j+2)=t

        End If

        k=-k

    Next j

Next i

For i=1 To n\ 2

    List2.AddItem Str(a(2 * i))

Next i

若a(1)~a(8)的值分别为6，7，8，11，8，3，6，2，执行以上程序后list2输出的结果是(     )

A、3  11  2  7

B、2  3  7  11

C、7  3  2  11

D、3  2  7  11