有如下VB程序段：

Const n = 6

Dim a(0 To n)As String

Dim i As Integer,j As Integer

a(1)="118":a(2)="36":a(3)="98":a(4)="15":a(5)="88":a(6)="2"

For i = 2 To 4

    a(0)= a(i): j = i - 1

    Do While a(0) < a(j)

        a(j + 1)=a(j)

        j =j - 1

    Loop

    a(j + 1)= a(0)

Next i

执行该段程序后，数组元素a(1)到a(6)的值依次为（    ）

A、“118”、“15”、“36”、“98”、“88”、“2”

B、“2”、“15”、“36”、“88”、“98”、“118”

C、“2”、“15”、“36”、“118”、“88”、“98”

D、“15”、“36”、“98”、“118”、“88”、“2”