min = a(1)              '变量min用于存储最小值

For i = 2 To 100

Next i

则方框中最合适的语句是（   ）

  Dim a(1 T0 5)As Integer

  Dim c As Integer

  a(1)=44：a(2)=36：a(3)=58：a(4)=65：a(5)=12

  b=0：c=0

  For i=1 To 4

      k=i

    For j=i+1 To 5

        If a(j)<a(k) Then

          k=j

          b=b+1

         End If

      Next j

      If k<>I Then

      t=a(i)：a(i)=a(k)：a(k)=t

      c=c+1

    End If

  Next i

  Text1．Text=Str(b)+Str(c)

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

num = 0

  For i = 1 To 3

    For j = 8 To i + 1 Step -1

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

         temp = a(j): a(j) = a(i): a(i) = temp

num = num +1

      End If

    Next j

  Next i

数组元素a(1)到a(8)的值依次为“25,44,16,34,57,25,34,60”，执行该程序段，变量num的值是（  ）

⑴在每遍冒泡过程中，若最后一次交换的是last与last-1位置，则last位置之前的相邻数据均已有序。进行下一遍冒泡时，无序区域设置[last， n]，这样可使无序区域缩小。

⑵若在某一遍排序中没有数据交换，说明待排序数据都已经有序，冒泡排序过程可在此遍排序后结束。因此可以引入一个变量flag，记录在每遍排序过程中是否发生了交换。

小王设计了如下VB程序，功能如下:按Cominandl“生成数据”后，生成一组随机的两位整数存入数组a，并输出在列表框List1中。单击Command2“排序”后，a中的数据进行降序排序，排序后的数据显示在列表框List2中，排序过程中实际的冒泡遍数显示在Label2上。程序运行界面如下所示。

实现上述功能的VB程序如下，回答下列问题:

Dim n As Integer

Dim a(1 To 100) As Integer

Dim b(1 To 100) As Integer

Private Sub Form Load()

‘读取若干数据依次存储到数组a中，并将数据元素的总个数存储到变量n中。

‘将每段数据的元素个数及排序的次序依次存储到数组b中；

‘b(1)、b(2)分别存储第1段数据的元素个数、排序的次序，

‘b(3)、b(4)分别存储第2段数据的元素个数、排序的次序，.....

“代码略。

End Sub

Private Sub Command1_Click())

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

    Dim pb As Integer, endpos As Integer

    pb=1: endpos =b(1)

    For i=1 To n-1

        If i=endpos Then

            pb=pb+2:i=endpos+1

               ①  

        End If

        k=i

        For j =i+1 To endpos

            If  Then k=j     ‘⑵

        Next j

        If k<>i Then

                ②  

        End If

    Next i

    Text3.Text =""     ‘⑷

    For i=1 To n

        Text3.Text=Text3.Text + Str(a(i))

    Next i

End Sub