窗体上有一个名为Command1的命令按钮，并有如下程序：

Private Command1_Click()

Dim m As Integer , n As Integer

m=InputBox(“输入第一个数”)

n=InputBox(“输入第二个数”)

Do While m<>n

Do While m>n

m=m-n

Loop

Do While n>m

n=n-m

Loop

Loop

Print m

End Sub

该程序的功能是（）。

A．求数值m和n的最大公约数

B．求数值m和n的最小公倍数

C．求数值m和n 中的较大数

D．求数值m和n中的较小数