小明基于冒泡排序算法编写了一个VB程序，功能如下：单击“生成”按钮command1，生成n个10，99的随机整数赋值给a数组，并在列表框ists1中显示。单击“排序”按钮command2，对这组数据进行错位排序(即从前往后依次是最小的，最大的，第二小的，第二大的----依次类推)。在列表list2中依次输出数据排序的结果，程序运行界面如图所示：

实现上述功能的VB程序如下：
(1)程序测试运行后生成如下文件：(

A．paixu.frm

B．paixu.vbp

C．paixu.vbw

D．paixu.exe)，其中属于windows系统可执行文件是：(单选，填字母：_______)

(2)划线①处应填：__________
(3)加框①、②处代码有错，请改正。
Const n=10
Dim a(1 To 10) As Integer
Private Sub Command1_.Click()
For i=1 To n
    ①
List1.Additem Str(a(i))
Next i
End Sub
Private Sub Command2_Click()
tmp= 1
For i=1To n-1
For j=n To i+1 Step-1
If  tmp*(a(j)-a(j-1))>0 Then ①______________________
t=a(j)；a(j)=a(j-1)：a(j-1)=t 
End If
Next j 
tmp=-1 ②______________________
Next i
For i=1 To 10
List2.Addltem Str(a(i))
Next i
End Sub

（加试题）一个无序整数数组，对它排序，使其前半部分都为奇数有序，后半部分为偶数有序。
基本想法：利用插入排序算法，对奇偶子序列分别插入排序。用两个变量把整个数组分割为三个部分，第一个部分为奇数有序子序列，第二部分为偶数有序子序列，第三部分为未排序子序列。使用两个变量进行分割，mid 指向偶数有序子序列的一个元素，end1 指向未排序子序列（等待一个个插入前面的奇数有序子序列或偶数有序子序列）。

Const n = 7
Dim a(-1 To n) As Integer
Private Sub Form_Load()
'随机生成7个不重复的正整数到a()数组中。代码略
End Sub
Private Sub Command1_Click()
Dim mid As Integer, end1 As Integer
Dim i As Integer, j As Integer, num As Integer
mid = 0: end1 = 0
Do While end1 <= n
num = a(mid)   ‘①
j = end1
If num Mod 2 = 1 Then
Do While j - 1 >= mid and a(j - 1) < num ‘②
a(j) = a(j - 1)
j = j - 1
Loop
a(j) = num
mid = mid + 1
Else
Do While a(j - 1) > num And j - 1 >= mid
a(j) = a(j - 1)
j = j - 1
Loop
a(j) = num
End If
end1 = end1 + 1
Loop
For i = 0 To n
List1.AddItem Str(a(i))
Next i
End Sub
划线处的代码有误，请改正：
①___________________________
②___________________________

有如下VB程序段：
a(1)=91:a(2)=5:a(3)=65:a(4)=8;a(5)=78:a(6)=13:a(7)=29:a(8)=18
For i=2 To 5

tmp= a(i)

L=1

R=i-1

Do While l<= R

M= Fix(L+ R)/2)
If tmp <=a(M) Then R= M-1 E lse L= M+1

Loop

j=i-1

Do While j＞=L

a(j+1)=a(j)
j=j-1

Loop

a (L)= tmp

Next i
执行上述代码后，数组a中的元素分别是（   ）

A．5 8 13 18 29 65 78 91	B．5 8 65 78 91 13 29 18
C．91 78 65 29 18 13 8 5	D．91 78 65 8 5 13 29 18

在Excel中进行数据排序，先按主关键字进行排序，主关键字相同的记录再按次关键字进行排序。编写一个VB程序，功能如下：在文本框Text1中随机产生100个两位数的正整数作为主关键字，在文本框Text2中随机产生100个两位数的正整数作为次关键字，单击“排序”按钮Command1，在列表框List1中显示排序后的结果（主、次关键字均为降序）。程序运行界面如图所示。

（1）观察代码，该排序过程中，交换次数最多能达到______________次。
（2）实现上述功能的VB程序如下，请在划线处填入正确语句。
Dim z(1 To 100) As Integer
Dim c(1 To 100) As Integer
‘文本框获取主、次数组数据代码略
Private Sub Command1_Click()

Dim i As Integer, j As Integer

i = 1

Do While i <= 99

j = 100

Do While  ①_______

If z(j) > z(j - 1) Or ②_____________Then

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

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

End If

j = j - 1

Loop

③________

Loop

List1.AddItem " " + "主" + " " + "次"

For i = 1 To 100

List1.AddItem Str(z(i)) + Str(c(i))

Next i

End Sub

有如下程序段：
i=1
Do while i<=2
j=1
Do while j<=7-i
If a(j) > a(j+1) Then
t = a(j): a(j) = a(j+1): a(j+1) = t
End If
j=j+1
Loop
i=i+1
Loop
数组元素a(1)到a(7)的值依次为“44，24，33，67，77，58，12”，经过该程序段“加工”后，数组元素a(1)到a(7)的值依次为 （    ）

A．24，33，44，58，12，67，77	B．12，24，33，67，77，58，44
C．12，24，44，33，58，67，77	D．44，24，33，58，12，67，77