单击命令按钮时，下列程序的运行结果为

Private Sub Command1_Click（）

Print MyBM（23, 18）

End Sub

Public Function MyBM（m As Integer, n As Integer） As Integer

Do While m $amp;Do While m > n: m=m - n: Loop

Do While m < n: n=n - m: Loop

Loop

MyBM=m

End Function（）。

A．0

B．1

C．3

D．5