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

  Dim a(1 To 8) As Integer

  a(1) = 12: a(2) = 44: a(3) = 65: a(4) = 26

a(5) = 48: a(6) = 91: a(7) = 98: a(8) = 13

  n = 8: t = 0

  For i = 1 To n - 1

    k = i

    For j = i + 1 To n

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

    Next j

    If k <> i Then

      temp = a(i): a(i) = a(k): a(k) = temp: t = t + 1

    End If

  Next i

  Text1.Text = Str(t)

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

i =1：j=2

Do While j <= 10

    If j < 10 Then

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

    End If

    If a (i) > a(j)  Then

        temp =a (i): a(i) = a(j): a(j) = temp

        i=j

        j=2*i

    Else

        Exit Do

    End If

Loop

Text1.Text =a (2)

已知数组元素a(1)到a(10)的原始数据为“20, 3, 10, 17,18, 15, 16, 19, 21, 30”，执行该代码后,文本框Text1中显示内容是：（ ）

实现以上功能的VB程序如下,在横处填入合适的代码。

Dim a(1 To 20) As Integer     ‘存储区间的左端点数值

Dim b(1 To 20) As Integer     ‘存储区间的右端点数值

Private Sub Form_Load()

‘将区间左端点存入数组a,区间右端点存入数组b,并在列表框List1显示,代码略

End Sub

Private Sub Command1_Click()

Dim i As Integer, j As Integer

Dim curL As Integer, curR As Integer

For i=1 To n-1

 For j=1 To n-i

  If{#blank#}1{#/blank#}Then

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

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

  End If

 Next j

Next i

curL=a(1): curR=b(1)

For i=2 To n

 If{#blank#}2{#/blank#}Then

  If curR < b(i) Then{#blank#}3{#/blank#}

 Else

  List2.AddItem“["+Str(curL)+Str(curR)+"]”

  curL=a(i): curR=b(i)

 End If

Next i

List2. AddItem “[”+Str(curL)+Str(curR)+“]”

End Sub

For i=1To n＼2   

    k=i

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

    Next j

    If i<>k Then

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

    End If

    If  Then

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

      End If

    Next j

Next i

上述程序中方框处可选语句或表达式有：

①For j=i+1 To n-i+ 1    ②For j=i+1 To n-i

③a(j)<a(j+1) ④a(j)>a(j+1)

则(1)、(2)、(3)处语句依次是（  ）