试题

试题 试卷

logo

题型:综合题 题类:常考题 难易度:普通

浙江省浙南名校联盟2019-2020学年高二下学期信息技术期末联考试卷

某数据解密算法描述如下:

⑴在输入的数字字符串中依次提取有效的密文,有效的密文的特点:

①是一组连续的,都小于5的三位数字串;②每个位置上的数字不能被重复提取;

⑵对有效密文进行解密的过程:

将密文作为一个五进制数转换为对应的十进制数值,根据ASCII字符的十进制编码表,得出对应的明文字符(提示:空格符所对应的ASCII码值为十进制数32,小写字母”z”所对应的ASCII码值为十进制数122)。

例如,密文242转换成十进制数为72,对应的明文字符为大写字母“H”。

程序运行界面如下图所示,在文本框Text1中输入密文,单击“解密”按钮,在文本框Text2中输出解密后的明文密码。

(1)、若输入的密文为“841497230235”,则对应的明文是
(2)、实现上述功能的VB代码如下,加框处的语句有错,应改为
(3)、请在划线处填入合适的代码。

'以下代码是将有效密文数字转换为十进制数的函数

Function conv(p As String) As Integer

  Dim k As Integer, q As String, i As Integer

  k = 0: g = ""

  For i = 1 To 3

    q = Mid(p, i, 1)

    

  Next i

  conv = k

End Function

Private Sub Command1_Click()

  Dim st As String, p As String, res As String

  Dim c1 As String, c2 As String, c3 As String

  Dim i As Integer, d As Integer, n As Integer

  st = Text1.Text: n = Len(st)

  i = 1: res = ""

  Do While i <= n – 2        '提取有效密文,并进行转换

    c1 = Mid(st, i, 1): c2 = Mid(st, i + 1, 1): c3 = Mid(st, i + 2, 1)

    If  Then

     

      d=conv(p)

    If d >= 32 And d <= 122 Then res = res + Chr(d)

     

    Else

      i = i + 1

    End If

  Loop

  Text2.Text = res

End Sub

举一反三
返回首页

试题篮