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

论述疱疹性口炎的鉴别诊断。