窗体上有一个名为Command1的命令按钮，并有如下程序：
Private Sub 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中的较小数

答案：A

解析：里层的两个Do循环分别是求m Mod n和n Mod m。显而易见，这个程序是使用辗转相除法来计算最大公约数。因此选A。