某密文是由一串?dāng)?shù)字加密得到，其解密規(guī)則是：①對(duì)連續(xù)重復(fù)的大寫字母，僅保留1個(gè)；②在去重后的文本中，從首字符開始間隔5個(gè)字符取1個(gè)，依次連接取出的字符，即為明文。
編寫解密的VB程序，功能如下：在文本框Text1中輸入密文，單擊“解密”按鈕Command1，在文本框Text2中顯示去重后的文本，并在標(biāo)簽Label1中顯示明文。程序運(yùn)行界面如圖所示。

（1）命令按鈕Command1上顯示的“解密”文字，是通過修改該按鈕的

B

B

（單選，填字母：A.Font/B.Caption/C.BackColor）屬性實(shí)現(xiàn)的。
（2）實(shí)現(xiàn)上述功能的VB程序如下，請(qǐng)?jiān)跈M線處填入合適的代碼。
Private Sub Command1 Click （　?。?br />Dim s1 As String,s2 As String,c As String,mw As String
Dim i As Integer
s1=Text1.Text
s2=Mid（s1，1，1）
For i=2 To①

Len（s1）

Len（s1）

c=Mid（sl.i.1）
If c＞=“A“And c＜=“Z“Then
If②

c＜＞Mid（s2，Len（s2），1）

c＜＞Mid（s2，Len（s2），1）

Then s2=s2+c
Else
s2=s2+c
End If
Next i
mw=“”
i=6
Do While i＜=Len（s2）
mw=mw+Mid（s2，i,1）
③

i=i+6

i=i+6

Loop
Text2.Text=s2
Label1.Caption=mw
End Sub