下列VB程序运行时，单击命令按钮Command1后，文本框Text1中显示的内容是(　　)，文本框Text2中显示的内容是（  ）　
Private Sub Command1_Click( )
Dim i As Integer，c As Integer，n As Integer
c＝0:n＝10
For i＝1 To 10
If n Mod i＝0 Then c＝c+1
Next i
Text1.Text＝Str(n)
Text2.Text＝Str(c)
End Sub

A．10　4

B．3　10

C．4　10

D．10　3

某省举办大型活动，面向省内城市招募有志愿服务工作经历的志愿者，每个志愿者的报名数据包含城市序号、姓名（字母缩写）和参加志愿服务的次数。现需整理报名数据，要求是：先按城市序号从小到大排列；然后，同一城市的志愿者按参加志愿服务的次数从多到少排列。
按上述要求，编写一个VB程序，功能如下：在列表框List 1中显示整理前的数据，单击“整理”按钮Command 1，整理结果显示在列表框List 2中，程序运行界面如图所示。

（1）将数组元素q（1）到q（200）分为10段，如果每段恰好包含20个元素，采用选择排序算法分别对每段中的元素进行排序，整个排序过程中，数组元素之间的比较次数是________（单选，填字母：

A．次/

B．次/

C．次）。

（2）请在划线处填入合适的代码。
    报名总人数
城市数
，，
 存储每个城市的报名人数


Private Sub Form_Load（）
本过程读取城市序号，姓名和参加次数的数据分别存储在数组city；pname和times中，
并在List 1中显示，代码略
End Sub
Private Sub Command 1_Click（）
Dim i As Integer，j As Integer，k As Integer，t As Integer，pos As Integer


Next i
   统计每个城市报名人数
 ①

Next i




Next i


  ②

Next i

  对各城市报名数据按参加志愿服务的次数进行排序



Next j

Next i

List 2.AddItem " " & city（q（i））& " " & pname（q（i））& " " & times（q（i））
Next i
End Sub
Function fp（head As Integer，tail As Integer）As Integer
Dim i As Integer，k As Integer

  ③ 

Next i

End Function

星期天，小龙来到动物园游玩，园内共有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)程序加框处代码有错,请改正：_________

有如下程序，要使Label1中显示的值是30，划线处应该填(　　)
Dim i As Integer，s As Integer
s＝0
For i＝2 To ________ Step 2
　s＝s＋i
Next i
Label1.Caption＝Str(s)

A．8

B．9

C．10

D．12

某算法的部分流程图如图所示，以下说法正确的是（  ）

A．该流程执行后，变量k的值是-1

B．该流程执行后，变量a的值是16

C．该流程用于计算并输出1+8-16的值

D．该流程完整执行1次，“a<32?”共执行了3次