输入两个整数M,N,求它俩的最大公约数。 Private Sub Command1_Click() Dim m%, n% ,t%,x% m = Val(InputBox(" 请输入第1个数m:")) n = Val(InputBox( “ 请输入第2个数n: ” )) If m < n Then t = m: m = n: n = t For y = n To 1 Step -1 If Then Print " 最大公约数为:"; y Exit For End If Next y End Sub