题目

某数据解密算法描述如下： 1）在输入的数字字符串中依次提取有效的密文，有效的密文的特点： ①是一组连续的，都小于5的三位数字串；②每个位置上的数字不能被重复提取； 2）对有效密文进行解密的过程： 将密文作为一个五进制数转换为对应的十进制数值，根据ASCII字符的十进制编码表，得出对应的明文字符（提示：空格符所对应的ASCII码值为十进制数32，小写字母“z”所对应的ASCII码值为十进制数122）. 例如，密文242转换成十进制数为72，对应的明文字符为大写字母“H”。 程序运行界面如下图所示，在文本框Text1中输入密文，单击“解密”按钮，在文本框Text2中输出解密后的明文密码。 （1） 若输入的密文为“841497230235”，则对应的明文是。 （2） 实现上述功能的VB代码如下。划线处的语句有错，应改为。 '以下代码是将有效密文数字转换为十进制数的函数 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 c1<"5" Or c2 <"5" Or c3 <"5" 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 （3） 请在划线处填入合适的代码. ① ② ③  答案： 【1】mA 【1】c1<"5" And c2<"5" And c3<"5" 或其它等价答案 【1】k=k*5+Val(q) 或 k=k+Val(q)*5^(3-i) 或其它等价答案【2】p=Mid(st,i,3)【3】i=i+3

查看本题答案和解析