異或的數學符號為“⊕”，其運算法則相當于不帶進位的二進制加法：0⊕0=0，1⊕0=1，0⊕1=1，1⊕1=0（即符號兩側數值相同時，計算結果為0；數值不同時為1）。
如果要對兩個十進制數進行異或運算，可以按以下步驟進行：
①先將要進行異或運算的兩個十進制數分別轉換為二進制；
②對兩個二進制數按位進行異或運算；例：（101101）₂⊕（111）₂=（101010）₂
③再把步驟②中的運算結果轉換為十進制，該十進制數即為運算結果。
小明編寫了一個VB程序來模擬上述運算過程，程序功能如下：在文本框Text1和Text2中分別輸入要參加異或運算的十進制數，單擊計算按鈕Command1，程序對輸入的兩個數進行異或運算，并將運算結果顯示在文本框Text3中，程序運行界面如圖所示。
（1）通過以上關于異或運算的描述，可知10⊕6的結果是

12

12

。
（2）實現上述功能的VB程序如下。請在橫線處填入合適的代碼。
Private Sub Command1_Click （　　）
Dim a As Integer,b As Integer,c As Integer
Dim a1As String,b1As String
Dim lena1As Integer,lenb1As Integer,i As Integer
Dim result As String
a=Val（Text1．Text）
b=Val（Text2．Text）
If a＞b Then
c=a：a=b：b=c
End If
result=““
a1=DtoB（a）：b1=DtoB（b）
lena1=Len（a1）：lenb1=Len（b1）
i=1
Do While i＜=lena1
If Mid（a1，lena1-i+1，1）=Mid（b1，lenb1-i+1，1）Then
result=“0“+result
Else
result=“1“+result
End If
i=i+1
Loop
result=①

Mid（b1，1，lenb1-i+1）+result

Mid（b1，1，lenb1-i+1）+result

Text3．Text=BtoD（result）
End Sub
Public Function DtoB（x As Integer） As String
Dim remainder As String
DtoB=““
Do While x＞0
remainder=CStr（x Mod 2）'如：CStr（3Mod 2）的值為“1“
DtoB=remainder+DtoB
 ②

x=x\2

x=x\2

Loop
End Function
Public Function BtoD（x As String） As Integer
Dim i As Integer
BtoD=0
For i=1To Len（x）
BtoD=③

BtoD*2

BtoD*2

+Val（Mid（x,i,1））
Next i
End Function