窗体上有一个名称为Command1的命令按钮，并有如下程序： 　　Private Sub Command1Click() 　　Dim m As Integer，n As Integer 　　m=InputBox("输入第一个数") 　　nzInputBox("输入第二个数") 　　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中的较小数