学进去

某种数据加密方法描述如下（加密前后的数值都是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”加密后的数据段为______（填数据，用逗号分隔）。

x（l）	x（2）	x（3）		y（l）	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