给定一个数组a，有n个元素(1≤n≤100)，有以下两种操作：
操作1：在文本框中分别输入L、R、T(1≤L≤R≤n)，对数组下标为L到R之内(包含L和R)的每个元素增加T(1≤T≤100)
操作2：在文本框中输入K(1≤K≤n)，在标签中输出a(K)的值。
为了提高算法的效率，小明设计了如下算法，以n＝10为例，如下表所示。

数组下标	l	2	3	4	5	6	7	8	9	l0
元素的值	7	l2	3	6	7	1l	8	24	9	5

 
①将n个元素依次分成段(表示对石向下取整，每段的元素个数为，若最后有不足个元素，则自成一段。给每段设置一个标记，初始值都为0，如下表所示。

数组下标	l	2	3	4	5	6	7	8	9	10
元素的值	7	12	3	6	7	1l	8	24	9	5
段编号	第l段			第2段			第3段			第4段
段标记值	0			0			0			0

 
②对于操作1，输入的L、R属于同一段，则直接对a（L to R）的每个元素加上T。如输入4，6，3，则第2段中的每个数加上3，操作后如下表所示。

数组下标	1	2	3	4	5	6	7	8	9	10
元素的值	7	l2	3	9	10	14	8	24	9	5
段编号	第1段			第2段			第3段			第4段
段标记值	0			0			0			0

 
③对于操作1，若输入的L，R不属于同一段，则对元素a(L)所在段中从a(L)开始到该段最后一个元素为止的每个元素加上T，并对元素a(R)所在段中从该段第一个元素开始到a(R)为止的每个元素加上T，对a(L)元素所在段的下一段开始到a(R)元素所在段的前一段为止的每个段标记值增加T，这些段中的元素保持不变。如在上表的其础上再输入1，8，2，则第1段的3个数和第3段中的前2个数都加上2，第2段的段标记位增加2，如下表所示。

数组下标	l	2	3	4	5	6	7	8	9	l0
元素的值	9	14	5	9	l0	l‘l	10	26	9	5
段编号	第1段			第2段			第3段			第4段
段标记位	0			2			0			0

 
④对于操作2，若输入K的值为5，则输出a(5)的值，a(5)的值为该数组元素的值＋段标记值，即a(5)＝12。程序运行界面如下。请回答下列问题：
(1)若数组元素为“3，2，6，8，7，9，3，4，7，9，6”，依次进行以下3次操作后第3段的标记值为__________

操作1：依次输入1，11，1
操作1：依次输入7，9，2
操作2：输入8
(2)请在划线处填入合适的代码。
Const n = 10
Dim a(1 To n) As Integer
Dim f(1 T on) As Integer 'f数组元素依次表示每段的标记值
Dim bk As Integer     'bk表示每段的元素个数
Function BL(x As Integer) As Integer 'BL函数返回数组元素a(x)的段编号
BL=________________
End Function
Private Sub Form_Load()
’读取数据，并存储到数组a中，代码略
bk＝Int(Sgr(n))
End Sub
Private Sub Command1_Click()
Dim L As Integer，R As Integer，T As Integer，i As Integer
L＝Val(Text1.Text)：R=Val(Text2.Text)：T=Val(Text3.Text)
If BL(L)＝BL(R) Then

For i=L To R

a(i)=a(i)＋T
Next i

EIse

For i=______________
a(i)= a(i)+T
Next i
For i=BL(L)+1 To BL(R)－1
f(i)= f(i)+T
Next i
For i=(BL(R)－1)* bk+1 To R
a(i)= a(i) +T
Next i

End If

End Sub
Private Sub Command2_Click()
Dim K As Integer
K=Val(Text4.Text)
Labe.15.Caption="经过一系列操作后.a("+Str(K)+ ")的值为："+___________
End Sub

某绘图软件的部分指令如下：（画笔前进或后退均能画出线条）
指令名称指令功能
FDN画笔前移N厘米
BKN画笔后移N厘米
LTN画笔在原地向左方转动N度
RTN画笔在原地向右方转动N度
补充程序中的第六行中的指令，使程序可以绘出如图所示的图形，。
第一行  FD  10
第二行  RT  90
第三行  FD  15
第四行  LT  90
第五行  _________
第六行  LT  90
第七行  FD  5

由 n 行数字组成的数字三角形如图所示。设计一个算法，对于由 n 行数字组成的数字三角形（数字范围1，50，计算从三角形的顶至底的路径经过的数字和的最大值，每一步可以从当前点走到左下方的点也可以走到右下方的点。

寻求路径最大值的算法设计如下：
按三角形的行划分，若有n 行，则有n-1 个步骤
① 从底层开始，本身数即为最大值
② 倒数第二层的计算取决于底层的数据：
12+6=18,13+14=27,24+15=39,24+8=32；
③ 倒数第三层的计算取决于底二层的数据：
27+12=39,39+7=46,39+26=65；
④ 倒数第四层的计算取决于底三层的数据：
46+11=57,65+8=73；
⑤ 最后的路径：13—8—26—15—24   其和为 86。
根据上述算法描述，设计程序界面如下图所示，点击“生成金字塔”按钮，在列表框中生成数字金字塔，点击“寻求路径最大值”按钮，在文本框 text1 中输出最大值。

依据上述描述设计如下 VB 程序：
Const n = 5
Dim sx As String
Dim i, j, k, a(1 To 100) As Integer
Private Sub Command1_Click()
List1.Clear
For i = 1 To n
For j = 1 To i

__________

sx = sx + Str(a((i - 1) * n + j))

Next j

For k = n To i Step -1

 sx = " " + sx

Next k

List1.AddItem sx

sx = ""

Next i
End Sub
Private Sub Command2_Click()
For i = n To 1 Step -1
For j = 2 To i

If__________Then

a((i - 2) * n + j - 1) = a((i - 1) * n + j - 1) + a((i - 2) * n + j - 1)

Else

a((i - 2) * n + j - 1) = a((i - 1) * n + j) + a((i - 2) * n + j - 1)

End If

Next j

Next i
__________
End Sub
请回答下列问题：
(1)若数字金字塔如图   ，输出路径最大值是______________________。
(2)请在①②③划线处填入合适的代码。

有两个以字母结尾的字符串s 1和s 2，在忽略字符串中空格的前提下判断它们是否相同。实现该功能的VB程序段如下：




Else

End If
Loop
.“相同”.“不相同”方框中的代码由以下三部分组成：
①
②
③＜＞" " ＜＞" " Then Exit Do 'Exit Do表示退出循环代码顺序正确的是（   ）

A．①②③

B．②①③

C．②③①

D．③②①

（加试题）某字符串（字节数为 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