Ejercicio 4: Condicional con rango - Clasificar nota

Ejercicio 4: Condicional con rango - Clasificar nota

Escribe una macro que pida al usuario una nota entre 0 y 100 y muestre:
- "Reprobado" si la nota es menor a 60
- "Aprobado" si la nota está entre 60 y 89
- "Excelente" si la nota es 90 o más

1. Iniciar macro
2. Pedir al usuario que ingrese una nota (0-100) y guardar en variable
3. Si la nota es menor que 60, mostrar "Reprobado"
4. Si la nota está entre 60 y 89, mostrar "Aprobado"
5. Si la nota es 90 o más, mostrar "Excelente"
6. Terminar macro

Sub ClasificarNota()
  Dim nota As Integer
  nota = CInt(InputBox("Ingrese la nota (0-100):"))
  If nota < 60 Then
    MsgBox "Reprobado"
  ElseIf nota < 90 Then
    MsgBox "Aprobado"
  Else
    MsgBox "Excelente"
  End If
End Sub