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

  Const n=50

  Dim d(0 To n)As Single，name(1 to n)As String

  ‘读人50个学生的身高，依次存入d(1)…d(50)，最高身高小于2，姓名存入

  name(1)…name(50)

  ‘代码略

  Private Sub Command1_Click()

  Dim i As Integer，j As Integer，temp As Single，k As Integer，r As String

  d(0)=2

  For i=1 To 10

        ‘(1)

      For j=i To n

        If d(j)<d(i-1)Then

           If     Then ‘(2)

            k=j

           End If

        End If

      Next j

    If k<>i Then

       temp=d(k)：d(k)=d(i)：d(i)=temp

       r=name(k)：name(k)=name(i)：name(i)=r

     End If

     Next i

     For i=1 To 10    ‘输出被选的l0个人的名字和身高。

       List2．AddItem name(i)&d(i)

     Next i

    End Sub

Dim a(8) As Integer For i = 2 To 8

           a(0) = a(i)

           Do While a(0) < a(j)  

                  j = j - 1

           Loop

       Next i

数组元素 a(1)~a(8)的值为随机生成的整数，为实现升序排序，则上述程序段3个方框处的表达式分别为（  ）

实现上述功能的VB程序如下：

Dim a(1 To 10) As Integer

Private Sub Command1 Click()

Dim i As Integer, j As Integer, x As Integer p = True

i = 1

    Do While i <= 9 And p p= False

    For j = 10 To i + 1 Step -1

        If  Then    '①

            k = a(j): a(j) = a(j - 1): a(j - 1) = k: p = True

        End If

    Next j

    i = i + 1

Loop

For i = 1 To 10

    List2.AddItem Str(a(i)) Next i

End Sub

Private Sub Form_Load()

Dim i As Integer

List1.Clear

Randomize         '初始化随机函数 Rnd

For i = 1 To 10

    a(i) =     '②

List1.AddItem

Str(a(i))

Next i

End Sub

①{#blank#}1{#/blank#} ②{#blank#}2{#/blank#} 

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

Const n=8

Dim a（1 To n）As Integer

Private Sub Commandl_Click（）

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

Dim flag As Boolean

'读取一组正整数，存储在数组a中，代码略

For i= 1 To n-1

        '（1）

    If IsPrime（a（k））Then flag = True Else flag = False

    For j = i + 1 To n

      If IsPrime（a（j）） Then

        If  Then    '（2）

          k=j

          flag = True

        End If

      End If

    Next j

    If k <> i Then

      t=a（k）：a（k）= a（i）：a（i）= t

    End If

    If Not flag Then Exit For     'Exit For表示退出循环

Next i

'依次输出排序后的数据。代码略

End Sub

Function IsPrime（m As Integer）As Boolean

'本函数判断m是不是素数：是素数返回值为True，不是素数返回值为False

'代码略

End Function

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

实现上述功能的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#}