采用冒泡排序对一组数据进行排序，第一遍排序后的结果为2,19,4,55,6,7,11,13,32，那么该数组的原始顺序不可能是（）

A．19，4，55，6，7，11，13，32，2

B．2，19，4，55，13，11，32，6，7

C．19，4，55，2，6，7，11，13，32

D．19，4，55，6，7，11，2，13，32

已知数组a(1)到a(6)的原始数据为“118”，“36”，“98”，“15”，“88”，“2”，对该数组进行排序操作，某同学编写了以下VB程序：
For i=1 To 3
For j=6 To i+1 Step-1
If a(j)<a(j-1) Then
t=a(j):a(j)=a(j-1):a(j-1)=t
End if
Next j
Next i
则程序运行之后，数组a(1)到a(6)的值依次为（   ）

A．“118”，“15”，“2”，“36”，“88”，“98”

B．“118”，“15”，“36”，“88”，“98”，“2”

C．“2”，“15”，“36”，“118”，“88”，“98”

D．“2”，“15”，“36”，“88”，“98”，“118”

（加试题）小明想用VB编程制作一个名次计算器，首先将同学的成绩录入到计算机中，同时存放在数组a中，显示在左边列表框中。点击“排序”按钮后，程序会将成绩从高到低依次排序显示在右边的列表框中。运行界面如图所示，请在两个划线处填入代码。

Dim a(1 To 100) As Single
Dim shu As Integer
Private Sub Command1_Click()
Dim i, j, k As Integer
Dim t As Single
For i =" 1" To shu - 1
k = i
For j =" i" + 1 To shu
If___________Then
t =" a(j):" a(j) =" a(k):" a(k) = t
End If
Next j
Next i
For i =" 1" To shu
List2.AddItem "第" & Str(i) & "名：" & Str(a(i))
Next i
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim cj As Single
If KeyAscii =" 13" Then
cj = Val(Text1.Text)
If cj > 0 Then
________
List1.AddItem Str(shu) & "：" & Str(cj)
a(shu) = cj
End If
Text1.Text = ""
End If
End Sub

（加试题）小王要对字符串“welcome”进行重新排列，程序界面如图所示，则该程序执行后文本框 Text2 中显示的结果为（　　）

Private Sub Command2_Click()
　Dim a(1 To 7) As String
　Dim i, j, t2, m,cd As Integer
Dim s, t, p As String
　s = Text1.text
　cd=Len(s)
　For m = 1 To cd
　　a(m) = Mid(s, m, 1)
　Next m
　For i = 1 To 2
　　For j = cd To i + 1 Step -1
　　　If a(j) < a(j - 1) Then t = a(j): a(j) = a(j - 1): a(j - 1) = t
　　Next j
　Next i
For t2 = 1 To cd
　　p = p + a(t2)
　Next t2
　Text2.Text = p
End Sub

A．welcome

B．ceelmow

C．cewelmo

D．womleec

某协会进行钓鱼比赛，最后有十人进入决赛，录入员编制了如下Visual Basic程序，功能是根据成绩进行排序，程序中数组  a保存所有参赛者的成绩，数组b保存此成绩对应的姓名，第i位参赛者的成绩保存在a(i)中，姓名保存在b(i)中。
程序界面如图所示，左边列表框List1中显示原始数据(成绩和相应的姓名)，单击“排序”按钮(Command1)，排序后的结果按成绩从高到低显示在列表框List2中。

解决此问题的算法流程图如图所示，排序部分的程序段如下：
Dim a (1 To 10) As Single
Dim b (1 To 10) As String
Private Sub Command1_Click()
Dim i As Integer，j As Integer，k As Integer，x As Single，y As String
For i＝1 To 9
k＝i
For j＝i＋1 To 10
If ①________ Then k＝j
Next j
If k＜＞i Then
x＝a(i)：a(i)＝a(k)：②________
y＝b(i)：b(i)＝b(k)：b(k)＝y
End If
Next i
For i＝i To 10
List2.AddItem Str(a(i))＋“    ”＋b(i)
Next i
End Sub
Private Sub Form_Load()
’此过程用于对数组a和数组b进行初始赋值，代码略
End Sub

(1)解决此问题的算法是________。(选填：冒泡排序或选择排序)
在程序①和②画线处，填入适当的语句或表达式，把程序补充完整：
(2)程序中①画线处应填入________。
程序中②画线处应填入________。