数字1到64的二进制表示,谢谢!
发布网友
发布时间：2022-04-25 05:01
共2个回答
热心网友
时间：2023-10-27 23:47
想知道显示方式很容易，用Windows自带的计算器，在10进制输入你要知道2进制的样式，然后点2进制就知道了。
没有必要悬赏。
热心网友
时间：2023-10-27 23:47
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
