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

Const n = 10

Dim d(1 To n) As Integer

Private Sub Command1_Click()

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

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

  i = 1

  Do While i <= n - 1

    For j = n To i + 1 Step -1

      If d(j) Mod 2 = d(j - 1) Mod 2 Then

        If  Then              '(1)

          t = d(j): d(j) = d(j - 1): d(j - 1) = t

        End If

                                    '(2)

          t = d(j): d(j) = d(j - 1): d(j - 1) = t

      End If

    Next j

    i=i+1

  Loop

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

End Sub

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

待排序数据已存储在数组a中(a(1)~a(n))

For i= 1 To n-2

k= i

For j=    ‘①

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

Next j

If k<>i Then t= a(i)： a(i)= a(k)： a(k)=t

Next i

For i= 1 To n\ 2

j=2*i-1

If a(j)< a(j+ 1) Then t= a()： a()=a(j+ 1)： a(j+1)=t

Next i

For i=  ‘②

t= a(i)：j-i

Do While t> a(j)

a(j+1)=a()：j=j

Loop

   ‘③

Next i

上述程序段中3处方框处的代码分别为（  ）

i=1: j=8: n=1

k=Val(Text1. Text)

Do While i<=j

    m=(i+j)2

    IF k<d(m) Then j=m-1 Else i=m+1

    n=n+1

Loop

数组元素d(1)到d(8)依次为3，9，14，17，25，29，32，35，在文本框 Text1输人“14”。执行程序后，下列说法不正确的是（  ）

For i=4 To 3 Step-1

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

        tmp=a(i)

        For j=i-1 To 1 Step-1

            If tmp>a(j) Then Exit For

            a(j+1)=a(i)

        Next j

        a(j+1)=tmp

    End If

Next i

数组元素a(1)到(6)的值依次为“19，8，96，92，85，88”，经过该程序段“加工”后，数组元素a(1)到a(6)的值依次为（   ）

Dim flag(0 To 4) As Boolean, p As Integer

For i=1 To 4

    flag(i)=False

Next i

i=1: flag(0)=True

Do While i <= 4 And flag(i-1)

    For j=5 To i+1 Step-1

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

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

            flag(i)=True

        End If

    Next j

    i=i+1

Loop

数组元素a(1)到a(5)值依次为“16，4，24，33，77”，程序运行后，flag数组中为True个数及i的值分别是（   ）

max=0

For i=1 to 7

    k=i

    For j=i+1 to 8

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

    Next j

    If k<>i then

        t=a(k)：a(k)=a(i)：a(i)=t

        If max<k-i then max=k-i

    End If

Next i

数组元素a(1)到a(8)的值依次为：19，9，48，32，5，17，23，8，执行该程序段后max的值为(      )