Roberto
25 de Octubre del 2005

Hola, tengo un problema, estoy haciendo un programa que me ingrese los datos de los alumnos de una escuela, como el nombre, numero de control, calf1, calif2, calif3, y su promedio.

El programa debe de correr constantemente e ir almacenando la informacion en un arreglo (array) y detenerse hasta que el usuario ya no quiera ingresar mas datos.

El programa me corre bien lo malo es que cuando quiero imprimir en pantalla solo me imprime el ultimo registro

este es mi codigo a ver si alguien me puede ayudar a ver si le falta algo o que onda.
________________________________________________

Private Sub CmdImprimir_Click()
D = 0
For s = 1 To s
PSet (240, 600 + D): Print nom(25)
PSet (2760, 600 + D): Print nc(25)
PSet (4440, 600 + D): Print cal1(25)
PSet (5640, 600 + D): Print cal2(25)
PSet (6840, 600 + D): Print cal3(25)
PSet (8040, 600 + D): Print prom(25)
D = D + 200
Next s

End Sub

Private Sub Form_Load()

LABEL1:
nom(25) = InputBox(\"Nombre del alumno\")
nc(25) = InputBox(\"Numero de Control\")
cal1(25) = InputBox(\"Calificaci贸n Primer Parcial\")
cal2(25) = InputBox(\"Calificaci贸n Segundo Parcial\")
cal3(25) = InputBox(\"Calificaci贸n Tercer Parcial\")
prom(25) = (cal1(25) + cal2(25) + cal3(25)) / 3
SN = InputBox(\"Desea llenar otro registro S/N\")
If SN = \"S\" Or SN = \"s\" Then GoTo LABEL1

End Sub

mvallejos
25 de Octubre del 2005

No se entiende muy bien...
驴Por que cargas y muestras solo la posici贸n 25?

Saludos

Roberto
25 de Octubre del 2005

No te entiendo, es que apenas estoy aprendiendo todo esto, pero mi profesor no se explica bien. como hago para que no cargue la 25, si no que cargue de una en una.

Las \ no deben de ir, no se por que las puso el foro.