疱疹性龈口炎的病因是（）

A.细菌

B.病毒

C.真菌

D.衣原体

E.立克次体

单击命令按钮时，下列程序代码的运行结果为()。　　Private Sub Command1_Click()　　　　print MyFunc(20，18)　　End Sub　　Public Function MyFunc (m As Integer，n As Integer)As Integer　　　　Do While m <>n　　　　　　Do While m ＞ n：m=m - n：Loop　　　　　　Do While m ＜ n：n=n - m：Loop　　　　Loop　　　　MyFunc=m　　End FunCtion

A．0

B．2

C．4

D．6