为此，编写了一个 VB 程序，功能如下：运行程序，窗体加载时随机产生 10 个随机整数，并在列表框 List1 中依次显示排序前数据，单击“排序”按钮 Command1，在列表框 List2 中

显示经过上述排序算法后的数据，运行结果如图 b 所示。实现上述功能的 VB 代码如下，但加框处代码有错，请改正。

Const n = 10

Dim a(1 To n) As Integer        '生成 n 个随机数，存储在 a 数组，代码略

Private Sub Command1_Click()

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

For i = 2 To n

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

Do  While  t < a(j)

 a(j + 1) = a(j) j = j – 1

If     Then Exit Do  ①

Loop

       ②

Next i

For i = 1 To n

 List2.AddItem Str(a(i))

Next i

End Sub

①{#blank#}1{#/blank#} ②{#blank#}2{#/blank#}

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         

i = 1

flag = True

Do While             '改错

     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 = "排序过程的加工遍数为" +              '填空

For i = 1 To n

   List2.AddItem Str(a(i))

Next i

End Sub

For i=1 To 2

  k=i

 For j=i+1 To 5

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

 Next j

 If k <> i Then t=d(k): d(k)=d(i) :d(i)=t

Next i

经过该程序段“加工”后，数组元素d(1)到d(5)的值依次为“44, 35, 30, 11,7”，则数组元素d(1)到d(5)的原始数据依次为（  ）

Private Sub Command1_ Click ( )

  Dim a(1 To 5) As Integer, i As Integer, 3 As Integer, c As Integer

  a(1) = 22: a(2) = 44: a(3) = 11: a(4) =33: a(5) = 55: c = 0

  For i = 1 To 4

m = i

For j = i + 1 To 5

  If a(i) > a(m) Then m = j

    Next j

    If m <> i Then

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

      c=c+1

    End If

  Next i

  Label1.Caption= Str (c)

End sub

该程序运行后，标签Label1中显示的内容是（  ）

i = n

Do While i >=2

k = i

For j =            To 1 Step -1

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

Next j

If i <> k Then

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

End If

Loop

则下列说法正确的是(  )