VB 改错`急急急！

（这个加密算法是 定长换位加密）VB代码如下 Private Sub 解密_Click() Dim i, j, n As Long Dim k As String Dim ks() As Long Dim ee() As String * 1 Dim pp() As String * 1 k = Text2.Text ReDim ks(Len(Text2.Text)) For i = 1 To Len(k) m = 1 For j = 1 To Len(k) If (Mid$(k, i, 1)) = (Mid$(k, j, 1)) And i > j Then m = m + 1 If (Mid$(k, i, 1)) > (Mid$(k, j, 1)) Then m = m + 1 Next j ks(i) = m Next i n = Len(Text1.Text) ReDim ee(n) ReDim pp(n) For i = 1 To n ee(i) = Mid$(Text1.Text, i, l) Next i For i = 0 To n - 1 Step Len(k) For j = 1 To Len(k) pp(i + ks(j)) = ee(i + j) Next j Next i Text1.Text = "" For i = 1 To n Text1.Text = Text1.Text + pp(i) Next i Label1.Caption = "明文:" //加密算法没有问题``但是点击 解密 按扭后 结果是text1`一片空白`` 估计问题出现在 解密算法里``高手帮忙呀这里给的只有解密算法 COMMAND1我已经在属性栏里改名字了 `应该不是 哪个问题