** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Otros de Microsoft: Windows y Office > Excel
  Mensajes nuevos Mensajes nuevos RSS - Array Calificaciones Alumnos
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoArray Calificaciones Alumnos

 Responder Responder
Autor
Mensaje
Erick Gamer Ver desplegable
Asiduo
Asiduo
Avatar

Unido: 08/Mayo/2016
Localización: Mexico
Estado: Sin conexión
Puntos: 298
Enlace directo a este mensaje Tema: Array Calificaciones Alumnos
    Enviado: 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.
Arriba
fcoval Ver desplegable
Habitual
Habitual


Unido: 19/Enero/2013
Estado: Sin conexión
Puntos: 168
Enlace directo a este mensaje Enviado: 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




Editado por fcoval - 16/Junio/2020 a las 14:04
Arriba
Erick Gamer Ver desplegable
Asiduo
Asiduo
Avatar

Unido: 08/Mayo/2016
Localización: Mexico
Estado: Sin conexión
Puntos: 298
Enlace directo a este mensaje Enviado: 16/Junio/2020 a las 17:33
Gracias, funciono a la primera.

Erick Gamer
Aprendiz de todos, maestro de nadie.
Arriba
Erick Gamer Ver desplegable
Asiduo
Asiduo
Avatar

Unido: 08/Mayo/2016
Localización: Mexico
Estado: Sin conexión
Puntos: 298
Enlace directo a este mensaje Enviado: 16/Junio/2020 a las 18:42
Cerrar este hilo por favor!!!!!
Aprendiz de todos, maestro de nadie.
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable