下列VB程序段功能为：根据数组a中各元素的大小关系，计算各元素升序排列的序号，并将序号保行值效组b中。如数组a各元素为20、40、10、30，b(1)～b(4)各元素的值分别为"1、2、3、4"，程序运行后b(1)～b(4)各元素的值分别为"2，4，1，3"。

上述程序段3个方框处的代码分别为

A．(1)b(i)=1 (2)a(j)<a(k)   (3)t=a(k)：a(k)=a(i)：a(i)=t

B．(1)b(i)=1 (2)a(b(j))<a(b(k)) (3)t=a(k)：a(k)=a(i)：a(i)=t

C．(1)b(i)=i (2)a(j)<a(k)   (3)t=b(k)：b(k)=b(i)：b(i)=t

D．(1)b(i)=i (2)a(b(j))<a(b(k)) (3)t=b(k)：b(k)=b(i)：b(i)=t

有如下VB 程序段：
Private Sub Commandl_Click()
Dim d(l To 6) As Integer
Dim t As Integer
d(1)=35:d(2)=18:d(3)=63:d(4)=5:d(5)=85:d(6)=47
For i=1 To 3

For j=i＋1 To 6

If d(j)<d(j-1) Then
t=d(j):d(j)=d(j-1):d(j-1)=t
End If

Next j

Textl.Text=Str(d(i))+Text1.Text
Next i
End Sub .
执行该程序段后，文本框 Textl输出的内容是（   ）

A．47 63 85

B．35 5 18

C．85 63 47

D．18 5 35

小明基于冒泡排序算法编写了一个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

下列 VB 程序段的功能为：对数组 a 中的 n 个元素进行排序，生成左右交替上升的数据系列。如排序前 a 中元素依次为：21，33，56，11，44，60，程序运行后  a 中元素依次为：11，33，56，60，44，21。
For i=1 To    ①     
k=i
For j=i+1 To n-i+1
If a(k)>a(j) Then k=   ②     
Next j
If k<>i Then t=a(k):a(k)=a(i):a(i)=t  For j=    ③     
If a(j)<a(j+1) Then    a(j)=a(j)+a(j+1) : a(j+1)=a(j)-a(j+1):a(j)=a(j)-a(j+1) Next j
Next i
上述程序段 3 个划线处的表达式分别为（   ）

A．①   n-1    ②    j+1    ③   i To n-i+1

B．①   n-1    ②    j+1    ③   i To n-i

C．①   n\2    ②    j    ③   i+1 To n-i

D．①   n\2    ②    j    ③   i+1 To n-i+1

在已排序的数组d数组元素d(1)≥d(2)≥…≥d(n)中查找键值为Key的数，其对分查找的VB程序段如下：
i＝1：j＝n
xb＝0
Do While i＜＝j
m＝Fix((i＋j)/2)
If d(m)＝Key Then
xb＝m
Exit Do
End If
If d(m)＞Key Then
①____
Else
②____
End If
Loop
划线处的语句为(  )

A．①j＝m＋1 ②i＝m＋1	B．①i＝m－1 ②j＝m－1
C．①j＝m－1 ②i＝m＋1	D．①i＝m＋1 ②j＝m－1