1. (2020高三上·诸暨月考) 以下VB程序段用以实现10个数组元素升序排序。

Dim a(1 To 10) As Integer

Dim flag As Boolean

Dim i As Integer, j As Integer, tmp As Integer

随机生成10个不重复的数据存入数组A中，代码略

For i=2To 10

    tmp= a(i)

    j=i

    flag=False

    Do While   ①   And Not flag

        a(j)=a(j-1)

        j=j-1

          ② 

    Loop

    a(j)=tmp

Next i

要实现上述功能，方框①②中的语句分别是（  ）