实现上述功能的VB代码如下，但划线处代码有错，请改正。

Const n  As Integer = 10

Dim a(1 To n) As Integer

Private Sub Form_Load()

    Dim i As Integer

    Randomize

    For i = 1 To n

       a(i) = Int(Rnd * 100)

       List1.AddItem Str(a(i))

    Next

End Sub

Private Sub Command1_Click()

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

    For i = 1 To n - 1

        k = 0

        For j = n To i + 1 Step -1

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

               tmp = a(j): a(j - 1) = a(j): a(j) = tmp 

               k = k + 1

            End If

        Next j

        If   k > 0   Then i = n

    Next i

    For i = 1 To n

        List2.AddItem Str(a(i))

    Next i

    End Sub

End Sub

For i = 1 To 2

For j = 5 To i + 1 Step -1

If a(j) > a(i) Then

t = a(j): a(j) = a(i): a(i) = t

End If

Next j

Next i

数组元素a(1)到a(5)的值依次为“33，24，,4,16,77”，经过该程序段“加工”后，数组元素a(1)到a(5)的值依次为（   ）

For i=1 To 6

 j=7

 Do While j > i

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

   a(j)=a(j)+a(j-1)

   a(j-1)=a(j)-a(j–1)

   a(j)=a(j)-a(j-1)

  End If

  j=j-1

 Loop

Next i

For i=3 To 6

 s=s+a(i)

Next i

Label1. Caption=Str(s)

已知数组元素a(1)到a(7)的值依次为“8, 2, 3, 7, 10, 6, 5”，则执行该程序段后，标签Label1中显示的是（  ）

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

Dim a（1 To 8）As Integer

Dim n As Integer

Private Sub Form_Load（）

    a（1）= 30：a（2）= 47：a（3）= 30：a（4）= 72

    a（5）= 70：a（6）= 23：a（7）= 99：a（8）= 24

    n = 8

    For i = 1 To 8

      List 1.Addltem a（i）

    Next i

End Sub

Private Sub Command1_Click（）

    Dim i As Integer， j As Integer， k As Integer

    Dim pos As Integer

    Dim s As String

    s = Text1.Text

    pos = Val（Text1.Text）

    For i = 1 To n- 1

      For j = n To i+1 Step-1

        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）

              ‘⑵

            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#} 

例如，读取的数据为2、3、15、25、10、14、1、5、30、60、15、25，过程是：

⑴设置区间信息为[2，3]，[15，25]，[10，14]，[1，5]，[30，60]，[15，25]；

⑵按区间左端点升序排序，得到J区间信息为[1，5]，[2，3]，[10，14]，[15，25]，[15，25]，[30，60]，[15，25]；

⑶合并区间，得到[1，5]，[10，25]，[30，60]。说明：区间[1，5]和[2，3]合并为[1，5]，区间[10，14]和[15，25]合并为[10，25]，区间[10，25]和[15，25]合并为[10，25]，因此合并后的结果为：[1，5]，[10，25]，[30，60]三个区间。

程序功能如下：单击“读数据库”按钮Command1，程序从数据库读取数据，输出在文本框Text1中；单击“开始处理”按钮Command2，程序进行区间排序，并进行区间合并操作，操作后的结果输出在文本框Text2中。程序运行结果如图所示。

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