就是将二进制数据0000000到1111111之间的数据全部写出来,相当二进制循环加1,也相当于设计一个真值表.

来源：百度知道 编辑：UC知道 时间：2024/05/28 16:01:42
将二进制数据0000000到1111111之间的数据全部写出来,相当二进制循环加1,也相当于设计一个真值表.
那我想把结果考下来，怎么做呢,还有就是,这个界面不够显示的,只能显示到00111010,下面的就看不到了,怎么办?
这个程序For i = 0 To 255
For j = 7 To 0 Step -1
Print (-((i And 2 ^ j) = 2 ^ j));
Next j
Print
Next i
是可以的,但是它是在主窗体上显示的,结果也不能全部显示出来,也不知道怎么样将结果复制下来,要是能在TEXT中显示就好了

Private Sub Command1_Click()
For i = 0 To 255
For j = 7 To 0 Step -1
Text1.Text = Text1.Text & (-((i And 2 ^ j) = 2 ^ j))
Next j
Text1.Text = Text1.Text & vbCrLf
Next i

End Sub

0000000
0000001
0000010
0000011
0000100
0000101
0000110
0000111
0001000
0001001
0001010
0001011
0001100
0001101
0001110
0001111
0010000
0010001
0010010
0010011
0010100
0010101
0010110
0010111
0011000
0011001
0011010
0011011
0011100
0011101
0011110
0011111
0100000
0100001
0100010
0100011
0100100
0100101
0100110
0100111
0101000
0101001
0101010
0101011
0101100
0101101
0101110
0101111
0110000
0110001
0110010
0110011
0110100
0110101
0110110
0110111
0