题型：综合题 题类：常考题 难易度：困难
浙江省慈溪市2019-2020学年高二下学期信息技术期末考试试卷
①将该字符的ASCII码转换为8位二进制数；
②将后4位二进制数逐位取反（1变0，0变1）
③将操作②生成的4位二进制数均右移一-位， 原第4位变成新的第1位；
④将原来的前4位二进制数连接新的后4位二进制数成为最终加密后字符的内码。
例如字符“A”经过上述加密运算，可得到字符“M”。
|
ASCII码 |
转二进制数 |
后4位取反 |
后4位右移 |
拼合 |
转十进制 |
转字符 |
|
65D |
0100 0001B |
1110 |
0111 |
0100 0111B |
71D |
G |
Private Sub Command1_ Click()
Dim s As String, s1 As String, s2 As String, n As Integer
Dim x As Integer, i As Integer, j As Integer, C As Integer
Dim a（15） As String
a（0） = "000"： a(1) = "0001"： a(2) = "0010"： a(3) =“011"： a(4) = "0100"：a(5) = "0101"： a(6) ="0110"： a(7) = "111"： a(8) = "1000" a(9) ="1001"：a(10) = "1010"： a（11） ="1011"： a（12） = "1100"a（13） = "1101"： a（14）= "1110"：a（15） ="1111"
s2 = ""： s = Text1. Text
For i=1 To Len（s）
n = Asc（Mid（s, i, 1））
c=n Mod 16
s1 =
x = Va1（Mid（s1, 1,1））
For j=2 To 4
x=x+
Next j
x=(n/16）*16
s2 = s2 + Chr（x）
Next i
Text2. Text = s2
End Sub
试题篮
