Programación Calcular el área de 1 triangulo conociendo la altura y la base

Programación II (27/07/2015)

Ejercicio 1: Calcular el área de 1 triangulo conociendo la altura y la base.

Option Explicit

Sub Area()

    Dim Area As Single, Altura As Single, Base As Single

    Base = InputBox("Cual es la Base")

    Altura = InputBox("Altura del Triangulo")

    Area = Base * Altura / 2

    MsgBox "Area=" & Area

    End Sub

Ejercicio 2: Leer un número:

                Multiplicarlo por 2

                Sumarle 5        

                Dividirlo 5 (entero y real)

                Elevarlo al cubo

                Obtener el módulo de 7

Option Explicit

Sub Area()

    Dim Area As Single, Altura As Single, Base As Single

    Base = InputBox("Cual es la Base")

    Altura = InputBox("Altura del Triangulo")

    Area = Base * Altura / 2

    MsgBox "Area=" & Area

    End Sub

    Sub dos()

    Dim Num As Integer, res As Integer, r As Double

    Num = InputBox(" Ingrese un Numero entero")

    res = Num * 2

    Debug.Print Num; "* 2 = "; res

    res = Num + 5

        Debug.Print Num; "+5 = "; res

        r = Num / 5

            Debug.Print Num; "/ 5= "; r

            res = Num / 5

                Debug.Print Num; "\5= "; res

                r = Num ^ 3

                    Debug.Print Num; "* ^ 3 ="; r

                    res = Num Mod 7

                        Debug.Print Num; "* mod 7 = "; res

                            End Sub

Ejercicio 3: Leer un número y determinar si es par o impar

    Sub par()

    Dim N As Integer

    N = InputBox ("Ingrese un numero ")

    If N Mod 2 = 0 Then

    Debug.Print N, "Es par"

    Else

    Debug.Print N, " Es impar"

    End If

     End Sub

Ejercicio 4: Leer la edad de una persona y determinar si es niño, joven o adulto

Niño <=16

Joven 17-30

Adulto > 30

     Sub Edad()

     Dim Edad As Integer, Clasif As String

     Edad = InputBox("Ingrese la Edad")

     If Edad <= 16 Then

     Clasif = "Ni´o"

     Else

    If Edad >= 17 And Edad <= 30 Then

    Clasif = "Joven"

    Else

    Clasif = "Adulto"

    End If

    End If

    Debug.Print " con la edad"; Edad; "se clasfica como"; Clasif

    End Sub

...