单选题在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：
Private Sub Command1_Click()
Dim a$, b$, c$, k%
a="ABCD"
b="123456"
c=""
k=1
Do While k＜=Len(A) Or k＜=Len(B)
If k＜=Len(A) Then
c=c&Mid(a,k,1)
End If
If k＜=Len(B) Then
c=c & Mid(b,k,1)
End If
k=k+1
Loop
Print c
End Sub
运行程序，单击命令按钮，输出结果是

A、 123456ABCD
B、 ABCD123456
C、 D6C5B1A321
D、 A1B2C3D456

【正确答案】 D

【答案解析】[解析] 此题综合考查了Do While循环、Len()函数、Mid()函数。Len(A)=4，Len(b)=6，字符型变量c用于每次连接计算的结果。Mid(a, k, 1)表示从字符串a左边第k个位置开始向右取1个字符。当k=1时，执行第一次循环，两个If语句都被执行，第一个If判断之后，c="A"，第二次If判断之后，c="A1"。前四次k的值都可以执行两个If语句。当k=5时，第一个If语句不再执行，只执行第二个If语句，最后的结果c="AIB2C3D456"。