1. напишите программу, вычисляющую площадь прямоугольника по заданным сторонам.

Sub aaa()
    a = CDbl(InputBox("Длина стороны"))
    b = CDbl(InputBox("Ширина стороны"))
    MsgBox "Площадь прямоугольника " + CStr(a * b)
End Sub