关于vb点虐 xor效验的信息

vb中的逻辑运算xor及eqv及imp定义

(1)异或Xor

在金塔等地区，都构建了全面的区域性战略布局，加强发展的系统性、市场前瞻性、产品创新能力，以专注、极致的服务理念，为客户提供成都网站建设、网站建设 网站设计制作定制网站建设,公司网站建设,企业网站建设,品牌网站建设,成都全网营销推广,外贸营销网站建设,金塔网站建设费用合理。

当两个表达式的值不同时(即一个为True，另一个为FALSE），其结果为True；当两个表达式的值相同(都为True或都为False)时，结果为False。也就是“异"则“真”，“同”则“假”。

(2)逻辑相等Eqv

与“异或"运算是一对互逆运算符，即当两个表达式的值相同(都为True或都为False)

，其结果为True；当两个表达式的值不同(一个为True，另一个为False)时，其结果为False。只要表达式中有一个为Null，则结果为Null。

(3)蕴含Imp

result=expres

sion

l

Imp

expression2

只有当第一个表达式expressionl为True，第二个表达式expreesion2为False时，结果才为False，其他情况下结果均为True。

1.

xor异或两个表达式值相同为False,相异为True2.

eqv逻辑等两个表达式值相同为True,相异为False3.

imp蕴含两个表达式前一个值为True,后一个值为False时,结果为True,其余情形皆为False

VB 中的xor运算符的含义？

XOR是异或的意思False Xor False =False

True Xor False =True

False Xor True =True

True Xor True =False 如果是两个数互相Xor的话，先化成2进制，然后对每位进行运算，相同则为零，不同则为1如:7 Xor 11

(7)10=(0111)2

(11)10=(1011)2

0 1 1 1

1 0 1 1

-Xor--------

1 1 0 0

(1100)2=12

所以7 Xor 11=12

vb点虐 中的xor怎么用？

xor表示双重作用，

textstyle = textstyle Xor FontStyle.Italic

就是说，在原来的基础上实现双重功能结合，比如你原来的字体是 加粗的，在运行这句语句后，就实验了加粗和倾斜的功能了，如果不用xor,实现就很麻烦了

求一个VB编的串口通讯用的异或XOR校验程序（或函数）

Private Sub cmdSendHex_Click() '16进制发送

Dim sj() As Byte

Dim sj_Txt As String

Dim i As Integer

sj_Txt = TxtSend

If Len(TxtSend) Mod 2 = 0 And Len(TxtSend)  0 Then '检验16进制字符串长

ReDim sj(Len(sj_Txt) / 2 - 1)

For i = 0 To Len(sj_Txt) - 1 Step 2

sj(i / 2) = Val("H"  Mid(sj_Txt, i + 1, 2))

Next

Print Hex(sj(0) Xor sj(1) Xor sj(2))

Else

MsgBox ("格式不对!")

End If

Text1 = TxtSend  Right("0"  Hex(sj(0) Xor sj(1) Xor sj(2)), 2)

End Sub

Private Sub Form_Load()

TxtSend = "010308"

注意,LZ的另一问帖,我已经做了回复.