求最大公约数

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 TemparyValue As Integer

     If M < N Then

     TemparyValue = M

     M = N

     N = TemparyValue

     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