请根据算法将下列程序补充完整。

Dim a(1 To 45) As String

Dim b(1 To 45) As Integer

Private Sub FormLoad()

  a(1) = "中国"

  b(1) = 308 ‘45个代表团名称及奖牌数分别放在a(1)到a(45)及b(1)到b(45)中

End Sub

Private Sub Command1Click()

Dim i As Integer,j As Integer

Dim t As Integer,f As Integer

List1.Clear

 For i = 1 To 3

   For j = {#blank#}1{#/blank#}To 2 Step -1

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

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

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

   End If

   Next j

 Next i

For i = 1 To 3

 List1.AddItem "第" + Str(i) + "名" + a(i) + "  奖牌数" + Str(b(i))

Next i

End Sub

Dim a(1 To 5)As Integer, i As Integer, j As Integer key As Integer

a(1)=8：a(2)=13：a(3)=25：a(4)=98：a(5)=56

For i=4 To 5

j=i： Key a(j)

Do While a(j-1)>Key and j>

a（j）=a(j-1)

j=j-1

Loop

a(j)=Key

Next i

执行该程序段后，数组元素a(1)~a(5)的值是（  ）

i = 1

Do While i <= 5

 If i = 0 or a(i -1) <= a(i) Then

  i = i + 1

 Else

  t = a(i): a(i) = a(i -1): a(i -1) = t

  i = i - 1

 End If

Loop

数组元素a(0)到a(5)的值依次为“0，71，22，48，79，27”，经过该程序段“加工”后，数组元素a(4)的值为(  )

For i = 1 To 5

 k = i

 For j = i + 1 To 6

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

 Next j

 t = a(k): a(k) = a(i): a(i) = t

 b((i + 2) Mod 6 + 1) = a(i)

Next i

For i= n To 2 step -1

  For j =

    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

方框中的代码会是以下四句中的某一句：

① 1 To i -1                ② n–1 To i Step -1

③ 1 To n - i                ④ n–1 To n - i+1 Step-1

正确的选项是（    ）