如下VB 程序代码:
For i=3 to 15 step x
Print “∗”
Next i
下列说法中正确的是(  )

A．若x 的值为3,则显示5 个∗	B．若x 的值为5,则显示4 个∗
C．若x 的值为0,则显示0 个∗	D．若x 的值为-2,则显示1 个∗

对称字符串的特征是从左到右读和从右到左读是完全一样的,如“abba”是对称的,“abcba”也是对称的,判断字符串是否对称的VB程序段如下:
n=Len(s) ’s 是待判断的字符串
k=0:j=n
For i=1 To n/ 2

Next i
If k=0 Then Labell.Caption=“对称”Else Labell.Caption=“不对称”
方框中的代码由以下三部分组成:
①   j=j-1   ②If cl <> c2 Then k=k+1   ③cl=Mid(s,i,l):c2=mid(s,j,l)
代码顺序正确的选项是(  )

A．①③②

B．②③①

C．③②①

D．②①③

(加试题) 有程序段
n = 0: i = 1
Do While i <= 4
y = False
For j = 5 To i + 1 Step -1
If a(j) > a(i) Then
y = True
n = n + 1
t = a(j): a(j) = a(i): a(i) = t
End If
Next i
If y = False Then Exit Do
i = i + 1
Loop
数组元素a(1)到a(5)的值依次为“43，18，5，26，51”，经过该程序加工后，变量n的值为( )

A．5

B．4

C．3

D．2

有如下VB程序段：
Private Sub Command1_Click()
Dim i As Integer, x As Integer
x = 1
For i = 1 To 5 Step 2
x = x + i
Text1.Text = Str(x)
Next i
End Sub 
则该程序运行后，文本框Text1中显示的数据个数是

A．1个

B．2个

C．3个

D．5个

(加试题)有如下VB程序段：
Private Sub Command1_Click()
Dim i As Integer, s As Integer
s = 0
For i = 1 To 5 Step 3
s = s + fun(i)
Next i
Text1.Text = Str(s)
End Sub
Function fun(n As Integer) As Integer
If n = 1 Then
fun = 2
Else
fun = fun(n - 1) + n
End If
End Function
执行完该程序后，S的值为( )

A．7

B．11

C．13

D．25

实现某排序算法的部分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

以下程序段运行时出现如图所示的错误提示:
 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

某算法的部分流程图如图所示。执行该流程后，“x≥y?”被执行的次数为（   ）

A．4

B．3

C．2

D．1

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