有如下VB程序段：
a(1)= 5:a(2)= 3:a(3)= 6:a(4)= 8:a(5)= 9
For i = 0 To 10
b(i)= i
Next i
j = 0
For i = 1 To 5
b(j)= a(i):j = b(j)
Next i
j = 0:key = Val(Text1.Text)
Do While j < > b(j)
If key < > b(j) Then
List1. AddItem Str(b(j))
j = b(j)
Else
If b(b(j)) < > b(j)Then
t = b(j):b(j)= b(t):b(t)= t
Else
b(j)= j
End If
End If
Loop
运行该程序段，在文本框Text1中输入6，则列表框List1中第3行显示的内容为（ ）

A．3

B．5

C．8

D．9

以下VB代码运行后，在文本框Text1中输入1，则选择语句If k<=9 Then k=k+i执行的次数为（   ）
k=k+i执行的次数为
Private Sub Text1_Changeo()

Dim k As Integer, i As Integer

k=Val(Text1.Text)

For i=1 To 3

If k<=9 Then k=k+i

Next i

Text1.Text=Str(k)

End sub

A．3

B．5

C．6

D．9

有如下VB程序段：
s= Text1.Text
s1=" "
For i=1 To Len(s)

c= Mid(s,i,1)

If c>="A" And c<="Z" Then

t=(Asc©-asc("A")+25)Mod 26
c=Chr(t+ Asc("A"))

End If

sl=sl+c

Next i
Text2.Text=sl
1=s1+c在文本框Text1中输入“ABcd2XY”，执行上述程序段后，文本框Text2中输出（   ）

A．ZAWX

B．ZAcd12WX

C．XWAZ

D．XW21dcAZ

阅读程序代码并填空。
Rem VB代码：
Dim a As Integer
Dim b As Integer
Dim c As Integer
a =3 
b =5
Print "a=";a,"b=";b
c=a
a=b
b=c
Print "a=";a,"b=";b
（1）程序中起注释作用的标识符是____________。
（2）变量a、b、c 的数据类型都是___________（填写中、英文均可）。
（3）执行程序后，b的输出结果是________________。

有如下VB程序其功能是实现正话反说（即将输入字符逆序输出）：
Function ZF(S As String) As String
Dim n  As Integer
n = Len(S)
If  （1）    Then
ZF =____（2）____
Else
ZF = Mid(S, n, 1) + ZF(Mid(S, 1, n - 1))
End If
End Function
Private Sub Command2_Click()
Dim x As String
x = Text1.Text
Text2.Text = ZF(x)
End Sub
该程序采用的算法和划线处应该填入的内容分别为（   ）

A．解析 （1） n<=1  （2） s

B．解析 （1） n>=1  （2） Mid(s,n,1)

C．递归 （1） n>=1  （2） s

D．递归 （1） n<=1  （2） Mid(s,n,1)

下列程序，当单击窗体时s的值是（ ）。
Private Sub Form_Click()
s = 11 \ 3 + 11 Mod 3
Print s
End Sub

A．3

B．4

C．5

D．6

下面程序的功能是：找出10以内的奇数中能被3整除的正整数，并将它们累加起来。为了实现这一目标，请完善下列程序：
x=0
For i=1 to 10 step ____
If _______________________ then x=x+i
Next i

有如下 VB 程序段：
Private Sub Command1_Click()
Dim i As Integer,s As string
s = ""
For i = 1 To 3 Step 2
s = str(f(i)) + s
Next i
Text1. Text = s
End Sub
Function f(n As Integer) As Integer
If n = 1 Then
f = 2
Else
f = f(n - 1) + n
End If
End Function
则执行该程序段后，s 的值为（   ）

A．247

B．27

C．72

D．742

某VB程序段如下：
Function f (n As Integer) As Long
If n = 1 Then
f = 5
Else
f= 2*f(n-1) – 3
End If
End Function
Private Sub Command1_click()
Dim n As Integer
n = Val (Text1.Text)
Text2. Text = Str(f(n))
End Sub.
该程序段运行后，在文本框Text1中输入5，单击命令按钮Command1后，文本框Text2中显示的是（ ）

A．18

B．35

C．63

D．123

星期天，小龙来到动物园游玩，园内共有N个景点（可在10个以上），每个景点都有一个标号，标号为1至N。现在只知道每个景点有一条路连接下一个景点。小龙想知道，根据这些道路信息，从其中一个景点出发，最后再回到出发景点，最多能游玩多少个景点。
例如，共有N=5个景点，每个景点连接的下一个景点分别是2，4，5，5，2。

景点号	1	2	3	4	5
下一景点号	2	4	5	5	2

 
则他可以从2号景点出发，最多可以游玩2号、4号、5号三个景点。

程序代码如下：
Private Sub Command1_Click()

Dim a(1 To 100) As Integer, d(1 To 100) As Integer

Dim jd As String, m As String, c As Integer, i As Integer

Dim s As Integer, p As Integer, k As Integer, ans As Integer

jd = Text1.Text + ","

s = 0: c = 0

For i = 1 To Len(jd)

m = Mid(jd, i, 1)
If m <> "," Then
   ①   
Else
c = c + 1: a(c) = s: s = 0
End If

Next i

ans = 0: k = 0

For i = 1 To c

For k = 1 To c
d(k) = 0
Next k
If d(i) = 0 Then
p = i
Do While p <= c
If d(p) = 0 Then
k = k + 1: d(p) = k
Else
    ②    
If y > ans Then ans = y
k = 0
Exit Do
End If

Loop
End If

Next i

Text2.Text = Str(ans)

End Sub
（1）要使程序运行时，Form1的BackColor属性值为黑色，以下代码正确的是______（单选，填字母）。

A．Private Sub Form_Load() Form1. BackColor = RGB(255, 255,255) End Sub B．Private Sub Form_Load() Form1.BackColor = RGB(0, 0, 0) End Sub C．Private Sub Form1_Load() orm1.BackColor = RGB(255,255,255) End Sub D．Private Sub Form1_Load() Form1.BackColor = RGB(0, 0, 0) End Sub

 
（2）若有7个景点，且每个景点的连接情况为：6，3，7，2，7，5，4，那么小龙最多可以游玩的景点数是__________。
（3）请把划线处的代码补充完整：
①__________
②__________
（4)程序加框处代码有错,请改正：_________