实现某排序算法的部分VB 程序如下:
For i=1 To 6
k=i
For j=i+1 To 7
If a(j)<a(k) Then k=j
Next j
If i<>k Then
t=a(i):a(i)= a(k):a(k)= t
End If
Next i
在排序过程中,经过某一遍排序“加工”后,数组元素a(1)到a(7)的数据依次为“10,41,75,12,63,11,85”｡则下一遍排序“加工”后数组元素a(1)到a(7)的数据依次是(  )

A．10,11,41,75,12,63,85	B．10,11,75,12,63,41,85
C．10,11,12,75,63,41,85	D．10,11,12,41,63,75,85

某算法的流程图如下所示：

若输入k的值为4，则该算法的输出结果为(  )

A．1

B．2

C．3

D．5

编“字符串缩写”程序，实现如下功能:在文本框Text1中输入Ascii字符串，字符串中如果有由Ascii表中相邻字符（升序）组成的子串，则把该子串缩写成由第一个字符、“-”和最后一个字符组成，比如“abcdfpxcba”则缩写成“a-dfpxcba”。程序运行界面如下图所示。

（1）代码“Private Sub Command1_Click()”中的Command1_Click()是________
(单选，填字母：

A．对象名 /

B．事件  /

C．事件处理过程)

（2）实现上述功能的VB程序如下，请在划线处填入合适的代码。
Private Sub Command1_Click()
Dim s As String, result As String， i As Integer, j As Integer, t As Integer
s = Text1．Text ：t = Len(s) ：result = ""
i=1
Do While i <= t
j = i
Do While i < t
If Asc(Mid(s, i + 1, 1)) = Asc(Mid(s, i, 1)) + 1 Then
i = i + 1
Else
Exit Do
End If
Loop
If i > j Then
result =  ①________
Else
result = result + Mid(s, i, 1)
End If
i = i + 1
Loop
Text2．Text = ②________
End Sub
（3）如果输入的字符串是“aBcucwxyzdcb”,输出结果为____________

某Visual Basic程序如下：
Private Sub Command1_Click()
Dim i As Integer, sum As Integer
sum = 0
For i = 10 To 2 Step -2
sum = sum + i
Next i
Text1.Text = Str(sum)
End Sub   
运行程序，单击命令按钮Command1后弹出如图所示的出错信息提示，此时程序正执行的语句是（   ）

A．Sum = 0	B．For i = 10 To 2 Step -2
C．sum = sum + i	D．Text1.Text = Str(sum)

某算法的部分流程图如图所示。执行这部分流程后，变量x，y的值分别是（  ）

A．7，9

B．13，12

C．69，10

D．11，11