Function kgv(getal1 As Integer, getal2 As Integer) As Integer
kgv = getal1
Do
If kgv Mod getal2 = 0 And kgv Mod getal1 = 0 Then Exit Function
kgv = kgv + 1
Loop
End Function
Function ggd(getal1 As Integer, getal2 As Integer) As Integer
ggd = getal1
Do
If getal1 Mod ggd = 0 And getal2 Mod ggd = 0 Then Exit Function
ggd = ggd - 1
Loop
End Functio