​
输入两个整数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​
​
‌​