vb分别用子过程和子函数编写求两个数的最大公约数（算法用辗转相减法）

网友回答

Dim x As Long
Private Sub Command1_Click()
Dim a As Long, b As Long
a = Val(InputBox(A=))
b = Val(InputBox(B=))
Call gcd(a, b)
Print 用过程计算的; a; 和; b; 的最大公约数是：; x
Print 用函数计算的; a; 和; b; 的最大公约数是：; gcd1(a, b)
End Sub
Private Sub gcd(ByVal a As Long, ByVal b As Long)
Dim r As Long
Do r = a Mod b
a = b b = r Loop Until r = 0
x = aEnd Sub
Private Function gcd1(ByVal a As Long, ByVal b As Long) As Long
Dim r As Long
Do r = a Mod b
a = b b = r Loop Until r = 0
gcd1 = a
End Function