求最大公约数代码
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