实现上述功能的VB代码如下：

请在划线处填入合适代码。

Private Sub Command1Click()

    Dim a As Integer, b As Integer

    Dim n As Integer, t As Integer

    Dim m(1 To 100) As Integer

    a = Val(Text1.Text)

    b = Val(Text2.Text)

    n = Val(Text3.Text)

    If  a > b Then t = a: a = b: b = t

    Randomize

         ①        

    For i = 2 To n

    m(i) = Int(Rnd * (b - a + 1)) + a

    If m(i) > m(i - 1) Then

           ②     

    For j = i - 1 To 1 Step -1

    If temp < m(j) Then Exit For

    m(j + 1) = m(j)

    Next j

          ③     

    End If

    Next i

    For i = 1 To n

    List1.AddItem Str(m(i))

    Next i

End Sub

程序①处的代码是{#blank#}1{#/blank#}

程序②处的代码是{#blank#}2{#/blank#}

程序③处的代码是{#blank#}3{#/blank#}

For i=1 To 6

 k=i

 For j=i+1 To 7

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

 Next j

 If i<>k Then

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

 End If

Next i

在排序过程中,经过某一遍排序“加工”后，数组元素a(1)到a(7)的数据依次为“10,41,75,12,63,11,85”｡则下一遍排序“加工”后数组元素a(1)到a(7)的数据依次是（  ）

For i = 1 To 2

k = i

  For j = 6 To i + 1 Step -1

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

  Next j

  If k <> i then

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

  End If

Next i

数组元素a(1)到a(6)的值依次为“71,46,31,58,29,78”，经过该程序段“加工”后，数组元素a(1)到a(6)的值依次为（  ）

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

Dim a(1 to 10) As Integer        ‘存储原始数据

Dim b(1 to 10)As Integer         ‘存放名次

Private Sub Command1_Click()

    Dim i As Integer, j As Integer, n As Integer

    For i=1 To 10

       n=0

       For j=1 To 10

         If    

         Then n=n+1      ‘①

                    ‘②

      Next j

Next i

For i= 1 to 10

    List2.Additem a(i)&”   ”&b(i)

Next i

End Sub

Private  Sub Form_Load()

    ‘随机产生10个[60,100]之间的随机数，并显示在List1中，代码略。

End Sub

①处代码应改为：{#blank#}1{#/blank#}

②处代码应改为：{#blank#}2{#/blank#}

Const n = 100

Dim a(n) As Integer

Private Sub Form_Load()

′产生n个2位正整数，并显示在文本框Text1中，代码略

End Sub

Private Sub Command1_Click( )

    Dim i As Integer, j As Integer, left As Integer

    Dim right As Integer, m As Integer, t As Integer

    i = n-1

    Do While i > = 1

        ________

        right = n

        t = a(i)

        Do While left < = right

            m = Int((left + right)/2)

            If a(m) = t Then right = m: Exit Do

            If a(m) < t Then

                left = m + 1

            Else

                right = m-1

            End If

        Loop

        For j = i To right-1

            a(j) = a(j + 1)

        Next j

        ________________

        i = i-1

        s = “”

        For j = 1 To n

            s = s + Str(a(j))

        Next j

        List1.AddItem s

    Loop

End Sub