主题：[求助]请问n个数的最大公约数怎么求？

Dim nms() As Integer =  {30 ,50 ,30 ,30 ,60}

Array.Sort(nms)

Dim gys As new List(of Integer)

For n As Integer = nms(0) To 2 Step -1

    Dim Isg As Boolean=True

    For i As Integer = 0 To nms.length-1

        If (nms(i) Mod n)<>0 Then

            Isg=False

            Exit For

        End If

    Next

    If Isg Then

       gys.Add(n)

    End If

Next

Dim z As Integer=1

For Each n As Integer In gys

   z= z*n

Next

output.show(z)

大概是这个样子