Mi problema tiene que ver con que recibo ese mensaje de error al compilar y ejecutar mi código (una aplicación de consola), exactamente la línea que me marca es la que he marcado abajo en negrita.
Se trata de un procedimiento en el que pido las 3 notas de un alumno para guardarlas en la matriz v_notas(,). La primera dimensión es para los alumnos y la segunda para las notas. La variable i está declarada a nivel de módulo y por tanto es accesible desde cualquier función o procedimiento.
A ver si alguien me puede ayudar porque he visto varios mensajes por aquí con ese mismo error pero en códigos con diferentes procedimientos, y no me entero ^^
Código:
Gracias de antemanoPrivate Sub pedir_notas(ByVal v_notas(,) As Decimal) Dim nota As String Dim j As Integer = 0 'Índice controlador de nombre de asignatura. Do While j < 3 Or nota = Nothing Or Not IsNumeric(nota) Or Val(nota) < 0 Or Val(nota) > 10 nota = InputBox("Nota de " & asignaturas(j) & ":", "Alumno " & i) If nota = Nothing Then MessageBox.Show("Introduce una nota, por favor", "Nota requerida", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) ElseIf Not IsNumeric(nota) Then MessageBox.Show("La nota debe ser numérica.", "Nota incorrecta", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) ElseIf Val(nota) < 0 Or Val(nota) > 10 Then MessageBox.Show("El valor de la nota no es correcto, debe estar entre 0 y 10.", "Nota incorrecta", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) Else v_notas(i, j) = nota j = j + 1 End If Loop i = i + 1 'Paso al siguiente Alumno (variable declarada a nivel de módulo) End Sub
![Afirmando](http://static.forosdelweb.com/fdwtheme/images/smilies/afirmar.gif)