题目

字符加密：用VB编写某字符串加密解密程序(仅针对ASCII码字符) ，其加密过程如下:首先，分别求出特加密ASCII字符的ASCII码，然后用7位二进制来表示，比如“4”的ASCII码为十进制52，转换为7位二进制为“0110100”其次，从左至右依次记为第1、2、3....7位，分别把第3、4、5位取反，即0变1， 1变0，至此“0110100”变为“0101000”，将此二进制转换为ASCII码为40，对应的字符为“(”，即“4”经过加密后得到加密字符左括号“(”。在文本框Text1中输入ASCII字符，单击命令按钮Command，则在文本框Text2中显示经过加密的字符。VB代码如下，程序界面如图所示。上述加密与解密过程实际上是可以互逆的，请完成下列问题。 （1） 若在文本框Text1中输入字符“46785”，则文本框Text2中显示加密字符 （2） 请在划线处填入合适的代码。Private Sub Command1_Click（）  Dim a(1 To 7) As Integer  Dim i As Integer， j As Integer， n As Integer  Dim ascl As String， s As String， s1 As String  i=1  S=Text1.Text  Text2.Text=“”  Do While i=Len(Text1.Text)      s1= Mid(s， i， 1)      ascl=Asc(s1)      n=0      For j=7 To 1 Step-1          If j=3 Or i=4 Or j=5 Then              a(j)=          Else              a(j) = asc1 Mod 2          End If          ascl=asc1\2          n=      Next j      Text2.Text =Text2.Text+      i=i+1  LoopEnd Sub 答案： 【1】(*+$) 【1】(ascl + 1) Mod 2或1-ascl Mod 2【2】n + a(j) * 2-(7-j)【3】Chr (n)

查看本题答案和解析