目前部分手机的短信具有“提取详情”的功能，即针对一条短信，可以提取出短信中一些关 键的信息。现编写 V

A．程序实现如下功能：在文本框 Text1 中输入短信内容，点击“提取”按钮， 将短信中的数字以“，”间隔输出到文本框 Text2 中。程序运行界面如图1所示。

图1    图2
（1）在设计程序界面时，图2中控件________（填数字）未在程序窗体中使用。
（2）请根据题意将下列程序补充完整
Private Sub Command1_Click()
Dim msg As String, c As String, tmp As String, s As String, flag As Boolean msg = Text1.Text
msg = msg + "/" '标记字符串结束符
tmp = "" s = ""
flag = True
For i = 1 To Len(msg)
c = Mid(msg, i, 1)
If ①_____ Then flag = False
tmp = tmp + c
ElseIf flag = False Then s = s + tmp + ,
tmp = ""

 ②_____ 

End If
Next i
Text2.Text = s
End Sub
（3）若程序未加“msg = msg + "/"”语句，则示例图1中提取后的数字信息为 ________。

（加试题）有如下 VB程序段： For i = 1 To 2
k = i
For j = 6   To    i + 1   Step   -1
If a(j) > a(k) Then    k = j
Next    j
If k <> i then
t = a(i) : a(i) = a(k) : a(k) = t
End If
Next    i
数组元素 a(1)到 a(6)的值依次为“71,46,31,58,29,78”，经过该程序段“加工”后，数组元素a(1)到 a(6)的值依次为

A．29,31,46,58,71,78

B．78,71,58,46,31,29

C．46,29,31,58,71,78

D．78,71,31,58,29,46

某算法的流程图如图所示，执行该算法后，输出s的值是(　　)

A．6

B．12

C．18

D．36

某算法的部分流程图如下图所示，执行这部分流程后，输出c的值是（）

A．50

B．34

C．55

D．60