vb.net (Opgelost)

'Variabelen
Private count, base, search, result, rest As Integer

Sub Main()
    
    'Naar de eerste twee "vaste" waarden vragen
    Console.Write("Count: ")
    count = Convert.ToInt32(Console.ReadLine())
    Console.Write("Base Value: ")
    base = Convert.ToInt32(Console.ReadLine())

    'Oneindige loop starten
    While (True)
        'Naar search value vragen
        Console.Write("Search Value: ")
        search = Convert.ToInt32(Console.ReadLine())
        
        'Math.DivRem() berekent het resultaat van deling en in de
        'derde parameter wordt de rest na deling opgeslagen
        result = Math.DivRem(search, base, rest)

        'Als de deling een geheel getal geeft en als het kleiner
        'of gelijk aan de "Base" is, een geldige melding geven
        If rest = 0 AndAlso result <= count Then
            Console.WriteLine(search.ToString() & " is the " & result & " multiple of " & base.ToString())
        'Anders een melding geven dat het niet gevonden werd
        Else
            Console.WriteLine(search.ToString() & " is not found in the first " & count.ToString() & " multiples of " & base.ToString())
        End If
    End While

End Sub

'Variabelen
Private count, base, search, result, rest As Integer
 
Sub Main()
 
    'Naar de eerste twee "vaste" waarden vragen
    Console.Write("Count: ")
    count = Convert.ToInt32(Console.ReadLine())
    Console.Write("Base Value: ")
    base = Convert.ToInt32(Console.ReadLine())
 
    'Oneindige loop starten
    While (True)
        'Naar search value vragen
        Console.Write("Search Value: ")
        search = Convert.ToInt32(Console.ReadLine())
 
        'Math.DivRem() berekent het resultaat van deling en in de
        'derde parameter wordt de rest na deling opgeslagen
        result = Math.DivRem(search, base, rest)
 
        'Als de deling een geheel getal geeft en als het kleiner
        'of gelijk aan de "Base" is, een geldige melding geven
        If rest = 0 AndAlso result <= count Then
            Console.WriteLine(search.ToString() & " is the " & result & " multiple of " & base.ToString())
        'Anders een melding geven dat het niet gevonden werd
        Else
            Console.WriteLine(search.ToString() & " is not found in the first " & count.ToString() & " multiples of " & base.ToString())
        End If
    End While
 
End Sub