在游戏中经常有开数字密码锁得场景，已知一个6位数的密码锁，正确的数字顺序组合是由下面一组数字426815经过两次冒泡排序得到，请问开锁的正确数字组合可能是（    ）。

A．864251

B．842651

C．126845

D．124685

数塔问题。一组数字构成如图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数组中，代码略

①___________________________________
②__________________________________
③__________________________________

小明编写了一个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）以上程序段运行时，为了实现上述功能，划线处①②③应填入的代码分别为： 
①______________________；②______________；③____________________ 

会员积分的计算。某超市会根据会员顾客的一次性消费总额给予一定的积分，会员可在年终依据积分换得相应的商品。每次消费时，计算机会自动累加所购商品的总价并折算成积分。
超市折算积分的规则：如果总消费额不足150元，就给1分积分；如果总消费额达150元及以上，那么每40元消费可以获得0.5积分。如，某人消费总额为150元，150/40=3.75，根据规则，积分为3*0.5=1.5分。
下列程序（流程图如图所示）可根据各种已购买商品的费用（已经保存在数组a中），计算总消费金额（total）并折算成积分（ans），最后输出总消费额（显示在标签Label2中）以及所获得的积分总值（显示在标签Label4中）。则程序中划线处应分别填入：
①   ② ③
Const n = 10
Dim a(n) As Single

Dim i As Integer
Dim ans As Single, total As Single
Private Sub Command1_Click()
total =" 0:" ans = 0
For i =" 1" To n
   ①    
Next i
If total < 150 Then
   ②    
Else
ans =" Fix(total" / 40) / 2
End If
Label2.Caption = Str(total)
③  = Str(ans)
End Sub

小王设计了一个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