Ejercicios de Visual Basic 14

REALIZAR UN PROGRAMA QUE ME PERMITA CALCUALR EL AREA DE LA SIGUIENTE FIGURA

EN EL PROGRAMA VISUALIZAMOS ASI

2. Colocamos el siguiente codigo 

Option Explicit

Dim l, r As Integer

Private Sub cmdGenerar_Click()

l = Val(Me.txtLado.Text)

r = (25 * l * 3.1416) / 16 + (l * l) / 2

Me.txtResultado.Text = r

End Sub

EN EL PROGRAMA VISUALIZAMOS ASI

UNA VEZ TERMINADO PONEMOS EJECUTAR

Y  de este modo hemos terminado con este ejercicio