AREA DE TRAPECIO, VOLUMEN DE CILINDRO VISUAL BASIC PROGRAMACION ING INDUSTRIAL

Area de Trapecio

Dimbm As Double

        DimBASEMENOR As Double

        Dimaltura As Double

        DimArea As Double

        bm = InputBox("Introduce la Base Mayor")

        BASEMENOR = InputBox("Introduce la Base Menor")

        altura = InputBox("Introduce la Altura:")

        Area = ((bm + BASEMENOR) * altura) / 2

        MsgBox("area:"& Area, MsgBoxStyle.Exclamation, "Area del Trapecio")

        End

Volumen de Cilindro

  Dim radio As Double

        Dimaltura As Double

        DimVolumen As Double

        radio = InputBox("Introduce el radio")

        altura = InputBox("Introduce la Altura")

        Volumen = ((radio ^ 2 * altura) * 3.1416)

        MsgBox("Volumen:" & Volumen, MsgBoxStyle.Critical, "Volumen del Cilindro")