i = 1: j = 10: temp = a(5)

Do While a(j) > temp j = j - 1

Loop

Do While a(i) < temp i = i + 1

Loop

temp = a(i) ：a(i) = a(j)：a(j) = temp

数组元素a(1)到a(10)的值依次为“36 91 36 17 93 99 2 9 97 97”，执行该程序段后，a(5)的值为（  ）

   Dim A(10)，B(5)

   For i = 1 To 10

       A(i) = i

       Next i

   For j = 1 To 5

       B(j) = j * 20

   Next j

   A(5) = B(2)

   Print "A(5)=";A(5)

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