'Visual Basic 2010 Recursie Procedures en Functies
Module Example3
    Sub Main()
        Console.WriteLine(GetCommonDivisor(3, 9))
        Console.WriteLine(GetCommonDivisor(3, -9))
        Console.WriteLine(GetCommonDivisor(8, 3))
        Console.WriteLine(GetCommonDivisor(-3, -8))                        ' (1)
        Console.WriteLine(GetCommonDivisor(6, 0))
        Console.WriteLine(GetCommonDivisor(0, 6))
        Console.WriteLine(GetCommonDivisor(8, 12))
        Console.WriteLine(GetCommonDivisor(9, 9))
        '
        Console.ReadLine()
    End Sub
    Function GetCommonDivisor(ByVal value1 As Integer, _
                              ByVal value2 As Integer) As Integer
        If value1 < 0 Then
            GetCommonDivisor = GetCommonDivisor( value1, value2)
        ElseIf value2 < 0 Then
            GetCommonDivisor = GetCommonDivisor(value1,  value2)
        ElseIf value1 < value2 Then
            GetCommonDivisor = GetCommonDivisor(value2, value1)
        ElseIf value2 = 0 Then
            GetCommonDivisor = value1
        Else
            GetCommonDivisor = GetCommonDivisor(value2, value1 Mod value2)
        End If
    End Function
End Module
'Bezoek www.vbvoorbeelden.be voor meer Visual Basic voorbeelden.
'Copyright - De Wolf / vbvoorbeelden - 2003-2011 - Alle rechten voorbehouden.