KGV Formel ???

[mike27]

Bitte wie berechne ich das kleinste gemeinsame vielfache mit Visual Basic

habt Ihr evtl. eine Formel dafür ( quelltext)

vielen dank

[Goos]

Die Formel hat doch Klotzkopp im C++ Forum quasi schon hingeschrieben.

Wenn du wirklich versuchst mit VB zu programmieren, dann solltest eigentlich wenigstens in der Lage sein das entsprechend zu uebersetzen

Goos

[Klotzkopp]

*VBrauskram*

Private Function kgv(a As Integer, b As Integer)

    If a < b Then

        l = a

        h = b

    Else

        l = b

        h = a

    End If

    i = h

    Do

        If i Mod l = 0 Then

            kgv = i

            Exit Do

        End If

        i = i + h

    Loop

End Function[/CODE]