组卷题库 > 高中信息技术试卷库

浙江省教育绿色评价联盟2020届高三上学期信息技术10月适应性考试试题

作者UID:7189882
日期: 2024-11-17
月考试卷
选择题(本大题共12小题,每小题2分,共24分。)
非选择题(本大题共4小题,4+8+7+7,共26分)
某数据解密算法描述如下:1)在输入的数字字串中依次提取有效的密文,有效的密文是一组连续的,都小于5的三位数字串; 2) 数字不能重复被提取:3)对有效密文进行解密:

①将密文进行转换为一个十进制数值:例如密文242转换的表达式为:2*53+4*5*+2*5*=72 对应的明文字符为大写“H":

②得到的数值就是对应明文的ASCII 字符的十进制编码(提示:空格所对应的ASCII值为十进制32,小写字母“z”所对应的ASCII值为十进制数122);

程序运行界面如下图所示。在文本框Text1中输入密文,单击“解密”按钮,在文本框Text2 中输出解密后的明文密码。实现上述功能的VB代码如下:

Private Sub Convnand1_Click()

    Dim st, p, c1, c2, c3 As String

    Dim i, d, res 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    ‘①

            p = Mid(st, i, 3)

            d = conv(p)

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

                  ②      

        Else

            i =i+1

        End If

    Loop

    Text2 Text =    ③       

End Sub

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

Function conv(p As String) As Integer

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

    k=0:q=””

    For i =ITo 3

        q = Mid(p, i, 1)

              ④      

    Next i

    conv=k

End Function

试卷列表
教育网站链接