某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)

某算法的部分流程图如图所示，执行这部分流程后，变量s的值是

A．2

B．10

C．58

D．442

编“字符串缩写”程序，实现如下功能:在文本框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 程序段：
s = 0
For k = To 5 s = s + k
Next k
该程序段运行后，循环体 s = s + k 被执行 10 次，则循环变量 k 的初值是（   ）

A．14

B．-5

C．1

D．-4

有如下程序段：
tail = 6：i = 1：r = Val(Text1.Text)
Do While i < r
For j = tail 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
i = i + 1
For j = i To tail - 1
If a(j) < a(j + 1) Then
t = a(j): a(j) = a(j + 1): a(j + 1) = t
End If
Next j
tail = tail - 1
Loop
数组元素a(1)到a(6)的值依次为“73、56、28、61、44、92”，若在文本框Text1中输入“2”，则经过该程序段“加工”后，数组元素a(1)到a(6)的值依次为

A．73,61,56,92,44,28	B．92,73,56,61,44,28
C．92,73,61,56,28,44	D．92,73,61,56,44,28