Red de conocimiento informático - Material del sitio web - ¿Cómo controlar un rectángulo mediante programación?

¿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