某数据加密方法描述如下：
先将字符转化为二进制的位数据并显示在文本框text2中，数据位数显示在标签Label1中
以16个数据为一段，将k个待加密数据依次分割成若干个数据段，剩余数据（个数小于16）为独立数据段。
数据加密规则：
数据个数等于16的数据段，在段内进行位置变换，得到加密数据段。
数据个数小于16的数据段，直接得到加密数据段。
依次合并加密数据段，即为最后的加密数据。
位置变换的规制，方法如下：

具体界面如下图所示：

（1）已知k=38，则数组元素b（26）对应值是数组a中的______________________。
（2）实现该功能的VB程序如下:

Private Sub Command1_Click()

Dim a(1 To 1000) As Integer, b(1 To 1000) As Integer

Dim n As Integer, m As Integer

Dim s As String, s1 As String, c As Integer, ch As String

s = Text1.Text: Text2.Text = ""

n = Len(s)

k = 1

For i = 1 To n '获取字符的二进制数据存放在数组a()中

  n = Asc(Mid(s, i, 1))

  Do While n <> 0

   a(k) = n Mod 2

   n = n \ 2

   Text2.Text = Text2.Text + Str(a(k))

   k = k + 1

  Loop

Next i

     ①  

List1.Clear

 

For m = 1 To (k - 1) \ 16    '对字符二进制按规则进行位变换，变换后的数据存放在数组b()中并输出

  For i = 1 To 4

    b(16 * (m - 1) + 4 * (i - 1) + 1) = a((m - 1) * 16 + i)

    ②

  Next i

  For i = 1 To 3

    b(16 * (m - 1) + 4 * (i - 1) + 3) = a((m - 1) * 16 + 10 + i)

    b(16 * (m - 1) + 4 * (i - 1) + 2) = a((m - 1) * 16 + 17 - i)

  Next i

  For i = 1 To 2

    b(16 * (m - 1) + 13 + i) = a((m - 1) * 16 + 4 + i)

  Next i

 

 For i = 1 To 4

  s1 = ""

  For j = 1 To 4

  s1 = s1 + Str(b(16 * (m - 1) + (i - 1) * 4 + j))

  Next j

  List1.AddItem s1

  Next i

List1.AddItem ""

Next m

 

s1 = ""

For i = ((k - 1) \ 16) * 16 + 1 To k - 1

   b(i) = a(i)

    If ③  Then

    s1 = s1 + Str(a(i))

    List1.AddItem s1

    s1 = ""

    Else

    s1 = s1 + Str(a(i))

    End If

Next i

List1.AddItem s1

 

Text3.Text = ""

For i = 1 To k - 1

Text3.Text = Text3.Text + Str(b(i))

Next i

End Sub

实现上述功能，请在划线处填入适当的代码：
程序中①处填入的是________________________________________。
程序中②处填入的是________________________________________。
程序中③处填入的是________________________________________。

0，500范围的十进制数转八进制的VB程序段如下：
n=Val(Textl.Text)
a(1)=0：a(2)=0：a(3)=0
For i=1 To n

j=3：a(j)=a(j)+1

Do While a(j)=8

Loop

Next i
s=a(1)&a(2)&a(3)
方框中的代码由以下三部分组成
①a(j)=a(j)+1
②a(j)=0
③j=j-1
代码顺序正确的选项是

A．①③②

B．③②①

C．②③①

D．②①③

一个两位数x，将它的个位数与十位数字对调后得到一个新数y，此时y恰好比x大36，求出所有这样的两位数。为其中的空白处选择合适的选项（ ）。

A．x-y<>36

B．x-y=36

C．y-x<>36

D．y-x=36

打印矩阵 0  1  1  1
1  0  1  1
1  1  0  1
1  1  1  0
PRIVATE  SUB   FORM_CLICK
DIM    A（4，4）  AS  INTEGER
FOR   I = 1  TO 4
FOR   J= 1  TO  4
IF  ________1
A（I，J）=1
________2
A（I，J）=0
END   IF
PRINT   A（I，j）;
________3
PRINT 
________4
END   SUB

统计不同单词个数，在Text1中输入一行单词，点击“统计”按钮后在Text2中输出不同单词的个数。单词字母有大小写，同一单词的大小字母视为相同，句子以符号结尾， 程序运行界面如图所示。

（1）观察以下代码，该代码中 Command1_Click()是 【小题1】（选：

A．对象名 /

B．事件名 /

C．事件处理过程名）

（2）实现上述功能的VB程序如下，请在划线处填入合适代码。
Private Sub Command1_Click()
Dim a(1 To 100) As String ,s As String, ch As String, word As String
Dim i As Integer, j As Integer, k As Integer, numb As Integer
s = Text1.Text :  k = 0 :  word = ""
For i = 1 To Len(s)
ch = Mid(s, i, 1)
If ch >= "a" And ch <= "z" Or ch >= "A" And ch <= "Z" Then
If ch >= "A" And ch <= "Z" Then ①【小题2】
word = word + ch
Else
flag = False
For j = 1 To k
If a(j) = word Then flag = True
Next j
If Not flag And word <> "" Then
②【小题3】
a(k) = word
numb = numb + 1
End If
③【小题4】
End If
Next i
Text2.Text = str(numb)
End Sub