当前位置: 高中信息技术 / 综合题
  • 1. (2020高一下·瑞安期末) 某密文是由一串数字加密得到,其解密规则是:①对连续重复的大写字母,仅保留1个;②在去重后的文本中,从首字符开始间隔5个字符取1个,依次连接取出的字符,即为明文。

    编写解密的VB程序,功能如下:在文本框Text1中输入密文,单击“解密”按钮Command1,在文本框Text2中显示去重后的文本,并在标签Label1中显示明文。程序运行界面如下图所示。

    1. (1) 实现上述功能的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

    2. (2) 若密文为“XXXX923JBBBYYYY##43aG544Zo$$a0ZZZSSS@wwwIiwf3fYYYrinns”,则相对应的明文为

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