14.某密文是由一串數(shù)字加密得到,其解密規(guī)則是:①對連續(xù)重復的大寫字母,僅保留1個;②在去重后的文本中,從首字符開始間隔5個字符取1個,依次連接取出的字符,即為明文。
編寫解密的VB程序,功能如下:在文本框Text1中輸入密文,單擊“解密”按鈕Command1,在文本框Text2中顯示去重后的文本,并在標簽Label1中顯示明文。程序運行界面如圖所示。
(1)命令按鈕Command1上顯示的“解密”文字,是通過修改該按鈕的
(單選,填字母:A.Font/B.Caption/C.BackColor)屬性實現(xiàn)的。
(2)實現(xiàn)上述功能的VB程序如下,請在橫線處填入合適的代碼。
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①
c=Mid(sl.i.1)
If c>=“A“And c<=“Z“Then
If②
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)
③
Loop
Text2.Text=s2
Label1.Caption=mw
End Sub