異或（xor）是一個(gè)數(shù)學(xué)邏輯運(yùn)算符，如：x xor y,其運(yùn)算具體方法描述如下：
（1）分別將十進(jìn)制數(shù)x,y轉(zhuǎn)換為二進(jìn)制，并將轉(zhuǎn)換的每位二進(jìn)制數(shù)分別存儲(chǔ)到數(shù)組a,b中：如果兩個(gè)二進(jìn)制位數(shù)不相等，則位數(shù)較少的前面用“0”不足，使之a(chǎn),b數(shù)組元素個(gè)數(shù)一致；
（2）取出數(shù)組a,b中下標(biāo)相同的數(shù)組元素進(jìn)行運(yùn)算，若值相同，則結(jié)果為0，否則為1．根據(jù)上述運(yùn)算方法，示例如表所示．

變量	十進(jìn)制	二進(jìn)制
x	19	1	0	0	1	1
數(shù)組a		a（5）	a（4）	a（3	a（2	a（1）
y	9	0	1	0	0	1
數(shù)組b		b（5）	b（4）	b（3	b（2	b（1）
x xor y		1	1	0	1	0

小明編寫(xiě)了一個(gè)VB程序，功能如下：在文本框Text1、Text2中分別輸入x、y的值，單擊“異或”按鈕Commandl,程序?qū)?shù)據(jù)進(jìn)行異或運(yùn)算，并將結(jié)果顯示在列表框List1中．實(shí)現(xiàn)上述功能的VB程序如下，但加框處代碼有錯(cuò)，請(qǐng)改正．Function f（z As Integer）As String,將十進(jìn)制數(shù)轉(zhuǎn)換為二進(jìn)制數(shù)，代碼略．End FunctionPrivate Sub Commandl_Click（　?。〥im x As Integer,y As Integer,mAs Integer,i As Integer,Dim sl As String,s2 As String,s3 AS  StringDim a（1 to 15）As String,b（1 to 15）AsString
x=Val （Text1．Text）：y=Val （Text2．Text）
If x＜y Then
m=x：x=y：y=m
End If
s1=f（x）：s2=f（y）
 k=Len（sl）
For i=1 To k’將轉(zhuǎn)換后的二進(jìn)制數(shù)按位分別存儲(chǔ)到數(shù)組a和b
a（i）=Mid（sl,k-i+1，1）
If i＜=Len（s2）Then
b（i）=Mid（s2，Len（s2）-i+1，1）
Else
，（1）
End If
Next i
For  i=1 To k
If Then s3=“0“+s3 Elses3=“1“+s3 ^，_（2）
Next i
List1．Addltem“異或結(jié)果是：“+S3
End Sub.