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

Const n=10

Dim a(1 To n) As Integer

Private Sub Command1_Click()

Dim i As Integer,j As Integer

Dim temp As Integer,flag As Boolean

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

i=1:j=n

temp=a(j):flag=True

Do While i<j

If flag Then

If a(i) Mod 2=0 Then

   a(j)=a(i)

   j=j-1

   flag=Not flag

Else

    '{#blank#}1{#/blank#}

End If

Else

If a(j) Mod 2=1 Then

   a(i)=a(j)

   flag=Not flag

Else

   j=j-1

End If

End If

Loop

 ' {#blank#}2{#/blank#}

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

End Sub

a(l) = "Java": a(2) = 〃VB": a(3) = "Swift"

a⑷="Pascal": a(5) = "Python": a(6) = "Delphi

For i = 1 To 3

  For j = 1 To 6 - i

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

      t = a(j): a(j) = a(j + 1): a(j + 1) = t

    End If

  Next j

Next i

执行该程序段后，数组a(1)到a(6)的数据依次是（  ）

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中显示的是（  ）

a(1)=6:a(2)=8:a(3)=7:a(4)=3:a(5)=1:a(6)=2:a(7)=5:a(8)=4

i = 1: j = 8

key = a(1)

Do While i < j

 Do While i < j And a(j) >= key

  j = j - 1

 Loop

 a(i) = a(j)

 Do While i < j And a(i) <= key

  i = i + 1

 Loop

 a(j) = a(i)

Loop

a(i) = key

For i = 1 To 8

 Label1.Caption=Label1.Caption++Str(a(i))

Next i

执行该程序段，标签Label1上显示的内容是(  )

For i = 2 To 4

j = i: flag = False

Do While j >= 2 And Not flag If a(j) < a(j - 1) Then

t = a(j): a(j) = a(j - 1): a(j - 1) = t flag = True

End If j = j - 1

Loop Next i

数组元素a(1)到a(7)的初值依次为“8,2,7,10,6,9,5,3”，则程序运行后，元素a(1)到a(7)的值依次为（  ）