当前位置: 高中信息技术 / 综合题
  • 1. (2019高一下·上海月考) 某密文是由一串数字加密得到,其解密规则是:①对连续重复的大写字母,仅保留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 = Micd(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

微信扫码预览、分享更方便