ÁREA DE UNA FIGURA

DISEÑO FINALIZADO

VISTA DISEÑO

PROGRAMACION

Option Explicit
Dim numero, Area As Double



Private Sub cmdCalcular_Click()

numero = Val(Me.txtLonguitud.Text)

Area = ((numero * numero) / 2) + ((3.14 * numero * numero) / 32)


Me.txtArea.Text = Area



End Sub