实现上述功能的VB程序如下，但加框处语句有错，请改正。

Const n1=9       ‘第1段已排序数据长度为n1

Const n2=6       ‘第2段已排序数据长度为n2

 ‘数组c长度为n1+n2，依次存储第1，2段数据

Dim c(1 To n1+n2)As Integer

Private Sub Command1_Click()

    ‘数组c依次存储两段已按从小到大排序的数据

    ‘并在列表框List1中显示，代码略

     List2．Clear

           A位置 

     For i=n1+1 To n1+n2

         j=i

           B位置  

        Do While j>1 And Flag

              t=c(j)

             c(j)=c(j-1)

             c(j-1)=t

       C位置 

        Else

          Flag=False

        End If

        j=j-1

                ‘②

      Loop

    Next i

    For i=1 To n1+n2

    List2．Addltem c(i)

    Next i

End Sub

  For i=1 To 3

    For j=6 To i+1 Step-1

        If a(i)<a(j) Then

          T=a(i)：a(i)=a(i)：a(i)=t

        End If

    Next j

  Next i

数组元素a(1)到a(6)的值依次为“28，3，15，1，35，7”，执行该程序段，下列说法正确的是 （  ）

在列表框List1中显示排序前数据（存储在数组a中），在文本框Text1中输入初始位置（即下标值），单击“排序”按钮Command1后，在标签Label1中显示指定初始位置的数据在排序过程中的位置变化情况，排序后的数据显示在列表框List2中。程序运行界面如图所示。

实现上述功能的VB程序如下，请在横线处填上合适的代码，改正加框处的代码。

Dim a(1 To 8) As Integer

Dim n  As Integer

Private Sub Form_Load()

   'n = 8，排序前的8个数据存储在数组a中，并在列表框List1中显示

   '代码略

End Sub

Private Sub Command1_Click()

Dim i As Integer, j As Integer, k As Integer

Dim pos As Integer      '变量pos存储指定数据的位置（既下标值）

Dim s As String         '变量s存储pos变化情况

s = Text1.Text

pos = Val(Text1.Text)

For i = 1 To n - 1

      For j =    ⑴            

          If a(j) < a(j - 1) Then

                 ⑵             

              a(j - 1) = a(j)

              a(j) = k

               '如果pos位置的数据参与交换，则更新pos值，记录pos变化情况

              If pos = j Then

                  pos = j - 1

                  s = s + "→" + Str(pos)

                                               '（3）

                  pos = j

                  s = s + "→" + Str(pos)

              End If

          End If

      Next j

Next i

Label1.Caption = "位置变化情况：" + s

For i = 1 To n

      List2.AddItem Str(a(i))

Next i

End Sub

⑴{#blank#}1{#/blank#} ⑵{#blank#}2{#/blank#} ⑶{#blank#}3{#/blank#} 

Dim a(1 To 10) As Integer

Dim s As String, n, i As Integer

s = "54851845236": n = Len(s)

For i = 1 To n - 1

a(i) = Val(Mid(s, i, 2))

Next i

For i = 1 To n - 2

k = i

For j = i + 1 To n - 1

If a(k) < a(j) Then k = j

Next

If k <> i Then

t = a(k): a(k) = a(i): a(i) = t

End If

Next i

Text1.Text = Str(a(1))

该程序段运行后，文本框 Text1 中显示的内容是：（  ）

p = 1: q = 10

Do While p < q

  iMin = p: iMax = p

  For i = p + 1 To q

    If a(i) < a(iMin) Then iMin = i

    If a(i) > a(iMax) Then iMax = i

  Next i

t = a(iMin): a(iMin) = a(p): a(p) = t

  t = a(iMax): a(iMax) = a(q): a(q) = t

  p = p + 1

  q = q - 1

Loop

Dim a(1 To 5) As Integer

Randomize

a(1)=2：a(2)=6：a(3)=9：a(4)=3：a(5)=4

For i=1 To 4

    For j=1 To 5-i

        If a(j)+Int (Rnd*2)< a (j+1) Then

            k=a(j)：a(j)=a(j+1)：a(j+1)=k

        End If

    Next j

Next i

执行该程序段后，a(1)~a(5)的值不可能是(    )