为实现上述功能，请将以下程序补充完整。

Private Sub Command1_Click()

Dim j As Integer, k As Integer

List1.Clear

For k = 1 To 100

    j = Int(Sqr(k))

    If {#blank#}1{#/blank#}Then List1.AddItem {#blank#}2{#/blank#}

Next k

End Sub

Dim tmp As Integer

Dim a(1 To 10) As Integer

Private Sub Command1_Click()

  For i=2 To 10

Text1.Text = ""

For i= 1 To 5

  For j=i+1 To 6

  If s(i) + s(i) < s(j) + s(i) Then

    t= s(j): s(j)= s(i): s(i)=t

  End If

  Next j

Next i

For i=1 To 6

  Text1.Text = s(i) + Text1.Text

Next i

  If  Then

    tmp = a(i)

      For j=  To 1 Step -1    ‘依次后移

        If tmp > a(j) Then Exit For

        a(j+1)= a(j)

      Next j

          ‘插入数据

    End If

  Next i

  For i= 1 To 10

    List1.Addltem a(i)

  Next i

End Sub

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

Dim a(1 To 5) As Integer

t=0

For i = 1 To 5

  a(i) = Int(Rnd * 30 + 10)

  t = t + a(i) \ 10

Next i

For j = 1 To t \ 3

  If j Mod 2 = 1 Then a(j) = a(j) + 1 Else a(j) = a(j) - 1

Next j

运行程序后，数组a各个元素的值，不可能的是（  ）