单选题在窗体上画一个命令按钮，其名称为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(a,k,1)
End If
k=k+1
Loop
Print c
End Sub
运行程序，单击命令按钮，输出结果是______。

A、 123456ABCD
B、 ABCD123456
C、 D6C584A321
D、 A182C3D456

【正确答案】 D

【答案解析】[解析] Mid函数用于提取字符串中的指定位数，函数调用格式为Mid(string，start[，length])，其中start为必要参数，为Long型，为被取出部分的首字符的位置。如果start超过string的字符数，Mid返回空串。length可选参数为返回的字符数，如果省略或lenglh超过文本的字符数，将返回字符串中从start到尾端的所有字符。Len函数的作用是返回串的长度。本题中a串长4，b串长6，每次循环将a、b的第k个字符取出连在一起给串c，k从1开始，当k=5时，将b中k位置的字符依次插入串c中。