某種數(shù)據(jù)加密方法描述如下（加密前后的數(shù)值都是0～255的整數(shù)）：
?以m個數(shù)據(jù)為一段，將n個待加密數(shù)據(jù)依次分割成若干個數(shù)據(jù)段。剩余數(shù)據(jù)（個數(shù)小于 m）為一個獨立數(shù)據(jù)段。
?數(shù)據(jù)段加密規(guī)則：
數(shù)據(jù)個數(shù)等于m的數(shù)據(jù)段，先進行值變換，再進行位置變換，得到加密數(shù)據(jù)段。
數(shù)據(jù)個數(shù)小于m的數(shù)據(jù)段，只進行值變換，直接得到加密數(shù)據(jù)段。
?依次合并加密數(shù)據(jù)段，即為最后的加密數(shù)據(jù)。
值變換：用值變換密鑰數(shù)組x（元素個數(shù)為m,值為0～255的整數(shù)），將待加密數(shù)據(jù)段中的數(shù)據(jù)進行值變換，方法如下：
值變換后第i個元素=（待加密數(shù)據(jù)段第i個元素+x（i）） Mod 256，其中i=1，2，…，m 位置變換：用位置變換密鑰數(shù)組y（元素個數(shù)為m,值為1～m的不重復(fù)整數(shù)），將上述值變換后的m個元素進行段內(nèi)位置變換，方法如下：
加密后數(shù)據(jù)段第y（i）個元素=值變換后第i個元素，其中i=1，2，…，m
例如，n=5，m=3的數(shù)據(jù)加密過程如下：
段內(nèi)序號待加密數(shù)據(jù)密鑰數(shù)組x 值變換后數(shù)據(jù)密鑰數(shù)組y 加密后數(shù)據(jù)

（1）已知m=3，數(shù)組x與數(shù)組y中的數(shù)據(jù)如下表所示。則待加密數(shù)據(jù)段“155，1，250”加密后的數(shù)據(jù)段為

21，24，165

21，24，165

（填數(shù)據(jù)，用逗號分隔）。

x（1）	x（2）	x（3）		y（1）	y（2）	y（3）
10	20	30		3	1	2

（2）小張根據(jù)上述加密算法，設(shè)計了一個對應(yīng)的解密程序，其VB代碼如下，請在橫線處填入合適的代碼（解密與加密使用相同的密鑰數(shù)據(jù)）。
Private Sub Command1_Click （　　）
Const n=100
Const m=6
Dim i As Integer,j As Integer
Dim a（1 To n） As Integer,b（1 To n） As Integer
Dim x（1 To m） As Integer,y（1 To m） As Integer
'讀取值變換與位置變換的密鑰數(shù)據(jù)，分別保存在數(shù)組x與y中，代碼略。
'讀取待解密數(shù)據(jù)，保存在數(shù)組a中，代碼略。
'下面進行位置變換：位置變換后數(shù)據(jù)保存到數(shù)組b中
For i=1 To

①

①

For j=1 To m

②

②

Next j Next i
For i=（n\m）*m+1 To n
b（i）=a（i）
Next i
'下面進行值變換：值變換后數(shù)據(jù)仍保存到數(shù)組b中
j=1
For i=1 To n
b（i）=

③

③

j=j+1
If j＞m
Then j=1
Next i
'輸出解密后數(shù)據(jù)，代碼略。
End Sub