Dieser kleine Algorithmus gibt den größten gemeinsamen Teiler (ggT) von 2 Zahlen zurück.
Public Function ggT(ByVal A As Integer, ByVal B As Integer) As Integer
While B <> 0
If A > B Then
A -= B
Else
B -= A
End If
End While
Return A
End Function
Kommentare zum Snippet