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
Mode Lineal
