Задача 20.

Напишите процедуру Ргос20. Она должна выполнять следующие действия.

• Запрашивать стоимость единицы товара в окне ввода данных. Окно ввода включить в цикл Do, чтобы стоимость запрашивалась до тех пор, пока I пользователь не введет положительное числовое значение (для определения числового значения использовать функцию IsNumeric) и сохранять ее

в переменной Price.

• Запрашивать количество единиц купленного товара в окне ввода данных. Окно ввода включить в цикл Do, чтобы количество запрашивалось до тех пор, пока пользователь не введет положительное числовое значение (для определения числового значения использовать функцию IsNumeric) и со-

хранять ее в переменной Nproduct.

• Определить стоимость купленного товара, присвоив значение переменной Cost.

• Результат вычисления выдавать в окне сообщения с соответствующим текстовым пояснением. Sub Proc20() Dim Price as String, Nproduct as String, Cost as Integer Dim a as Integer, b as Integer Do Price = InputBox (“Введите стоимость единицы товара”) If IsNumeric(Price) then A=Val(Price) End If Loop Until a>0 Do Nproduct = InputBox (“Введите количество товара”) If IsNumeric(Nproduct) then b=Val(Nproduct) End If Loop Until b>0 Cost=a*b MsgBox “Стоимость всего товара равна ” & Cost & “ рублей” End Sub Задача 21

Открыть книгу Excel “Коммерческие банки” на рабочем листе с именем “Столичный экспресс”. Написать программный код процедуры, устанавливающей следующие свойства диапазону ячеек, расположенному на этом листе:

- задает фон диапазону “A1:C20” (один из 56 цветов цветовой палитры Excel);

- осуществляет выбор диапазона “A2:M2”;

- с выбранным диапазоном с использованием конструкции With-End With выполнить следующие действия

- слияние блока ячеек “A2:M2” в одну ячейку A2;

- ввод текста в ячейку A2;

- горизонтальное выравнивание по центру введенного текста в ячейку A2;

-выравнивание по вертикали по центру;

-с использованием конструкции With-End With установить следующие свойства для шрифта:

- имя шрифта “Times New Roman”;

- размер шрифта – 20;

- полужирное начертание;

- установка другого цвета шрифта;

- курсив.

Public Sub Заставка()

WorkSheet1(“Столичный экспресс”).Select

Range("A1 :C20").Interior.ColorIndex = 43

Range("A2:M2").Select

With Selection

.Merge

.Value = "Добро пожаловать в БАНК УРАЛСИБ"

.HorizontalAlignment = xlCenter

.VerticalAlignment = xlCenter

With .Font

.Name = "Times New Roman"

.Size = 20

.Bold = True

.ColorIndex = 6

.Italic = True

End With

End Sub