题库 高中信息

题干

二进制数(111001)2 转换成十进制数是(    )
A.57B.67C.39D.30
上一题 下一题 0.99难度 选择题 更新时间:2016-01-21 08:32:10

答案(点此获取答案解析)

同类题1

将一个十进制正整数x转换成十六进制数的方法和转换成二进制类似,反复除16取余法,它的算法如下

第一步:x被除16取余数r1,r1是所求的十六进制数的一个数(第一次就是个位数);
第二步:r1转换成十六进制数的一个基数并转换成字符,追加到十六进制数S的左边;
第三步:求出x被除16的商x1;
第四步:对x1重复(1)、(2)、(3)过程,直至商为0;
第五步:最后的S即为所求的十六进制数;
下列Visual Basic程序的功能是将一个十进制正整数x转换成十六进制数。界面如图所示,在文本框Text1中输入一个十进制数制,单击“十进制转十六进制按钮”(Command1)后,在文本框Text2中输出转换的结果。相应的Visual Basic程序如下:
Private Sub Command1_Click()
Dim s As String, r As Integer
dec = val(Text1.Text) ’dec得到一个十进制整数,例如:255;
base = 16    ’base表示16
s = ""     ’s变量存放要转换到的十六进制整数;
Do While dec <> 0
r =
If r >=" 10" Then   ’如果base>10进制,r可能>10;
s =" Chr(65" + (r - 10)) + s  ’ Chr (65)="A", 16进制数A对应10;
Else ’ Chr (66)="B", 16进制数B对应11;
s =" Str(r)" + s ’余数r<10时,十进制数和十六进制基数相同;
End If ’Chr (65 +( r - 10))或str(r)在s左边,实现了反次序输出;
dec =    
Loop
Text2.Text = s
End Sub
(1)在   ①    应填入(   )
(2)在  ②    应填入(   )

同类题4

(加试题)某数据解密方法描述如下:对输入的密文(由英文字母或阿拉伯数字组成的字符串)进行解密,解密后输出明文。解密时对密文中的每个字符进行如下处理:
(1)将该字符的ASCII码转换成对应的8位二进制;
(2)将对应的8位二进制数进行按位取反(1变0,0变1);
(3)将产生的8位二进制数循环左移2次;

图a
(4)将最后产生的8位二进制数转换成对应的十六进制数。
例如,密文小写字母“d”通过上述解密算法解密后生成的明文是“6E”,信息加密过程如图b所示。

图b
实现上述功能的VB程序如下:在文本框Text1中输入密文,单击“解密”按钮Command1,程序对密文数据依次进行解密处理,在文本框Text2中显示解密后生成的明文。程序运行界面如图c所示。

图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 = "0123456789ABCDEF"
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