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

Dim a(1 To 45) As String

Dim b(1 To 45) As Integer

Private Sub Form_Load()

  a(1) = "中国"

  b(1) = 308

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

End Sub

Private Sub Command1_Click()

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 flag As Boolean  'flag值为True表示某一遍加工中发生过交换

i = 1：n=6

flag = True

Do While i <= n - 1 And flag = True

flag = False

   For j = n 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 = True

       End If

   Next j

   i = i + 1

Loop

以上代码在整个排序过程中, 数组中的数据比较次数和交换次数分别是（   ）

s = ""

For i = 1 To 3

    For j = 7 To i + 1 Step -1

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

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

        End If

    Next j

    s = s + Str(a(i))

Next i

Text1.Text = s

数组元素a(1)到a(7)的数据依次为“3,9,1,5,8,6,2”，经过该程序段“加工”后，文本框Text1中显示的内容是（   ）

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)处语句依次是（  ）

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的值为(      )