Buenas tardes, noches a todos,
Estoy tratando de realizar este ejercicio con un array de dos dimensiones, donde requiero ingresar por teclado las notas de los alumnos y sus respectivas calificaciones y mostrar el resultado de los datos capturados en un MsgBox.
Pero no me esta quedando, me pide dos veces el nombre del alumno uno y me muestra los resultados de un solo alumno.
Public Sub ArrayStudents()
Dim miMatriz()
Dim n, c As Integer
n = 2
c = 2
ReDim miMatriz(1 To n, 1 To c)
Dim i, j As Integer
Dim nom, cal As String
'Dim intNum(i To 2) As Integer
For i = 1 To n
For j = 1 To c
nom = InputBox("Ingrese el
nombre del alumno: " & i, "Alumno!")
cal = InputBox("Ingrese la
calificación del alumno: " & j, "Calificación")
Next
Next
For i = 1 To n
For j = 1 To c
MsgBox "Alumno " & nom
& " = " & cal & miMatriz( i, j),vbExclamation,"Resultado"
Next
Next
End Sub
|
Si pudieran ayudarme a ver donde esta mi error, se los agradeceria.
Saludos
Erick Gamer