用VB设计程序，输入两个正整数，求出它们的最大公约数并输出

Private Sub Command1_Click()
Dim a As Long, b As Long

a = Val(InputBox("输入一个数a:"))
b = Val(InputBox("输入一个数b:"))
For i = 1 To sMin(a, b)
If (a / i = a \ i) And (b / i = b \ i) Then c = i
Next
Print "最大公约数是:"; c

End Sub

Function sMin(a As Long, b As Long) As Long
If a < b Then
sMin = a
Else
sMin = b
End If

End Function