题目

某密文是由一串数字加密得到，其解密规则是：①对连续重复的大写字母，仅保留1个；②在去重后的文本中，从首字符开始间隔5个字符取1个，依次连接取出的字符，即为明文。 编写解密的VB程序，功能如下：在文本框Text1中输入密文，单击“解密”按钮Command1，在文本框Text2中显示去重后的文本，并在标签Label1中显示明文。程序运行界面如图所示。 （1） 命令按钮Command1上显示的“解密”文字，是通过修改该按钮的（单选，填字母：A .Font/ B .Caption/ C .BackColor）属性实现的。 （2） 实现上述功能的VB程序如下，请在划线处填入合适的代码。 Private Sub Command1Click( )     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（s1, i, 1）         If c>="A" And c<= "Z" Then         IfThen 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 答案： 【1】B 【1】Len（s1）或 Len（Text1. text）或其他等价表达式【2】c<>Mid（s1，i-1，1）或c<>Mid（s2，Len（s2），1）或c<>Mid（s2，Len（s2））或其他等价表达式【3】i=i+6 或其他等价语句

查看本题答案和解析