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

30 Ноя 2019 в 19:48
215 +1
0
Ответы
1

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

19 Апр 2024 в 00:25
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
Прямой эфир