某密文是由一串数字加密得到，其解密规则是：①对连续重复的大写字母，仅保留1个；②在去重后的文本中，从首字符开始间隔5个字符取1个，依次连接取出的字符，即为明文。
编写解密的VB程序，功能如下：在文本框Text1中输入密文，单击“解密”按钮Command1，在文本框Text2中显示去重后的文本，并在标签Label1中显示明文。程序运行界面如图所示。

（1）命令按钮Command1上显示的“解密”文字，是通过修改该按钮的

B

B

（单选，填字母：A.Font/B.Caption/C.BackColor）属性实现的。
（2）实现上述功能的VB程序如下，请在横线处填入合适的代码。
Private Sub Command1 Click （　　）
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