¿Cómo controlar un rectángulo mediante programación?
Establezca s en único
Marque l como una cadena
L = InputBox("Ingrese la longitud del cable", "Calcule el área máxima del rectángulo", 15 ).
Salir de Sub si l = " " o l = vbcancle
s = (l / 4) * (l / 4)
Esta es una ventana emergente cuadro de diálogo
MsgBox s, vbInformation, "Área del rectángulo"
También puede usar esto para generar la respuesta.
" debug.print "Área rectangular:" &;s