ÁREA DE UN TRIANGULO

DISEÑO FINALIZADO

VISTA DEL DISEÑO

PROGRAMACION

Dim base, altura As Integer
Dim Area As Single



Private Sub btnCalcular_Click()

base = Val(Me.txtBase.Text)
altura = Val(Me.txtAltura.Text)
txtArea = (base * altura / 2)

End Sub

Private Sub btnSalir_Click()
End
End Sub