VB utiliza el cuadro de entrada para ingresar la calificación. La calificación es igual a: 100 es la puntuación completa, 90-99 es excelente, 80-90 es buena, 70-79 es promedio, 60-69 es aprobatoria.
Private Sub Command1_Click()
Atenuar x como único
x = Val(InputBox("Ingrese una calificación", , 100))
Seleccione caso x
Caso es lt; 60
Imprimir x amp; "Fail"
Caso es lt; Pass"
La caja es lt; 80
Imprimir x amp; "Mediana"
La caja es lt; 90
Imprimir x amp ; "Bueno"
El caso es lt; ; "Completo"
Fin Seleccionar
Fin Sub