for x in range(0, 10): 
    y + x = 1

Function isPrime(ByVal num As Integer) As Boolean
        Dim i As Integer
        Dim auxTest As Boolean
        Dim auxCriba(9) As Integer 
        auxCriba(0) = 2
        auxCriba(1) = 3
        auxCriba(2) = 5
        auxCriba(3) = 7
        auxCriba(4) = 11
        auxCriba(5) = 13
        auxCriba(6) = 17
        auxCriba(7) = 19
        auxCriba(8) = 23
        auxCriba(9) = 29
 
        For i = 0 To auxCriba.Length - 1
            If num Mod auxCriba(i) = 0 Then
                isPrime = False
            Else
                auxTest = True
 
            End If
        Next
 
        Return auxTest
    End Function

    Sub Main()
        Dim Min, Max, maxPrim As Integer
        Dim i, j As Integer
        Dim Primes() As Integer
 
        Console.Write("Introduce el maximo de primos a mostrar: ")
        maxPrim = CInt(Console.ReadLine())
        Console.Write("Introduce el minimo del intervalo: ")
        Min = CInt(Console.ReadLine())
        Console.Write("Introduce el maximo del intervalo: ")
        Max = CInt(Console.ReadLine())
        Console.WriteLine()
        Console.WriteLine()
        ReDim Primes(maxPrim-1)
 
        For i = 0 To maxPrim - 1 'este for es para almacenar el numero primo en el array Primes(), en la posicion "i"
            For j = Min To Max - 1 'y este recorrre desde el valor minimo hasta el maximo y va comparando si el valor de "j" es un numero primo(deberia)
                If isPrime(j) = True Then
                    Primes(i) = j
                End If
            Next
        Next
 
        Console.Write("Los numero primos entre " & Min & " y " & Max & " son: ")
        For i = 0 To Primes.Length - 1 
            Console.Write(Primes(i) & " ")
        Next
        Console.ReadLine()
    End Sub

19 19 19 19 19 19 19 19 19 19 

    Function DecToBin(ByVal numDec As Integer) As String
        Dim ret As String = ""
        Dim arrRet() As Char
 
        While Not numDec = 1
            ret = ret & CStr(numDec Mod 2)
            numDec = numDec \ 2
        End While
 
        ret = ret & "1"
        ReDim arrRet(ret.Length())
        arrRet = ret.ToCharArray
        Array.Reverse(arrRet)
        Return arrRet
    End Function

        Dim n As Integer
        Console.WriteLine("Introduce un numero en Decimal para Pasarlo a Binario:")
        n = CInt(Console.ReadLine())

Dim n As Integer
        For n = 0 To 10
            Console.WriteLine("El numero en Binario es: " & DecToBin(n))
        Next
 
        Console.ReadLine()