Sub CalcularNota()
Dim nota1 As Double, nota2 As Double, nota3 As Double, nota4 As Double
Dim notaDefinitiva As Double
Dim calificacion As String
' Solicitar al usuario que ingrese las 4 notas
nota1 = InputBox("Ingrese la primera nota:")
nota2 = InputBox("Ingrese la segunda nota:")
nota3 = InputBox("Ingrese la tercera nota:")
nota4 = InputBox("Ingrese la cuarta nota:")
' Calcular la nota definitiva
notaDefinitiva = (nota1 + nota2 + nota3 + nota4) / 4
' Determinar la calificación cualitativa
Select Case notaDefinitiva
Case Is >= 4.5
calificacion = "E"
Case Is >= 5#, 4.5
calificacion = "S"
Case Is >= 4#, 4.4
calificacion = "B"
Case Is >= 3.9, 3.5
calificacion = "A"
Case Is >= 3.4, 3#
calificacion = "D"
Case Is >= 2.9, 2#
calificacion = "I"
Case Is >= 1#
Case Else
End Select
' Mostrar la nota definitiva y la calificación cualitativa
MsgBox "La nota definitiva es: " & notaDefinitiva & vbCrLf & _
"La calificación cualitativa es: " & calificacion
End Sub
El código muestra perfectamente la nota, pero a la hora de mostrar la letra asignada se equivoca, y solo pone "E"
El ejercicios que me pusieron es este: Elabore un algoritmo que le permita al profesor ingresar las 4 notas que obtuvo un alumno y el computador le muestre la nota definitiva y la calificación cualitativa que es:
“E” si es mayor o igual a 4.5
“S” si es mayor o igual a 4.0 y menor de 4.5
“B” si es mayor o igual a 3.5 y menor de 4.0
“A” si es mayor o igual a 3.0 y menor de 3.5
“D” si es mayor o igual a 2.0 y menor de 3.0
“I” si es menor de 2.0
Solo que no entiendo tanto excel y por eso no se como organizar esa parte