Написать программу на VISUAL BASIC (VBA). В программу вводят стороны прямоугольника "а" и "в". Программа выводит рисунок цветного закрашенного прямоугольника.Можно написать только процесс.

Предыдущий
вопрос Следующий
вопрос

Sub DrawRectangle()
Dim a As Integer
Dim b As Integer

a = InputBox("Введите длину стороны a:")
b = InputBox("Введите длину стороны b:")
Dim shp As Shape
Set shp = ActiveSheet.Shapes.AddShape(msoShapeRectangle, 100, 100, a * 10, b * 10)
shp.Fill.ForeColor.RGB = RGB(255, 0, 0) 'цвет заливки красный

End Sub