Foro de programacion

Bueno este es un ejercicio que se debe desarrollar en Visual Basic 2005 modo consola:
Desarrollar un programa que pida ingresar "n" numeros y muestre como resultado cuantos numeros son primos, cuantos estan entre 0 y 5, cuantos entre 6 y 10, cuantos entre 11 y 15 y cuantos entre 16 y 20

utilizando las estructuras:
For - If
For - Select Case

While - If
While - Select Case

Bueno gracias por la ayuda de antemano.
Espero algun programador pueda desarrollarlo, aun soy un novato en esto.

Voy en esto espero me ayuden:

Module Module1

Sub Main()
Dim Numero As Double
'Para almacenar los residuos
Dim residuo As Double
'contador para saber cuántas veces de dan residuos de cero
Dim contador As Integer
Dim Numero2, N1, N2, N3, N4, A As Byte
Console.Write("Ingrese el numero a evaluar:")
Numero = Console.ReadLine()
'Ciclo desde 1 hasta el número a evaluar
For i As Integer = 1 To Numero
'Saca el residuo que resulta de dividir número a
'evaluar con la iteración en la que va el For,
'de modo que si el número a evaluar fuera 5,
'entonces saca el residuo de 5 con 1 en la iteración 1,
'5 con 2 en la iteración 2, 5 con 3 en la iteración
'3, 5 con 4 en la iteración 4 y 5 con 5 en la iteración 5.
'En ese caso residuos exactos de cero solamente van a salir 2,
'que es 5 Mod 1 y 5 Mod 5. Por lo tanto el número 5 es primo
'porque el contador llegaria a valer 2. en el caso del 4,
'sacaría el residuo de 4 con 1 en la iteración 1, 4 con 2
'en la iteración 2, 4 con 3 en la iteración 3 y 4 con
'4 en la iteración 4. En este caso residuos exactos de cero
'van a salir 3, que es 4 Mod 1, 4 Mod 2 y 4 Mod 4.
'Por lo tanto el contador llegaria a valer 3,
'siendo entonces mayor que 2, por lo cual se concluye
'que el 4 no es un número primo.
residuo = Numero Mod i
If residuo = 0 Then
'Equivale a escribir "contador = contador + 1"
contador = contador + 1
End If
Next
'Si el contador vale 1 ó 2, el número a evaluar es primo.
'Si el contador vale 3 o más, el número a evaluar no es primo.
If contador <= 2 Then
Console.WriteLine("El número introducido es primo.")
Else 'Este "else" se da en el caso que el contador valga 3 o más.
Console.WriteLine("El número introducido no es primo.")
End If
While A = 1 Or 8
Select Case Numero2 <= 5
Case (Numero2 = 0) Or (Numero2 = 5)
N1 = N1 + 1
Case (Numero2 = 6) Or (Numero2 = 10)
N2 = N2 + 1
Case (Numero2 = 11) Or (Numero2 = 15)
N3 = N3 + 1
Case (Numero2 = 16) Or (Numero2 = 20)
N4 = N4 + 1
End Select
End While
Console.WriteLine("El número introducido esta entre 0 y 5:" & N1)
Console.WriteLine("El número introducido esta entre 6 y 10:" & N2)
Console.WriteLine("El número introducido esta entre 11 y 15:" & N3)
Console.WriteLine("El número introducido esta entre 16 y 20:" & N4)
Console.ReadKey()
End Sub

End Module