学进去

用 VB 编写字符串“密码破译”程序， 其功能如下： 在文本框 Text1 中输入任意一串字符串,字符串长度为n*n（n 为自然数）， 单击“解密”按钮 Command1，在文本框 Text2 中输出解锁密码。解锁密码破译步骤如下： 将字符依次存储到数组a 中， 存储方式从左下向右上， 平行于矩阵的对角 线依次进行存储，以长度为 36 的字符串“Tolerance is the mental,YouSheng 优胜一筹”为例， 数组 a 元素对应的赋值情况如图a 所示； 将对角线字符从右上向左下依次相连即为解锁密码。程 序运行效果如图b 所示。


实现上述功能的 VB 程序如下，请回答下列问题：
(1)若输入的字符串内容为“abcdefghijklmnopqrstuvwxy”，则破译后的解锁密码为______________。
(2) 请在划线处填写合适代码，使程序正常运行。
Private Sub Command1_Click()
Const n = 6
Dim a(1 To n * n) As Integer
Dim b(1 To n * n) As String
Dim i As Integer, j As Integer, k As Integer, s As String
Dim zf As Integer '变量 zf 存储数组 a 元素的值
Dim xb As Integer '变量 xb 存储数组 a 的下标
Dim p As Integer
For i = 1 To Len(Text1.Text)        

b(i) = Mid(Text1.Text, i, 1)

Next i
k = 1
For i = 1 To n          

k = k + (i - 1)

zf = k

①__________

a(xb) = zf

p = i + 1

For j = 2 To n

If j <= n - i + 1 Then

zf = zf + p

a(xb + j - 1) = zf

p = p + 1

Else

②__________

zf = zf + p

a(xb + j - 1) = zf

End If

Next j

Next i
For i = 1 To n

s = s +__________③          

Next i
Text2.Text = s
End Sub