充值活动已开启,快来参与吧 关闭充值活动
当前位置: 高中信息技术 /
  • 1. 某密文由一串数字加密得到,其解密规则是:①对连续重复的大写字母,仅保留1个;②在去重后的文本中,从首字符开始间隔5个字符取1个,依次连接取出的字符,即为明文。编写解密的VB程序,功能如下:在文本框Text1中输入密文,单击“解密”按钮Command1,在文本框Text2中显示去重后的文本,并在标签Label1中显示明文。程序运行界面如图所示。

    1. (1) 命令按钮Command1上显示的“解密”文字,是通过修改该按钮的(单选,填字母:A .Font/ ;B .Caption/ ;C .BackColor)属性实现的。
    2. (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

          c = Mid(s1,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