min = a(1)              '变量min用于存储最小值

For i = 2 To 100

Next i

则方框中最合适的语句是（   ）

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

Dim a(1 To 8) As Integer

Dim n As Integer

Private Sub Form_Load()

'n=8，排序前数据存储在数组a中，并在列表框Listl中显示

'代码略

End Sub

Private Sub Command1_Click()

Dim flag As Boolean          'flag值为True表示一遍加工中发生过交换

i = 1

flag = True

Do While                           '（1）  

   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

Label3.Caption = "排序过程的加工遍数为+          "    '（2）

For i = 1 To n

   List2.AddItem Str(a(i))

Next i

End Sub

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

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

Const n=10

Dim a(1 To n)As Integer

Private Sub Form_Load()

‘获取排序前数据，并依次存储在数组a中，并在文本框Text1中显示。代码略

End Sub

Private Sub Command1_Click()

  Dim i As Integer，j As Integer，t As Integer

  Dim top As Integer

  top=1

  For i=1 To n-1

    For j= To n-1              ‘⑴{#blank#}1{#/blank#}

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

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

     ElseIf a(j)=a(j+1)Then     ‘相邻两个数据相等，由前面数据对进行覆盖处理

                        ‘⑵{#blank#}2{#/blank#}

       top=top+1

      End If

     Next j

    Next i

    Text2．Text=“ ”

    For i=top To n

      Text2．Text=Text2．Text+Str(a(i))

    Next i

  End Sub

首先将5取出，得到序列5；

第二步将2取出，插入序列得到2，5；

第三步将9取出，插入后得到2，5，9；

第四步将5取出，插入后得到2，5，5，9；

第五步将3取出，插入后得到2，3，5，5，9，排序完成。

小吴对这种插入排序进行了一些改进，将无序数列存入a数组中，将排序后的数据存入b数组中，同时保证b数组不存在重复的数字。对于重复出现的数字，用cnt数组记录重复个数。例如无序数列8、6、7、4、4、9、1、9、9、8，a(1)～a(10)存储原数据，b(1)～b(6)存储排序后的不重复数据，cnt(1)～cnt(6)存储每个数字重复的个数，如图a所示。

图a

程序运行后，自动随机生成原数组并显示在列表框List1中，点击按钮“开始”后，生成升序排序数组并显示在列表框List2中，程序运行界面如图b所示。

图b

请回答下列问题。