VB 最大公约数和最小公倍数

Private Sub Form_Click()
Dim A As Long, B As Long
A = Val(InputBox("请输入第一个数："))
B = Val(InputBox("请输入第二个数："))
Print "两个数为："; A; B
Print "最大公约数为："; MaxGYS(A, B)
Print "最小公倍数为："; MinGBS(A, B)
End Sub
Rem 求最大公约数
Private Function MaxGYS(A As Long, B As Long)
Dim X As Long, Y As Long, K As Long
X = IIf(A >= B, A, B)
Y = IIf(A