---

Для выполнения лабораторной работы по принципу «максимально просто», давайте разберем основные действия на основе **image.png** и **image_2.png**.
### 1. Как выполнить пример (Задание 2)
В Visual Basic (в Excel нажмите Alt + F11, затем Insert -> Module) скопируйте этот код:
```vba
Sub Пример1()
    Dim r As Double, q As Double, s As Double
    r = InputBox("Введите первое число")
    q = InputBox("Введите второе число")
    s = (r + q) / 2
    MsgBox "Среднее арифметическое = " & s
End Sub

```
### 2. Как добавить сообщения (Задание 3)
Чтобы вывести разные кнопки, используйте второй аргумент в MsgBox. Примеры из **image.png**:
 * **ОК и Отмена:** MsgBox "Ваш текст", vbOKCancel
 * **Да и Нет:** MsgBox "Ваш текст", vbYesNo
 * **Да, Нет и Отмена:** MsgBox "Ваш текст", vbYesNoCancel
### 3. Выполнение варианта (Задание 4)
Чтобы выполнить задание, выберите свой вариант из списка в **image.png** и напишите похожий код.
**Пример для варианта №10 (Площадь квадрата S = a^2):**
```vba
Sub ПлощадьКвадрата()
    Dim a As Double, s As Double
    a = InputBox("Введите сторону квадрата")
    s = a * a
    MsgBox "Площадь квадрата = " & s
End Sub

```
**Пример для варианта №4 (Объем цилиндра V = \pi R^2 H):**
```vba
Sub ОбъемЦилиндра()
    Dim r As Double, h As Double, v As Double
    r = InputBox("Введите радиус")
    h = InputBox("Введите высоту")
    v = 3.14 * (r ^ 2) * h
    MsgBox "Объем цилиндра = " & v
End Sub

```
**Совет:** Если нужно число \pi, используйте 3.14 или встроенную функцию 3.1415926535. Для возведения в степень используйте символ ^.
Какой номер варианта вам нужно решить? Напишите, и я дам готовый код именно для него.