Imprimir página | Cerrar ventana

Array Calificaciones Alumnos

Impreso de: Foro de Access y VBA
Categoría: Otros de Microsoft: Windows y Office
Nombre del foro: Excel
Descripción del foro: Foro de Excel y VBA de Excel
URL: http://www.mvp-access.com/foro/forum_posts.asp?TID=85349
Fecha de impresión: 28/Marzo/2024 a las 17:17


Tema: Array Calificaciones Alumnos
Publicado por: Erick Gamer
Asunto: Array Calificaciones Alumnos
Fecha de publicación: 16/Junio/2020 a las 04:03
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


-------------
Aprendiz de todos, maestro de nadie.



Respuestas:
Publicado por: fcoval
Fecha de publicación: 16/Junio/2020 a las 14:00
Hola, a ver si esto te sirve o al menos te da una idea

Cita

Public Sub ArrayStudents()

Dim miMatriz()
Dim n As Integer
n = 2
ReDim miMatriz(1 To n, 1 To 2)
Dim nom, cal As String
    
    
    For i = 1 To n
      nom = InputBox("Ingrese el nombre del alumno: " & i, "Alumno!")
      cal = InputBox("Ingrese la calificación del alumno: " & nom, "Calificación")
      miMatriz(i, 1) = nom
      miMatriz(i, 2) = cal
    Next i


    For i = 1 To n
            MsgBox "Alumno " & miMatriz(i, 1) & " = " & miMatriz(i, 2), vbExclamation, "Resultado"
    Next


End Sub




Publicado por: Erick Gamer
Fecha de publicación: 16/Junio/2020 a las 17:33
Gracias, funciono a la primera.

Erick Gamer


-------------
Aprendiz de todos, maestro de nadie.


Publicado por: Erick Gamer
Fecha de publicación: 16/Junio/2020 a las 18:42
Cerrar este hilo por favor!!!!!

-------------
Aprendiz de todos, maestro de nadie.



Imprimir página | Cerrar ventana