vb求最大公约数fornext语句

Private Sub Command1_Click()
m = InputBox("输入第一个自然数")
n = InputBox("输入第二个自然数")
If m > n Then t = m: m = n: n = t
Dim i As Integer, x As Integer
For i = 1 To m
If n Mod i = 0 And m Mod i = 0 Then
x = i
End If
Next

MsgBox ("最大公约数为" & x)
End Sub

Function minor(x As Integer, y As Integer) As Integer
Dim m As Integer, i As Integer

If x < y Then
m = x
Else
m = y
End If

minor = 1

For i = 2 To m / 2
If (x Mod i = 0) And (y Mod i = 0) Then
minor = i
End If
Next

End Function

Private Sub Form_Load()
MsgBox minor(60, 24)
End Sub