计算两数之间的最大公约数

Option Explicit
Private Sub Command1_Click()
  
Dim M As Integer
  
Dim N As Integer
  
M=Int(Val(Text1.Text))
  
N=Int(Val(Text2.Text))
  
Dim TemporyValue As Integer
  
If M=N Then
     
TemporyValue=M
     
M=N
     
N=TemporyValue
  
End If
  
Dim Remainder As Integer
  
Remainder=M Mod N
  
While Remainder <> 0
     
M=N
     
N=Remainder
     
Remainder=M Mod N
 
Wend
 
Label4.Caption=Str(N)
End Sub