下列程序执行后，整型变量n的值为（    ）。
n=0
for i="1" to 100
if i mod 4="0" then
n=n+1
next i

A．5050

B．25

C．26

D．33

对n项（n<=100）数据序列的前x项求和，可设计如下算法：将数据序列存储在数组a中，并按一定规则转换成数组c，再借助数组c实现求和.
将数组a转换成数组c的方法描述如下：
①将数组a中的元素依次存储到数组c中，把当前数组c看作第一层；
②把第一层中的各元素进行如下处理：奇数项值不变，偶数项的值更新为自己与自己前一项的和，将更新后的数组元素看作第二层；
③把第二层中的各元素，按上述方法进行同样操作，更新后的数组元素看作第三层；
④以此类推，直到当前层中仅有一项为止。
例如x=11时，转换过程如图所示：

借助数组c，可快速计算出数组a中前x项的和.例如，数组a中前11项的和，可由表达式c(11)+c(10)+c(8)得到.表达式具体分析过程如下：
②   表达式第一项为c(11)；
②将下标11转换成二进制数1011，计算该二进制数最右边的“1”所对应的权值，再用11减去此权值得到10，即表达式第二项为c(10)；
③按上述方法继续操作，直到计算结果等于0为止。
小龙依据上述方法设计了如下vb程序.请回答下列问题：
（1）计算数组a中前22项和的表达式为__________________(填写表达式，如c(11)+c(10)+c(8))。
（2）请在划线处填入合适的代码。
Dim n As Integer
Dim a(1 To 1000) As Long, c(1 To 1000) As Long
Private Sub Form_Load()

'读取n个数据,并存储到数组a中（代码略）

End Sub
Private Sub Command1_Click()
Dim i As Integer, j As Integer, k As Integer, space As Integer
For i = 1 To n
c(i) = a(i)
Next i
k = 2  '当前层第一个偶数项的位置
space = 1  '当前层偶数项与前一项的间距
Do While k <= n
For i = k To n Step k
c(i) = c(i) + c(i - space)
Next i
k = k * 2
①______________________
Loop
End Sub
Private Sub Command2_Click()

Dim x As Integer, sum As Long

x = Val(Text1.Text): sum = 0

Do While x <> 0

sum = sum + c(x)
②_________________ 

Loop

Text2.Text = Str(sum)

End Sub
Function lowbit(x As Integer) As Integer

Dim temp As Integer

temp = x: lowbit = 1

Do While ③_______________'

lowbit = lowbit * 2
temp = temp \ 2

Loop

End Function

以下程序段的输出结果s是（ ）
s=0
For i=1 To 3

s=s+2

Next i
Print  s

A．0

B．2

C．3

D．6

编码工作常被运用于密文或压缩传输。有一种最简单的编码方式，把一些有规律的单词编成数字。编码方法如下：
字母表中共有26个字母{a，b，…，z}，把符合“长度不超过6”的所有字符组合升序排列，一个单词的编码就对应着它排序后的位置。例如：a→1    b→2    z→26    aa→27    ab→28    az → 52  ba → 53  bb →54…

小何为此编写了VB程序，将该编码理解为26进制数值，求该编码对应的数值。程序运行，从文本框Text1输入要查询的单词，单击按钮Command1，如果输入的单词符合编码条件，则在Label3上显示对应的编码值否则在Label3中显示“不符合编码条件”。

实现上述功能的VB程序和程序运行界面如下所示，请补充完善代码。

Function c(n As Long, r As Long) As Long 
Dim i As Long, cc As Long
cc = 1
For i = 1 To r
cc = cc * n
Next i
①
End Function
Private Sub Command1_Click()
Dim s As String, ch As String
Dim bm As Long, qz As Long
Dim xh As Integer
s = Text1.Text
bm = 0
flag = True
For i = 1 To Len(s)
ch = Mid(s, i, 1)
If  ②    Then     
flag = False
Exit For
End If
xh = Asc(ch) - Asc("a")+1
  ③   
bm = bm + xh * qz
Next i
If flag Then
Text2.Text = s + " 的编码值为：" + ④
Else
Text2.Text = "输入内容不符合编码规则"
End If
End Sub

这是一个可以计算十六进制各位数之和的VB程序，功能如下：在文本框Text1中输入一个十六进制数n，将计算结果显示在Label1上。程序界面如下图所示：

实现上述功能的VB程序如下：
Private Sub Command1_Click()
Dim n As String, m as string
Dim s As Integer, i As Integer
n=Text1.Text
n=ucase(n) ’n中的字母转为大写
   ①
m = Mid(n, i, 1)
If m >= "0" And m <= "9" Then
s = s + Val(m)
ElseIf  m>=”A” And m<=”F”  Then
s = s +   ②
Else
Msgbox(“输入数据有误，请输入一个十六进制数！”)
Exit Sub
End If
Next i
Label2.Caption = "各位数和为：" + Str(s)
End Sub
（1）代码“Private Sub Command1_Click()”中的Command1_Click()是________ （选填：

A．属性名

B．对象名

C．事件处理过程名 ）；

（2）请在划线处填入合适代码①____________________    ②____________________；
（3）程序运行，在Text1中无论输入“5A0D”，在label1中显示的内容为______________。