Verificación y Rectificacion de Arreglos

Verificación durante la captura de la calificación:

for x = 0 to 6

do
Console.WriteLine ("Dame la calificación de la materia: ")
calif(x) = Console.ReadLine ()
Loop While calif(x) < 0 or calif(x) > 10

Next

calif() es un arreglo de 7 elementos, si durante la captura de la calificación el usuario incerta un numero menor a cero o mayor a diez, entonces el ciclo do while lo va a mantener ciclado hasta que no se cumpla esa condición. Será entonces que tendrá el usuario incertar valores entre cero y diez.