1. (2020高三上·宁波月考) 有如下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)的值依次为（    ）