以下程序段运行时出现如图所示的错误提示:
 For i=1 To 100
If Rnd>0.5 Then
n=n+1
Else
m=m+1
Next i
分析该程序段,该代码中缺少了(  )

A．For

B．End If

C．Next

D．If

某VB程序段如下：
Dim a(1 To 5) As Integer, i As Integer
a(1) = 1: a(2) = 1
For i = 3 To 5
a(i) = a(i - 1) + a(i - 2)
Next i
Text1.Text = Str(a(i - 1))
该程序段运行后，文本框Text1中显示的内容是

A．2

B．3

C．5

D．8

目前部分手机的短信具有“提取详情”的功能，即针对一条短信，可以提取出短信中一些关 键的信息。现编写 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中提取后的数字信息为 ________。

编“字符串缩写”程序，实现如下功能:在文本框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”,输出结果为____________

（加试题）有如下 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