有如下VB程序段：

a(1)=91: a(2)=5: a(3)=65: a(4)=8: a(5)=78: a(6)=13: a(7)=29: a(8)=18

For i=2 To 5

    tmp= a(i)

    L=1

    R=i-1

    Do While l<= R

        M= Fix(L+ R)/2)

        If tmp <=a(M) Then R= M-1 Else L= M+1

    Loop

    j=i-1

    Do While j＞=L

        a(j+1)=a(j)

        j=j-1

    Loop

    a (L)= tmp

Next i

执行上述代码后，数组a中的元素分别是（    ）

A、5 8 13 18 29 65 78 91

B、5 8 65 78 91 13 29 18

C、91 78 65 29 18 13 8 5

D、91 78 65 8 5 13 29 18