Visual Basic2005 中的同或运算问题

来源：百度知道 编辑：UC知道 时间：2024/05/24 02:59:09
Visual Basic2005中没有了vb6.0中的eqv函数，那么同或运算怎么实现呢？比如，我要实现两个数（5和8）的同或，5的二进制数为101，8的二进制数为1000，同或以后结果应该是10.请各位大虾帮忙了，小弟不胜感激。
我指的是按位同或。

同或的规则是相同为1，不同为0，按照这个思路，可这样编写：
r="101"
s="1000"
m=len(r)
n=len(s)
if m<n then
r=string(n-m,"0")+r
elseif m>n
s=string(m-n,"0")+s
end if
H=""
for i=1 to len(s)
if mid(r,i,1)=mid(s,i,1) then
H=H+"1"
else
H=H+"0"
end if
next i
pring H