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

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

21，24，165

21，24，165

（填數據，用逗號分隔）。

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

（2）小張根據上述加密算法，設計了一個對應的解密程序，其VB代碼如下，請在橫線處填入合適的代碼（解密與加密使用相同的密鑰數據）。
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
'讀取值變換與位置變換的密鑰數據，分別保存在數組x與y中，代碼略。
'讀取待解密數據，保存在數組a中，代碼略。
'下面進行位置變換：位置變換后數據保存到數組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
'下面進行值變換：值變換后數據仍保存到數組b中
j=1
For i=1 To n
b（i）=

③

③

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