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

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

Dim x As LongPrivate 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 SubPrivate 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 SubPrivate 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 = aEnd Function

收益了

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息