下列循环语句中，s=s+1循环执行的次数为（ ）
For j=0 To -9 Step -3
s=s+1
Next j

A．3

B．4

C．5

D．9

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

（加试题）最大回文子串。回文字符串是具有回文特性的字符串：即该字符串从左向右读, 与从右向左读都一样.如:凤落梧桐梧落凤，abcba 等。“最大回文子串”是指一个字符串中长 度最大的回文字符串，其基本算法思想如下：
（1）每个回文都有一个“中心”，当回文字符数为奇数时，中间的那个字符就是回文中心；但是当回文的字符数为偶数时，回文的中心是最中间的那两个字符，且这两个字符相同。
（2）对任意一个字符或者相同的两个连续字符，我们都可以假设它为回文的“中心”，向它的 左右两边扩展出尽可能长的回文。对于每种假设，我们都能得到一个回文，而最长回文必定由 其中的某个假设中得到！
现编写一个 V

A．程序，在 Text1 中输入一串字符，单击“统计”按钮，在 Text2 中显示该字 符串中的最大的回文子串（长度相同时，输出最左边的子串）。请回答下列问题：

（1）当 Text1 中输入“123321344332423112113123”时，则输出的结果为_________。
（2）请在划线处填入合适的代码。
Dim n As Integer
Dim a(0 To 100) As String Private Sub Command1 Click() Dim s As String
Dim left As Integer, right As Integer, i As Integer
Dim max As Integer, m As Integer, b1 As Integer
'变量 b1 用于记录回文子串的左端起点 Text2.Text = ""
s = Text1.Text n = Len(s)
For i = 1 To n

a(i) = Mid(s, i, 1) Next i

max = 0: left = 0: right = 0
For i = 1 To n left = i
right = i
m = longest(left, right) If m > max Then
b1 = i - m \ 2 max = m
End If left = i
right = i + 1
If a(left) = a(right) Then
m = longest(left, right) + 1
If m > max Then
①________
max = m
End If
End If
Next i
For i = b1 To ②________

Text2.Text = Text2.Text + a(i) Next i

End Sub
Function longest(left As Integer, right As Integer) As Integer
Dim p As Integer p = 1
Do While left > 1 And right < n And ③________
left = left - 1 right = right + 1 p = p + 2
Loop
longest = p
End Function

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

A．7，9

B．13，12

C．69，10

D．11，11

有如下 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

求10个[61，100]之间的随机整数的和，其算法的部分流程图如图所示，

图中①②处应分别填入

A．i<=10?    Int(Rnd*40)+61

B．i<=10?    Int(Rnd*39)+61

C．i<=100?   Int(Rnd*40)+61

D．i<=100?   Int(Rnd*40)+60

某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 = ""
For i = 1 To Len(Text1.Text)
s = s + Mid(Text1.Text, Len(Text1.Text) - i + 1, 1)
Next i
若文本框Textl中输入“a1b2c3”,执行程序后，变量s的值为（   ）

A．3

B．6

C．a1b2c3

D．3c2b1a

有如下一段VB程序:
s=0
For i=1  to  5   step  -2
s=s+i
Next i
执行上述代码后，下列说法正确的是（   ）

A．该循环执行了3次	B．该循环是无限循环
C．执行该循环后，s,i的值分别为0、1	D．循环体s=s+i仅被执行了1次

某算法部分流程图如图所示，执行该部分流程图后，变量 s 和变量 i 的值分别为

A．9 和 5	B．9 和 7
C．16 和 5	D．16 和 7