Lenguaje de programación de un triángulo rectángulo // Lenguaje de programación del costo de un producto con IVA // Lenguaje de programación para saber si un número es par o impar.

--Triángulo Rectángulo
Public Class Form1
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles
MyBase.Load
Dim b, a, h, p, z As Integer
b = InputBox("ingrese la base del triángulo")
a = InputBox("ingrese la altura del triángulo")
z = b * a / 2
h = ((b ^ 2 + h ^ 2) ^ 1 / 2)
p = b + a + h
MsgBox("el area es :" & z)
MsgBox("la hipotenusa es ." & h)
MsgBox("el perimetro es:" & p)

End Sub
End Class


--Costo de un producto con IVA

Public Class Form1
Private Sub Form1_Load (ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
Dim Pp, Pt As Double
Pp = InputBox("ingrese el precio del producto")
Pt = Pp * 1.16
MsgBox("el precio del producto es: $" & Pt)
End Sub
End Class

--Par o impar.

Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
Dim n As Integer
n = InputBox("Ingrese un numero entero")
If n Mod 2 = 0 Then
MsgBox("el número es par")
Else
MsgBox("el número es impar")
End If
End Sub
End Class