单项选择题

在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：
Private Sub Command1_Click()
Dim a$,b$,c$,k%
a="ABCD"
b="123456"
c=" "
k=1
Do White 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
运行程序，单击命令按钮，输出结果是( )