none
hola hay un ejercicio que me dejaron donde me pide que se debe ingresar el numero total de horas practicas por pantalla pero que sea multiplo de dos y nose exactemente como lo colocaria esa condicion. RRS feed

  • Pregunta


  • Sub promedio_notas()
    Dim teo As Integer
    Dim prac As Integer
    Dim n1 As Single
    Dim n2 As Single
    Dim n3 As Single
    Dim f1 As Single
    Dim f2 As Single
    Dim f3 As Single
    Dim a As Integer
    Dim b As Integer
    Dim c As Integer
    Dim e As Single
    Dim f As Single
    n1 = Range("c5")
    n2 = Range("c6")
    n3 = Range("c7")
    f1 = Range("c11")
    f2 = Range("c12")
    f3 = Range("c13")
    teo = InputBox("Ingrese total de horas teoricas")
    Range("c3") = teo
    prac = InputBox("Ingrese total de horas practicas")
        If prac Mod 2 = 0 Then
            Range("c9") = prac
        End If
    a = teo * 1
    b = prac * 0.5
    c = a + b
    e = (1 * a) / c
    f = (1 * b) / c
    Range("c15") = Round(((n1 + n2 + n3) / 3) * e + ((f1 + f2 + f3) / 3) * f, 2)
        If Range("c15") >= 12 Then
            MsgBox ("Aprobado")
        Else
            MsgBox ("Desaprobado")
        End If


    • Cambiado Enrique M. Montejo jueves, 17 de mayo de 2018 5:58 Programación con Microsoft Excel mediante Visual Basic para Aplicaciones.
    martes, 15 de mayo de 2018 19:43