单项选择题
在窗体上画一个命令按钮，其名称为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．D6C5B4A321
D．A1B2C3D456