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

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

i = 1

 Do While i <= 6

    t = Int(Rnd * 10) + 1

    If t Mod 2 = i Mod 2 Then a(i) = t : i = i + 1

Loop

For i = 1 To 2

   k = 1

   For j = 1 To 6 - i * 2

     If a(j) * k > a(j + 2) * k Then

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

     End If

     k = -k

   Next j

Next i

执行该程序段后，数组元素a(1)到a(6)的值可能是（  ）

a(1) = "231": a(2) = "34": a(3) = "23": a(4) = "234": a(5) = "123"

For i = 1 To 4

     For j = 1 To 5 - i

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

     Next j Next i

执行该程序段后，数组元素 a(1)到 a(5)的数据依次为（  ）

程序说明：

⑴其中n由文本框Text1中数据得到，x由文本框Text2中数据得到，插入位置显示在文本框Text3中。

⑵其中n个有序数据将通过随机函数Rnd产生，并对n个数进行降序排序后存入数组a中，同时显示在列表框List1中。

为了实现这一目标，完善下面的VB程序，在横线处填入合适的语句或表达式，完成程序设计。

Private Sub Command1_Click()

 Dim a(1 To 50)As Integer

 Dim n As Integer, i As Integer

 Dim x As Integer, temp As Integer

 Randomize

 List1.Clear

 n=Val(Text1.Text)

 x=Val(Text2.Text)

‘随机产生n个数,并存放至a数组中

 For i=1 To n

  a(i)=Rnd*200+1

Next i

‘将数组a中的数按降序排序

For i=2 To n

  For j=n To i Step-1

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

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

Next j

Next i

‘将排序后的数组元素显示在列表框List1中

For i=1 To n

 List1.AddItem Str(a(i))

Next i

‘插入操作

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

  i=n+1

Else

  ③{#blank#}3{#/blank#}

  Do While x<a(i)

   i=i+1

  Loop

End if

‘在文本框Text3中显示插入位置

Text3 Text=Str(i)

End Sub

c = 1: s = 10

Do While c <= s

    For i = s To c + 1 Step -1
        If      Then

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

    Next i
    For i=

        If     Then

            t = a(i + 1): a(i + 1) = a(i): a(i) = t
        End If

    Next i

    c = c + 1
    s = s - 1

Loop

上述程序段三个方框处的语句分别为（  ）

当窗体Form1加载时，自动产生a、b数组的数据，并分别显示在列表框List1与List2中，单击合并按钮Command1后，在c数组中保存按规则合并后的a、b数组的数据，并显示在列表框List3中。程序截图如下所示：

实现该功能的VB程序如下：

Const m = 5

Const n = 6

Dim a(1 To m) As Integer

Dim b(1 To n) As Integer

Dim c(1 To m + n) As Integer

‘窗体加载时，生成数组a、b中的数据，并按要求排序后显示在列表框中，代码略

Private Sub Command1_Click()

Dim pa As Integer, pb As Integer, pc As Integer, s As Integer, flag As Boolean

pa = m: pb = 1: pc = 1

flag = True

Do While      ①     

  If a(pa) < b(pb) Then

    s = a(pa)

    pa = pa - 1

  Else

    s = b(pb)

    pb = pb + 1

  End If

  c(pc) = s

  If flag Then

    pc = m + n - pc + 1

  Else

    pc =

  End If

       ②     

Loop

‘处理a、b数组中剩余数据，并在列表框List3中输出数组c，代码略

End Sub