单选题窗体上有一个名为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中的较小数

【正确答案】 A

【答案解析】 [解析] 本程序是典型的求最大公约数的程序，例如： m=25, n=20, m＞n, m=m-n=25-20=5； m＜n, n=n-m=20-5=15； m＜n, n=n-m=15-5=10； m＜n, n=n-m=10-5=5； m=n=5，循环终止，得到最大公约数5。