Function gcd%(ByVal i%, ByVal j%)
Dim k%
gcd = 1
k = 2
Do While k <= i And k <= j
If i Mod k = 0 And j Mod k = 0 Then
i = i / k
j = j / k
gcd = gcd * k
Else
k = k + 1
End If
Loop
End Function
Sub s()
c = InputBox("")
a = InputBox("")
For i = 1 To c - 1
b = InputBox("")
a = gcd(a, b)
Next
MsgBox a
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024