computer 版 (精华区)

发信人: windoe (为中国电信做贡献), 信区: program
标  题: VB:VB有位操作吗？怎么知道一个字节的某个位的值？
发信站: 听涛站 (Fri Mar 10 19:08:58 2000), 转信

下面是一个字节的异或操作例子：
Private Sub Form_Click()
Dim bitvalue As Byte ’定义字节变量
bitvalue = &H10 ’16进制赋值
bitvalue = bitvalue Xor &H10 ’异或操作XOR
Debug.Print bitvalue ’输出结果
End Sub


--By Kammi's SuperPost General Version
--

夜中不能寐，起坐弹鸣琴。
    薄帷鉴明月，清风吹我襟。
孤鸿号外野，翔鸟鸣北林。
    徘徊将何见，忧思独伤心。