Текст процедури

Sub вибір( )

Dim month As String , day As String

month= InputBox("Введіть назву місяця", "Кількість днів у місяці")

Cells(9, 1) . Value = month

Select Case month

Case "січень", "березень", "травень", "липень", "серпень", "жовтень", "грудень"

Cells(9, 2) . Value = "31 день"

day = "В цьому місяці 31 день"

Case "квітень", "червень", "вересень", "листопад"

Cells(9, 2) . Value = "30 днів"

day = "В цьому місяці 30 днів"

Case "лютий"

Cells(9, 2) . Value = "28 або 29 днів"

day = "В цьому місяці 28 або 29 днів"

Case Else

Range ("A9:B9") . Clear

day = "Ви помилково ввели назву місяця"

End Select

MsgBox day, vbExclamation , "Відповідь" ' Виведення результатів

End Sub

Результати роботи програми

Рисунок 1.5 – Приклад роботи програми "вибір"

1.1.6 Математичні функції

В VBA визначені математичні функції. Аргумент завжди запи­сується в дужках. Далі наведені позначення функцій.

Функції sin(х) і cos(x) записуються як в математиці. Зворотні тригонометричні функції, якщо , обчислюються за формулами:

Функції Int(х) та Fix(х) для додатних чисел відкидають дробову частину числа. Для від’ємних чисел Int(х) знаходить найближче ціле ліворуч від х, а Fix(х) – найближче ціле праворуч від х, тобто:

Int(99.8) = 99, Fix(99.8) = 99, Int(–99.8) = –100, Fix(–99.8) = –99

1.2 Контрольні питання

1. Які типи даних використовуються в VBA?

2. Оператор присвоювання, правила запису арифметичних виразів.

3. Математичні функції.

4. Логічні операції і правила запису логічних виразів.

5. Умовний оператор. Приклади.

6. Оператор вибору Select Case. Правила запису списків умов.

7. Діалогове вікно InputBox, його аргументи

8. Діалогове вікно MsgBox, його аргументи і кнопки.

1.3 Індивідуальні завдання

Напишіть програми на VBA для кожного завдання. Усі вхідні дані необхідно вводити за допомогою функції InputBox, а результати роботи виводити в діалогове вікно MsgBox або на новий Лист Excel.

Варіант 1

1. Ввести об’єм V та висоту h циліндру. Визначити радіус його осно­ви, якщо формула об’єму циліндра має вигляд:

2. Ввести натуральне число N (N<1000) та визначити чи ділиться воно на 3. Використати ознаку: якщо сума цифр числа ділиться без залишку на 3, то воно теж ділиться на 3.

3. Ввести значення змінних x i y та обчислити значення функції z. Вивести всі значення на Лист Excel.

Варіант 2

1. Ввести вагу чоловіка у фунтах. Перевести її в кілограми, якщо відомо, що 1 фунт = 400 г.

2. Ввести назву місяця і визначити до якої пори року він відноситься.

3. Ввести значення змінних x i y та обчислити значення функції z. Вивести всі значення на Лист Excel.

Варіант 3

1. Ввести радіус кола. Знайти довжину кола С і площу круга S за формулами: С=2πR і S=πR ² .

2. Ввести натуральне число N (N<100) і визначити чи кратне воно 5. Використати властивість, що число кратне 5, якщо остання цифра його дорівнює 0 або 5.

3. Ввести значення змінних x i y та обчислити значення функції z. Вивести всі значення на Лист Excel.

Варіант 4.

1. Ввести радіуси R та r верхньої і нижньої основи зрізаного конуса та його висоту h. Обчислити об’єм V конуса за формулою

2. З клавіатури ввести номер місяця та вивести його назву.

3. Ввести значення змінних x i y та обчислити значення функції z. Вивести всі значення на Лист Excel.

Варіант 5.

1. Катети прямокутного трикутника рівні а і b. Визначити його пло­щу S і периметр P по формулах: .

2. Студент одержує на іспиті оцінку 2, 3, 4 або 5. Ввести її та записати словами: незадовільно, задовільно, добре або відмінно.

3. Ввести значення змінних x i y та обчислити значення функції z. Вивести всі значення на Лист Excel.

Варіант 6.

1. Ввести температуру за шкалою Цельсія (). Визначити темпера­туру за шкалою Фаренгейта (). Перехід із градусів за шкалою Цельсія () в градуси за шкалою Фаренгейта здійснюється за формулою

2. З клавіатури ввести деяке число від 1 до 9. Записати його словом.

3. Ввести значення змінних x i y та обчислити значення функції z. Вивести всі значення на Лист Excel.

Варіант 7.

1. Ввести вартість покупки в копійках. Перевести її в гривні.

2. Студент проходив тестування. Ввести кількість балів та вивести його оцінку за такою шкалою:

• менше 50 балів – незадовільно;

• від 50 до 64 балів – задовільно;

• від 65 до 79 балів – добре;

• більше 79 балів – відмінно.

3. Ввести значення змінних x i y та обчислити значення функції z. Вивести всі значення на Лист Excel.

Варіант 8.

1. Трикутник заданий координатами своїх вершин A(x₁, y₁), B(x₂, y₂) i C(x₃, y₃). Обчислити площу трикутника S за формулою:

2. Ввести один зі знаків арифметичних дій: + , –, *, / та записати його словами.

3. Ввести значення змінних x i y та обчислити значення функції z. Вивести всі значення на Лист Excel.

Варіант 9.

1. Ціна товару указана в гривнях. Ввести курс долара і визначити ціну товару в доларах.

2. Ввести 3 числа та перевірити чи може існувати трикутник з таки­ми довжинами сторін. Використати властивість, що у трикутника сума будь–яких двох сторін більше, ніж третя сторона.

3. Ввести значення змінних x i y та обчислити значення функції z. Вивести всі значення на Лист Excel.

Варіант 10.

1. Знайти суму S нескінченно спадної геометричної прогресії за формулою , де – перший член прогресії,q – знамен­ник, причому . Значення таq ввести з клавіатури.

2. Ввести позначення однієї із сторін світу літерою N, S, W або E та записати її словом північ, південь, захід або схід.

3. Ввести значення змінних x i y та обчислити значення функції z. Вивести всі значення на Лист Excel.

Варіант 11.

1. Довжина сторони рівностороннього трикутника дорівнює а. Знайти його площу за формулою .

2. Визначити чи є указаний рік високосним. (Рік високосний, якщо його номер ділиться на 4 без залишку).

3. Ввести значення змінних x i y та обчислити значення функції z. Вивести всі значення на Лист Excel.

Варіант 12.

1. Для заданого року визначити його століття. Для цього треба знай­ти кількість сотень у номері року і додати 1.

2. Точка на площині задана своїми координатами (x , y). Визначити номер чверті, у якій вона знаходиться.

3. Ввести значення змінних x i y та обчислити значення функції z. Вивести всі значення на Лист Excel.