如何实现按位求补 急！！！

[yanxh_1685]

在C#中有 ~ 运算符对操作数执行按位求补操作
那在VB中如何实现呢。
Open fname For Binary As #1
For i = 1 To 64 ' LOF函数是求文件长度的内部函数
Get #1, i, x ' 取出第i个字节
x = qiuFan(x) ' 这里调用了求补函数
Put #1, i, x ' 将加密后的这个字节写回到文件原位置
Next i
Close

如何实现求补函数呢。 望指教，谢谢！

[superxmz]

and

[viena]

Not Expression
逻辑非运算符：
Boolean。结果为操作数的逻辑非。
Byte、Short、Integer 和 Long 类型，以及所有枚举类型。结果为操作数的按位求补。

[davidcao]

Private Function qufan(x As Byte) As Byte
Dim a As Byte
a = &HFF - x
qufan = a
End Function

[of123]

Private Function qufan(x As Byte) As Byte
qufan = &HFF - x
End Function

[of123]

Open fname For Binary As #1
For i = 1 To 64 ' LOF函数是求文件长度的内部函数
Get #1, i, x ' 取出第i个字节
x = 255 - x ' 这里调用了求补函数
Put #1, i, x ' 将加密后的这个字节写回到文件原位置
Next i
Close

[yanxh_1685]

谢谢各位!

[James0001]

Not