Seleccione Introducción a la programación

s? =?InputBox("Ingrese el ID del estudiante:")

Etiqueta1. ¿título? =?"juicio"? ¿amperio? ¿s? ¿amperio? "Calificación y tipo"

¿Texto1? =?izquierda(s,?2)?amp? "Nivel"

s1? =?Mid(s,?3,?1)

¿Seleccionar? ¿caso? (t1)

¿Caso? "0"

¿Texto2? =?"Estudiante de Doctorado"

¿Caso? "1"

Texto2? ="Estudiante de Maestría"

¿Caso? "2"? "9"

¿Texto2? =?"Estudiante de pregrado"

¿Caso? Otro

¿Texto2? =?"No reconocido"

¿Fin? Selección

¿Finalizar? Submarino

¿Privado? ¿Sub? Form_Load()

Etiqueta1. ¿título? =?""

Etiqueta1. ¿Color de primer plano? =?vbAzul

Etiqueta1. ¿Tamaño de fuente? =?16

Etiqueta 2. ¿título? =?"Logros de los estudiantes"

Etiqueta 3. ¿título? =?"Tipo de Estudiante"

Comando 1. ¿título? =?"Juez"

Comando 2. ¿título? =?"Fin"

¿Fin? Submarino