单选题：在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：Private Sub Coinmand1 Cl

在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：
Private Sub Coinmand1 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．A1B2C3D456