Visual Basic

Hola chicos

Les pongo una sub rutina, primero revisen como esta desarrollada, luego cópienla en el editor de visual basic de una hoja de Excel. Agreguen una figura en la hoja de Excel y asignenle la Macro para que al pulsar sobre ella se corra la sub rutina.

Dim nombre As String
Dim base As Double
Dim altura As Double, Area As Double

Sub trianguloarea()
nombre = InputBox("¿Cual es tu nombre?")
MsgBox ("Hola ") & nombre & " Si quieres el area del triangulo pulsa aceptar"
base = InputBox("Anota la base del triangulo")
altura = InputBox("Ahora la altura")
Area = (base * altura) / 2
MsgBox ("el area del triangulo es ") & Area & " cm"

End Sub


Tengan en cuenta que:

• Para declarar las variables pueden usar Private o Dim.
• Pueden manejar 3 tipos de variables, Integer cuando la variable es un número entero, Double cuando es un número con decimales y String cuando la variable es texto como en el caso del nombre en la sub rutina que copiaron.
• Estan manejando dos tipos de "cajas" InputBox es para ingresar el dato de una variable y MsgBox es para que se vea un comentario o un dato (salida).
• Cuando ingresan un texto en el MsgBox, este debe ir entrecomillado y cuando alternan diferentes mensajes en un mismo MsgBox deben poner & entre ellos.

Ahora inventen al menos 3 sub rutinas para calcular IMC, o área de un cuadrado o transformar dolares a Pesos mexicanos o grados Celsius a grados Fahrenheit (o viceversa)