Ayuda en un registro

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.