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

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

Const n=10

Dim a(1 To 10)As Integer

Private Sub Command1  Click()

For i=1 To n

               ‘①

    List1．Addltem Str(a(i))

    Next i

End Sub

 Private Sub Command2  Click()

    tmp=1

    For i=1 To n-1

    For j=n To i+1 Step-1

    If  ＞0 Then    ①

    t=a(j)：a(j)=a(j-1)：a(j-1)=t

    End If

    Next j

    ②

    Next i

    For i=1 To 10

    List2．Addltem Str(a(i))

    Next i

 End Sub

Dim a(1 To 7) As Integer, i As Integer, j As Integer

Dim k As Integer, c As Integer

a(1)=4: a(2)=9: a(3)=1: a(4)=5

a(5)=8: a(6)=6: a(7)=2

s=“”

For i=1 To 3

 For j=i+1 To 7

  If a(j) < a(i) Then

   k=a(j): a(j)=a(i): a(i )=k

   c=c+1

  End If

 Next j

 s=Str(a(i))+s

Next i

Text1.Text=Str(c) & “:” & s

该程序段运行后，文本框Text1中显示的内容是（  ）

n = Val(Text1.Text)

For i = 1 to n

 a(i) = i

Next i

For i = 1 to n/2-1

 For j = n to 2*(i+1) step -2

  If      ①    Then t = a(j):a(j)=a(j-2):a(j-2)=t

 Next j

For j = 1 to n- i*2 step 2

  If      ②    Then t = a(j):a(j)=a(j+2):a(j+2)=t

 Next j

Next i

Const n = 6

Dim a(1 To n) As Integer, f(1 To 10) As Boolean

Dim tmp As Integer, i As Integer, j As Integer, t As Integer

‘f数组各元素的初值置为False，代码略

For i = 1 To   ⑴ 

    t = Int(1 + Rnd * 10)

    If Not f(t) Then

        a(i) = t : f(t) = True

        For j =   ⑵ 

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

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

            End If

        Next j

    Else

      ⑶ 

    End If

Next i

上述程序段3个方框处的表达式分别为(   )

医院为提升服务质量，编写程序模拟就诊顺序。现获取某医生早上就诊患者的数据，分别为姓名、预约或挂号时间、就诊时长(单位：分钟)。预约挂号数据(准时到达人员数据)如图a所示，直接挂号数据如图b所示。运行程序，输出前三位就诊顺序名单，如图c所示。