为了安排寝室，需要将学生按性别分类。小陈设计了一个VB程序，运行该程序，单击“数据导入”按钮Command1后，左侧列表框List1中显示40位学生的编号和性别；然后单击“数据处理”按钮Command2，中间列表框List2中显示所有女生的信息，右侧列表框List3中显示所有男生的信息，并在相应的列表框下方显示人数。运行结果如下图所示。

实现上述功能的VB程序段如下，分析回答下列问题。
Dim a(1 To 40) As String  '数组a用于存储学生编号
Dim b(1 To 40) As String   '数组b用于存储学生性别
Private Sub Command1_Click
Dim i As Integer
List1.Clear
List2.Clear
List3.Clear
'在列表框List1中显示40位学生的编号和性别
For i＝1 To 40
.AddItem a(i)＋” ”＋b(i) ①
Next i
End Sub
Private Sub Command2_Click
Dim n As Integer   '用于存储女生人数
Dim m As Integer   '用于存储男生人数
Dim i As Integer
List2.Clear
List3.Clear
n＝0: m＝0
For i＝1 To 40
If  b(i)＝”女”  Then
List2.AddItem a(i)    '在列表框List2中显示女生信息
n＝n＋1
Else
List3.AddItem a(i)    '在列表框List3中显示男生信息

②
End If
Next i
Label1.Caption＝”女生人数：”＋Str(n)
Label2.Caption＝”男生人数：”＋Str(m)
End Sub
(1)小陈将学生的编号和性别分别存放在数组a和数组b中，这段代码书写在窗体的加载事件中，下列属于该事件的是（____）

A．Form_Click	B．Command1_Click
C．Form_Load	D．Form_Unload

(2)①和②加边框处分别有误，根据题意修改源代码，①处应修改为________，②处应修改为__________

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

小王设计了一个Visual Basic小程序，该程序的功能是将一个二进制数转化为十六进制数。程序运行时，在文本框Text1输入二进制数（由0、1构成的数串），单击“转换”按钮Command1后，在文本框Text2中显示转换结果。程序运行界面如下图所示。

实现上述功能的程序代码如下所示，请在划线处填上合适的代码：
Private Sub Command1_Click()
Dim x As String, y As String,
Dim i As Integer, s As Integer, n As Integer, c As String
Dim q As String, h As String, ans As String
n = Len(Text1.Text)
y = Text1.Text
If n Mod 4 <> 0 Then ________________
For i = 1 To s
y = "0" + y
Next i
For i = 1 To n Step 4
________________________
If h = "0000" Then q = "0"
If h = "0001" Then q = "1"
If h = "0010" Then q = "2"
If h = "0011" Then q = "3"
If h = "0100" Then q = "4"
If h = "0101" Then q = "5"
If h = "0110" Then q = "6"
If h = "0111" Then q = "7"
If h = "1000" Then q = "8"
If h = "1001" Then q = "9"
If h = "1010" Then q = "A"
If h = "1011" Then q = "B"
If h = "1100" Then q = "C"
If h = "1101" Then q = "D"
If h = "1110" Then q = "E"
If h = "1111" Then ___________________ 
ans =_____________________  
Next i
Text2.Text =ans
End Sub

小明编写了一个VB程序，功能如下：在文本框Text1中输入一段英文，并在文本框Text2中输入英文段落中的某个单词（或字符串），单击“最大间距”按钮（Command1）后，在文本框Text3中显示该单词在文中某两次出现的最大间距，若只出现一次或不出现则显示值为0。程序运行界面如下图所示：

实现上述功能的VB程序如下：
Private Sub Command1_Click  
Dim a(1 To 1000) As String   '数组a存储文中出现该指定单词(或字符串)的各个位置
Dim s As String, c As String ,ch As String
Dim n As Integer, max As Integer, i As Integer
s = Text1.Text 
c = Text2.Text
n = 0: Max = 0
For i = 1 To Len(s) - Len(c) + 1
ch =     ①   
If ch = c Then
n =     ②
a(n) = i
If n >= 2 Then
If a(n) - a(n - 1) - Len(c) > Max Then Max = a(n) - a(n - 1) - Len(c)
End If
End If
Next i
Text3.Text =    ③  
End Sub
（1）代码“Private Sub Command1_Click”中的Click是________ 。（单选：填字母：

A．对象名/

B．属性名/

C．事件名）

（2）以上程序段运行时，为了实现上述功能，划线处①②③应填入的代码分别为： 
①______________________；②______________；③____________________ 

方格填数。在n个连续的方格内填写字母A或B但相邻两格内不能都填B。求所有可能的填写方案数。例如，n=3，可能的方案有AAA、AAB、ABA、BAA、BAB等5种
以下VB程序用于解决这个问题，在文本框Text1输入n的值，点击“求解”按钮 command1后，在列表框List1中输出所有方案。运行界面如下图所示：
提示：若用0代表A，用1代表B，那么每一种方案都对应一个n位的二进制数。

（1）要使command1按钮上显示的文本改为“求解”，可在其属性窗口中将_____（填属性名）属性的属性值改为“求解”。
实现上述功能的程序如下：
Private Sub Command1_Click ()

Dim n As Integer, m As Integer, k As Integer

Dim flag As **

Dim i As Integer, j As Integer

Dim a(1 To 1000) As Integer

①    

List1. Clear  '清空文本框list1

s = ""

For i =0 To ②

'每一种方案对应一个n位的二进制数,枚举i对应的方案是否符合要求
m =i
For j=1 To n
a(j)= m Mod 2
③  
Next j
flag =True
For 
If a(k-1)= a(k) And a(k)= 1 Then
flag = False
End IF
Next k
If flag Then
For k= 1 To n
If a (k) = 1 Then s = "B" + s Else s = "A" + s
Next k
List1. AddItem s
End If
s = ""

Next i

End Sub
（2）阅读代码，变量flag的数据类型应定义为_____
（3）加框处代码有错，请改正：__________
（4）请在划线处填入合适的代码：
①__________
②__________
③__________