11352, ByVal n As Long) As Long
Dim t As Long
Dim r As Long
If m < n Then t = m, 21672Private Function Divisor(ByVal m As Long, i As Byte
a = Array(27090: m = n: n = t
Do
r = m Mod n
m = n
n = r
Loop Until r = 0
Divisor = m
End Function
Private Sub Form_Click()
Dim a, gcd&
求27090,21672,11352,8127的最大公约数【填空】
答案:1 悬赏:60
解决时间 2021-02-20 22:31
- 提问者网友:久伴不朽
- 2021-02-20 16:17
最佳答案
- 二级知识专家网友:瘾与深巷
- 2021-02-20 17:08
Divisor(gcd, a(i))
我要举报
如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
推荐资讯