（加试题）异或的数学符号为“⊕”，其运算法则相当于不带进位的二进制加法：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的结果是___________。
（2）实现上述功能的VB程序如下。请在划线处填入合适的代码。
Private Sub Command1_Click()
Dim a As Integer, b As Integer, c As Integer
Dim a1 As String, b1 As String
Dim lena1 As Integer, lenb1 As 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 =①_____
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(3 Mod 2)的值为"1"
DtoB = remainder + DtoB
②________  
Loop
End Function
Public Function BtoD(x As String) As Integer
Dim i As Integer
BtoD = 0
For i = 1 To Len(x)
BtoD =③________+ Val(Mid(x, i, 1))
Next i
End Function

现有如下Visual Basic程序段：

Dim a(1 To 10) As Integer

a(10) = 1

a(9) = 2

For x = 8 To 1 Step -1

  a(x) = a(x + 1) + a(x + 2)

Next x

该程序段运行后，a(6)的值是（  ）

A．5

B．8

C．11

D．13

某算法的部分流程图如图所示，以下说法正确的是（  ）

A．该流程执行后，变量k的值是-1

B．该流程执行后，变量a的值是16

C．该流程用于计算并输出1+8-16的值

D．该流程完整执行1次，“a<32?”共执行了3次

在VB中，下列程序段执行后，变量a,b,c的值分别是（  ）
a=1:b=1:c=1
do while a+b+c<=10
a=a+1
b=b*2
c=b/2
loop

A．2,2,1

B．3,4,2

C．4,8,4

D．4,4,2

某VB程序代码如下：
Dim n As Integer
Dim s As String
n = 73
s = ""
Do While n > 0
s = Str(n Mod 8) + s
n = n \ 8
Loop
执行该程序段后，变量s的值是 （ ）

A．"121"

B．121

C．"111"

D．111