学进去

某种数据加密方法描述如下（加密前后的数值都是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的数据加密过程如下：

（1）已知m=3，数组x与数组y中的数据如下表所示。则待加密数据段“155,1,250”加密后的数据段为______________（填数据，用逗号分隔）

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 n) As Integer, y(1 To n) 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