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

Private Sub Command1_Click()

Dim aS，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．ABCDl23456

C．D6C584A321

D．A182C3D456