'/==================================================/'
'/  Лабораторная работа №4                          /'
'/  Тема: "Ветвление. Множественный выбор"          /'
'/  Задание 1. Выполнено с помощью Select Case      /'
'/==================================================/'

Option Explicit
Sub Dasha() 'Начало программы'

Dim a, x, y, z As Single 'Объявление переменных типа Single (с плавающей точкой обычной точности - 4 байта)'

'Вывод запроса для ввода данных в отдельном окне на экране'
a = InputBox("Введите число A:", "Ввод исходных данных")
z = InputBox("Введите число Z:", "Ввод исходных данных")

x = z ^ 3 'Вычисляем значение x'

'Вычисляем значение y'
Select Case x
       Case Is <= 3: y = 1 + a ^ x
       Case Else: y = Sqr(8 * x)
End Select

'Вывод отчета на лист Excel (столбец : значение)'
Sheets("Лист1").Cells(1, 1) = "A": Sheets("Лист1").Cells(2, 1) = a
Sheets("Лист1").Cells(1, 2) = "Z": Sheets("Лист1").Cells(2, 2) = z
Sheets("Лист1").Cells(1, 3) = "X": Sheets("Лист1").Cells(2, 3) = x
Sheets("Лист1").Cells(1, 4) = "Y": Sheets("Лист1").Cells(2, 4) = Round(y, 5)

'Вывод отчета в отдельном окне на экране'
MsgBox "Исходные данные: A= " & a + " Z= " & z & vbCr & _
"Вычисленное число X= " & Round(x, 5) & vbCr & _
"Ответ: Y= " & Round(y, 5), vbOKOnly + vbInformation, _
"Отчет по итогам выполнения программы"

End Sub 'Конец программы'