单项选择题

窗体上有一个名称为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 　　该程序的功能是( )。