数字1到64的二进制表示,谢谢!

Question

请问:
十进制数字:
1\2\3\4\5\6\7\8
9\10\11\12\13\14\15\16
17\18\19\20\21\22\23\24
25\26\27\28\29\30\31\32
33\34\35\36\37\38\39\40
41\42\43\44\45\46\47\48
49\50\51\52\53\54\55\56
57\58\59\60\61\62\63\64
转成二进制分别是怎么显示的?
注意:
1、请写出至少1——40间的表示方法。
2、并且以8位数和16位数的显示一一对照写出，最好先8位在16位。
3、不用教我算法!
4、如果能全不写完并符合我以上的要求,我会追加积分和评价!
谢谢!!!

Answer 1

8位能够表示到256了。你16位也只是在前面加0而已。
想知道显示方式很容易，用Windows自带的计算器，在10进制输入你要知道2进制的样式，然后点2进制就知道了。
没有必要悬赏。本回答被网友采纳

Answer 2

十进制;二进制;八进制;16进制
1;1;1;1;
2;10;2;2;
3;11;3;3;
4;100;4;4;
5;101;5;5;
6;110;6;6;
7;111;7;7;
8;1000;10;8;
9;1001;11;9;
10;1010;12;A;
11;1011;13;B;
12;1100;14;C;
13;1101;15;D;
14;1110;16;E;
15;1111;17;F;
16;10000;20;10;
17;10001;21;11;
18;10010;22;12;
19;10011;23;13;
20;10100;24;14;
21;10101;25;15;
22;10110;26;16;
23;10111;27;17;
24;11000;30;18;
25;11001;31;19;
26;11010;32;1A;
27;11011;33;1B;
28;11100;34;1C;
29;11101;35;1D;
30;11110;36;1E;
31;11111;37;1F;
32;100000;40;20;
33;100001;41;21;
34;100010;42;22;
35;100011;43;23;
36;100100;44;24;
37;100101;45;25;
38;100110;46;26;
39;100111;47;27;
40;101000;50;28;
41;101001;51;29;
42;101010;52;2A;
43;101011;53;2B;
44;101100;54;2C;
45;101101;55;2D;
46;101110;56;2E;
47;101111;57;2F;
48;110000;60;30;
49;110001;61;31;
50;110010;62;32;
51;110011;63;33;
52;110100;64;34;
53;110101;65;35;
54;110110;66;36;
55;110111;67;37;
56;111000;70;38;
57;111001;71;39;
58;111010;72;3A;
59;111011;73;3B;
60;111100;74;3C;
61;111101;75;3D;
62;111110;76;3E;
63;111111;77;3F;
64;1000000;100;40;

这个如下一段代码来产生的

Private Sub Command1_Click()
Open "c:\1to64.txt" For Output As #1
Dim a As Integer
For a = 1 To 64
Print #1, CStr(a) & ";" & CBin(a) & ";" & COct(a) & ";" & CHex(a) & ";"
Next
Close #1
End Sub

Function CBin(ByVal a As Integer) As String
While a > 0
CBin = CStr(a Mod 2) & CBin
a = a \ 2
Wend
End Function

Function COct(ByVal a As Integer) As String
While a > 0
COct = CStr(a Mod 8) & COct
a = a \ 8
Wend
End Function
Function CHex(ByVal a As Integer) As String
Dim k As String
While a > 0
Select Case (a Mod 16)
Case 10: k = "A"
Case 11: k = "B"
Case 12: k = "C"
Case 13: k = "D"
Case 14: k = "E"
Case 15: k = "F"
Case Else: k = CStr(a Mod 16)
End Select
CHex = k & CHex
a = a \ 16
Wend
End Function