某數(shù)據(jù)加密方法描述如下：
?先將字符轉(zhuǎn)化為二進(jìn)制的位數(shù)據(jù)并顯示在文本框text2中，數(shù)據(jù)位數(shù)顯示在標(biāo)簽Label1中
?以16個(gè)數(shù)據(jù)為一段，將k個(gè)待加密數(shù)據(jù)依次分割成若干個(gè)數(shù)據(jù)段，剩余數(shù)據(jù)（個(gè)數(shù)小于16）為獨(dú)立數(shù)據(jù)段。
?數(shù)據(jù)加密規(guī)則：
數(shù)據(jù)個(gè)數(shù)等于16的數(shù)據(jù)段，在段內(nèi)進(jìn)行位置變換，得到加密數(shù)據(jù)段。
數(shù)據(jù)個(gè)數(shù)小于16的數(shù)據(jù)段，直接得到加密數(shù)據(jù)段。
?依次合并加密數(shù)據(jù)段，即為最后的加密數(shù)據(jù)。
位置變換的規(guī)制，方法如下：

具體界面如圖所示：

（1）已知k=38，則數(shù)組元素b（26）對(duì)應(yīng)值是數(shù)組a中的。
（2）實(shí)現(xiàn)該功能的VB程序如下，請(qǐng)?jiān)跈M線處填入合適的代碼：
Private Sub Command1_Click （　?。?br />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'獲取字符的二進(jìn)制數(shù)據(jù)存放在數(shù)組a

（　　）

（　?。?/div>中
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'對(duì)字符二進(jìn)制按規(guī)則進(jìn)行位變換，變換后的數(shù)據(jù)存放在數(shù)組b

（　?。?/div>

（　?。?/div>中并輸出
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
（1）實(shí)現(xiàn)上述功能，請(qǐng)?jiān)跈M線處填入適當(dāng)?shù)拇a：
程序中①處填入的是

b（16*（m-1）+4*i）=）=a（（m-1）*16+11-i）

b（16*（m-1）+4*i）=）=a（（m-1）*16+11-i）

。
程序中②處填入的是

Label1．caption=k-1

Label1．caption=k-1

。
程序中③處填入的是

i Mod 4=0

i Mod 4=0

。