¡Esperando en línea, urgente! ¡Utilice la programación de declaraciones de rama para ingresar los resultados específicos de un estudiante!

Private Sub Form_Click()

Atenuar A como doble

A = InputBox("DDDDDDD")

If A lt; Entonces

MsgBox "Error"

ElseIf A lt; 70 Entonces

MsgBox "Aprobado"

ElseIf A lt; /p>

MsgBox "Medio"

ElseIf A lt; 90 Entonces

MsgBox "Bueno"

ElseIf A lt; 100 Entonces

p>

MsgBox "Excelente"

Else

MsgBox "Valor incorrecto"

Fin si

Fin Sub