题目

某数据解密方法描述如下：对输入的密文(由英文字母或阿拉伯数字组成的字符串)进行解密，解密后输出明文。解密时对密文中的每个字符进行如下处理： 1)将该字符的ASCII码转换成对应的8位二进制； 2)将对应的8位二进制数进行按位取反(1变0，0变1)； 3)将产生的8位二进制数循环左移2次； 4)将最后产生的8位二进制数转换成对应的十六进制数。例如，密文小写字母“d”通过上述解密算法解密后生成的明文是“6E”，信息加密过程如图b所示。 实现上述功能的VB程序如下：在文本框Text1中输入密文，单击“解密”按钮Com-mand1，程序对密文数据依次进行解密处理，在文本框Text2中显示解密后生成的明文。 程序运行界面如图c所示。实现上述功能的VB程序如下，请回答下列问题： （1） 如果输入密文为小写字母“a”，则解密后得到的明文是。 （2） 请在划线处填入合适代码。 Function jiemi(m As String) As String     '将4位二进制数转换成相应的十六进制数     Dim k As Integer, i As Integer     Dim str As String     str=“0123456789 A BCDEF”     k=0     For i=1 To 4         k=k * 2+Val(Mid(m, i, 1))     Next i      End Function Private Sub Command1_Click()     Dim ans As String, s As String, ch As String, ret As String     Dim s1 As String, s2 As String     Dim i As Integer, m As Integer, asc1 As Integer, n As Integer     s= Text1. Text     ans=“”     For i=1 To Len(s)         ch= Mid(s,i, 1)         '取出第i个字符存入变量ch         asc1= Asc(ch)         ret =“”         For m=1 To 8             '完成解密步骤(1)和步骤(2)                          ret=n & ret             asc1=asc1 \ 2         Next m         ret= Mid(ret, 3,6) +Mid(ret, 1, 2)         '完成解密步骤(3)         s1 = jiemi(Mid(ret, 1, 4))                  ans= ans &s1 &.s2    '将第i个解密后的字符添加到变量ans的末尾     Next i     Text2. Text= ans End Sub 答案： 【1】7A 【1】jiemi= Mid(str， k+1，1)【2】n= (asc1+1)Mod 2【3】s2 = jiemi(Mid(ret， 5，4))

查看本题答案和解析