vb calcula el área de un rectángulo

Se sabe que el perímetro S=2X+2Y dado que un lado es fijo, la longitud del otro lado también debe ser cierta;

El área del rectángulo también es cierta. el área máxima?

Hay dos programas a continuación

1. Se conocen el perímetro y un lado

Private Sub Command1_Click()

Dim Scycle As Doble

Dim X como doble

Dim Y como doble

Scycle = Val(InputBox("Rectangle Perimeter = ","Por favor ingrese datos", "16 "))

X = Val(InputBox("Lado de longitud fija = ", "Ingrese datos", "2"))

Y = (Ciclo - X * 2) / 2

Cls

Imprimir "El perímetro del rectángulo es " & Scycle

Imprimir "X = " & X

Imprimir "Y = " & Y

Imprimir "Area = "; Y

p>Subcomando privado2_Click()

Atenuar ciclo como doble

Atenuar X como doble

Atenuar Y como doble

Scycle = Val(InputBox("Rectangle Perimeter = ","Por favor ingrese datos", "10"))

X = Ciclo / 4

Y = X

Cls

Imprimir "Perímetro rectangular como " & Ciclo

Imprimir "X = " & X

Imprimir "Y=" & Y

Imprimir "Área=" X * Y

End Sub

;