斯巴達(dá)密碼棒（如圖1所示）：公元前雅典和斯巴達(dá)之間爆發(fā)戰(zhàn)爭(zhēng)，斯巴達(dá)軍隊(duì)截獲了一條寫滿雜亂無章的字母的腰帶，斯巴達(dá)將軍在百思不得其解之際，胡亂將腰帶纏到劍柄上，從而誤打誤撞發(fā)現(xiàn)了其中隱藏的軍機(jī)，這就是斯巴達(dá)密碼棒的由來．解密原理是將一個(gè)字符串從第一個(gè)字符開始按規(guī)定間隔將字符逐個(gè)取出．
用Visual Basic設(shè)計(jì)程序，程序界面、屬性窗口如圖2所示．在文本框Text1中輸入密文，在文本框Text2中輸入字符間隔數(shù)，單擊“解密”按鈕，在文本框Text3中輸處解密結(jié)果．
“解密”按鈕的事件處理過程代碼如下：
Private Sub Cmd1_Click（　?。?br />      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處顯示“斯巴達(dá)解密”，需修改Forml的

Caption

Caption

屬性．
（2）根據(jù)代碼可知“解密”按鈕的對(duì)象名是

Cmd1

Cmd1

．
（3）完善程序，在橫線處①應(yīng)填入的代碼是

len（s）

len（s）

．
（4）加框處代碼有誤，應(yīng)改為

Text3．text=j

Text3．text=j

．
（5）運(yùn)行程序，在文本框Text1中輸入“HIEEARLMAPUTMNTEDA”，在文本框Text2中輸入“3”，單擊“解密”按鈕，文本框Text3中顯示的內(nèi)容為

HELPME

HELPME

．