斯巴达密码棒（如图1所示）：公元前雅典和斯巴达之间爆发战争，斯巴达军队截获了一条写满杂乱无章的字母的腰带，斯巴达将军在百思不得其解之际，胡乱将腰带缠到剑柄上，从而误打误撞发现了其中隐藏的军机，这就是斯巴达密码棒的由来．解密原理是将一个字符串从第一个字符开始按规定间隔将字符逐个取出．
用Visual Basic设计程序，程序界面、属性窗口如图2所示．在文本框Text1中输入密文，在文本框Text2中输入字符间隔数，单击“解密”按钮，在文本框Text3中输处解密结果．
“解密”按钮的事件处理过程代码如下：
Private Sub Cmd1_Click（　　）
      Dim s As String
      Dim j As String
      Dim n As Integer
      Dim btw As Integer
      s=Text1．Text
      j=““
      btw=Val（Text2．Text）
      n=

①

①

      For i=1 To n Step btw
            j=j+Mid（s,i,1）
      Next i

End Sub
（1）要使图2所示窗体a处显示“斯巴达解密”，需修改Forml的

Caption

Caption

属性．
（2）根据代码可知“解密”按钮的对象名是

Cmd1

Cmd1

．
（3）完善程序，在横线处①应填入的代码是

len（s）

len（s）

．
（4）加框处代码有误，应改为

Text3．text=j

Text3．text=j

．
（5）运行程序，在文本框Text1中输入“HIEEARLMAPUTMNTEDA”，在文本框Text2中输入“3”，单击“解密”按钮，文本框Text3中显示的内容为

HELPME

HELPME

．