Sub Main()
        Dim a, b, c, d, m As Integer
        Console.WriteLine("donner A")
        a = Console.ReadLine
        Console.WriteLine("Donner B")
        b = Console.ReadLine
        c = b
        d = 1
        Do While (c + b) <= a
            c = c + b
            d = d + 1
        Loop
        m = a - (d * b)
        Console.WriteLine("le div est : " & d)
        Console.WriteLine("le MOD est : " & m)
        Console.ReadLine()
    End Sub