（加试题）某字符串（字节数为 2 的倍数）编码规则如下：
（1）将该字符串内码分成 2 个字节一组，每个字节前补上一个 0，构成 9 位二进制，顺次链接后得到 18 位二进制；
（2）将得到的 18 位二进制数字分成 3 组，每组 6 位；
（3）在每组数字前补上两个 0，得到 3 个字节的二进制数；
（4）将（3）中得到的三个字节的二进制数分别转换为十进制数；
（5）将每个十进制数转换为 1 个加密字符，对应的“ 密码表 ”按数值由小到大依次为 012345678ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz+/” 小明按照上述方法，设计了一个字符串（仅包含 ASCII 字符）加密的 VB 程序，功能如下：单击“加密”按钮 Command1，程序依次将文本框 Text1 中每 2 个字符的 ASCII 码值按编码规则转换为三个加密字符，连接这些加密字符，最后在文本框 Text2 中输出加密结果。程序效果如下图所示。

实现上述功能的 VB 程序如下：
（1）在 Text1 中输入明文“AB”，用上述加密算法得到的密文为_____。
（2）实现上述功能的 VB 程序如下。请在划线处填入合适的代码。
Function cc(n As Integer) As String
Dim s As String
s = "012345678ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz+/"
①_____
End Function
Private Sub Command1_Click()
Dim n As Integer, s As String, i As Integer, ss As String
Dim a1 As Integer, a2 As Integer
Dim b1 As Integer, b2 As Integer, b3 As Integer
s = Text1.Text
n = Len(s)
ss = ""
For i = 1 To n    Step 2
a1 = Asc(Mid(s, i, 1))
②_____
b1 = a1 \ 8
b2 = ③_____
b3 = a2 Mod 64
ss = ss + cc(b1) + cc(b2) + cc(b3) Next i
Text2.Text = ss
End Sub

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

数塔问题。一组数字构成如图a所示的数塔，从数塔顶层出发，每个结点可以选择移动至左下方或右下方结点，一直走到塔底为1条路径。求从数塔顶层到塔底各条路径上数字和的最大值。
解决此问题可采用自底至顶分析的方法。如图a所示的数塔中，先从第3层开始分析：如果路径经过第3层的第1个数字12，那么从12到尾结点的路径上数字之和的最大值是当前结点值加上该结点左下方、右下方结点中的较大值，记作f(3，1)=12+14：同理，f(3，2)=7+15，f(3，3)=26+15；再分析第2层，计算f(2，1)、f(2，2)；最后计算出第一层f(1，1)，即为所求结果。
(1)如图a所示数塔各条路径上的数字和的最大值为___________。

(2)编写VB程序，运行界面如图b所示，程序代码如下，请在划线处填入合适的代码，将程序补充完整。
Const n ＝5
Dim a(1 To n^2) As Integer ’ 数组a存储数塔数据，存储结构如图c所示
Dim f(1 To n^2) As Integer ’ 数组f存储从第i层第J个数到底层尾结点的最大数字之和，其存储结构与数组a一样
Private Sub Command l_Click()
’生成数塔，将数据存入a数组中，代码略

①___________________________________
②__________________________________
③__________________________________

王敏的 QQ 密码忘记了，试了很多次都没有成功，请你帮她尽可能找出密码。她零星记得自己的密码信息：①密码是六位数字，前面两位为 31；②最后两位数字相同；③能被 16 和 46 整除。程序界面如图所示，单击“帮助找回密码”按钮，可能的密码显示在列表框 List1 中。解决此问题的相应程序如下，完成相应的填充。

Private Sub Command1_Click（）
Dim a As Integer , s As Long , b As Integer , i As Integer
For i=0 To 9999 ___________
s=310000+i
If s Mod 46 = 0 Then
a = s mod 10
b=(s\10)mod 10
If ___________Then
___________
End If
End If
Next i
End Sub

某多选题共有6个候选项（A、B、C、D、E、F），得分规则是：全部答对得2分，部分答对得1分，未作答或有错误答案0分。设计一个能够评分的程序，要求如下：在文本框Text1中输入标准答案，在文本框Text2中输入学生答案。点击评分按钮Command1后，将得分显示在标签Label4中。程序界面如图所示：

（1）要使程序运行后，窗体Form1的标题栏中显示“评分”，正确的做法是_____ （单选，填字母：

A．将窗体的Text属性改为“评分”/

B．在Form1_Load事件中输入代码Form1.Caption=”评分”/

C．在Form1_Load事件中输入代码Form1.Name=”评分”）；

(2)实现上述功能的程序如下，请在划线处填入合适的代码：
Private Sub Command1Click
Dim cans As String ,ans As String ,c As String ,count As Integer
Dim f(1 To 6) As Boolean
cans = Text1.Text:ans = Text2.Text
count = 0
For i = 1 To Len(cans)
c = Mid(cans, i, 1)
f(Asc(c) - 64) = True
Next i
For i = 1 To ①______     
c = Mid(ans, i, 1)
If f(Asc(c) - 64) = False Then
count = 0: Exit For
Else
count = count + 1
End If
Next i
If count = 0 Then
Label4.Caption = "0分"
ElseIf ②______ Then    
Label4.Caption = "2分"
Else
Label4.Caption = "1分"
End If
End Sub
（3）若去除加框处代码，且将文本框Text2的内容改为“BCD”，标签Label4显示的内容是_______。