Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
obch_texn_vba_camoc.doc
Скачиваний:
4
Добавлен:
19.08.2019
Размер:
3.34 Mб
Скачать

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

1: Протабулювати функцію f(x) на інтервалі [Xп,Xк] з шагом h.

Границі інтервалу і шаг вводяться з клавіатури.

Варіанти завдань

Ном. Варі-анту

Вигляд функції

Початкові дані

a

b

Xn

Xk

h

1

1.38

1.26

60

100

10

2

-

1.68

1.2

2.4

0.2

3

0.36

5.5

10

50

6

4

0.9

1.85

0.

1.2

0.15

5

1.24

0.67

10.2

12.4

0.45

6

20.2

7.65

3.5

4

0.1

7

2.8

0.45

40

60

4.5

8

4.6

2.5

0.75

1.8

0.3

9

0.55

0.78

4.2

5.8

0.25

10

0.28

1.35

1.2

7.5

0.5

11

0.9

0.66

2.3

8.9

1.3

12

0.85

-

17.2

24.6

2

13

1.6

1.24

0.2

1.4

0.35

14

0.4

10.8

0.84

1.25

0.15

15

1.28

0.03

12.6

34.9

7.6

Завдання 2

Для Х з наданого діапазону(шаг вибрати самостійно) обчислити значення функції за допомогою:

  1. стандартної функції –Y=f(X);

  2. суми ряду з точністю  (вибрати самостійно).

Результат потрібно вивести у вигляді таблиці:

і

Х[i]

Y=f(X[i])

S(X[i])

fabs(s-y)

Варіанти завдань

Вар.

Ряд

Діапазон зміни х

1

2

3

4

5

6

7

8

9

10

11

,

12

13

14

15

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

  1. Оператор циклу FOR – NEXT і його робота.

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

  3. Оператори циклу з передумовою і з післяумовою.

  4. Що таке вкладені цикли, яка їхня структура?

  5. Як здійснюється достроковий вихід з циклу7

  6. Алгоритми обчислення суми і кількості.

Лабораторна робота № 5.

Тема: Створення форм користувача.

Мета роботи: навчитися створювати форми з різними елементами керування.

5.1 Теоретичні відомості

Для створення нової форми за допомогою конструктора треба в меню Insert вибрати пункт UserForm . З властивостей, подій та мето­дів форми найчастіше використовуються такі:

Activate – активізація форми;

Caption – заголовок форми;

Hideсховати форму;

Show – показати форму.

5.1.1 Деякі властивості та події елементів управління

Елементи управління знаходяться на панелі Toolbox, яка зобра­жена на рисунку 5.1. Розміри об’єктів можна змінювати мишкою або за допомогою властивостей Height (висота) та Width (ширина).

Рисунок 5.1 – Панель елементів управління

На панелі знаходяться кнопки для таких елементів управління:

Label – напис;

TextBox – текстове поле;

ComboBoxполе зі списком;

ListBox – список;

CheckBoxпрапорець;

OptionButton – перемикач;

ToggleButtonвимикач;

Frame – рамка;

CommandButtonкомандна кнопка;

TabStrip – набір вкладок;

MultiPage – набір сторінок;

ScrollBar – смуга прокручування;

SpinButton – лічильник;

Imageрисунок;

RefEditвікно редагування, яке може згортатися.

Найчастіше використовуються такі властивостей та події еле­ментів управління:

Caption – заголовок елемента;

Name – ім'я елемента управління. VBA встановлює цю властивість за замовчанням, але його можна змінити за своїм бажанням.

Click – клик лівою кнопкою мишки на елементі;

Font – задає властивості шрифту;

Enabled – якщо дорівнює True, то елемент доступний,

якщо дорівнює False, то елемент недоступний.

Value – значення, яке набуває елемент;

SetFocus встановлює фокус на елемент управління;

ControlSourceджерело даних для елемента управління TextBox, а для елементів управління ComboBox та ListBox – це адреса клітинки, до якої записується обраний елемент;

RowSource – це діапазон даних для елементів управління ComboBox та ListBox.

ListIndex – повертає номер обраного елемента списку, нумерація еле­ментів списку починається з нуля;

ListCount – кількість елементів списку;

ColumnCount – встановлює кількість стовпчиків у списку.

Ім’я процедури за замовченням складається з імені об’єкта та події, відокремлених одне від одного рискою символу підкреслення.

Д ля виконання конкретних дій найчастіше використовуються командні кнопки CommandButton та подія Click (щиглик лівою кнопкою мишки по кнопці). Командні кнопки можна розмістити на формі або на Листі Excel. Для розміщення її на Листі Excel треба спочатку перейти в режим Конструктора за допомогою кнопки

П отім необхідно вивести на екран панель елементів управлін­ня. Це робиться за допомогою відповідної кнопки. Щоб вийти з режиму Конструктора, треба ще раз натиснути ту ж кнопку.

Приклад 5.1. Створимо просту форму, що вводить два числа, дозволяє вибрати арифметичну операцію, яку необхідно зробити над числами, і виводить результат.

На рисунку 5.2 приведене вікно форми в режимі конструктора, що містить:

  • три текстових поля TextBox1, TextBox2, TextBox3 для введення двох чисел і виведення результату;

  • групу перемикачів OptionButton1, OptionButton2, OptionButton3, OptionButton4 для вибору операції; властивості Caption кожного перемикача замінені знаками операцій;

  • командну кнопку CommandButton1для запуску процедури обчислення; властивість Caption кнопки замінено словом «Обчислити»;

  • напису біля текстових полів, що пояснюють їхнє призначення.

К рім того, на екрані видно вікно проекту, вікно властивостей поля TextBox3, вікно елементів керування.

Рисунок 5.2. Конструювання форми приклада 5.1.

З кнопкою CommandButton1 пов'язана процедура, що починає працювати при щиголі мишею на кнопці. Щоб написати текст процедури, необхідно двічі клацнути на кнопці при конструюванні форми. Відчиняється вікно коду, у якому записуємо приведений нижче текст. Заголовок процедури і її ім'я будуються автоматично, тому що ім'я зв'язується з ім'ям об'єкта і подією, за якою запускається процедура.

Private Sub CommandButton1_Click()

Dim x As Single, y As Single, r As Single

If IsNumeric(TextBox1. Value) Then

x = TextBox1. Text

Else

MsgBox "Введіть перше число"

TextBox1. SetFocus

End If

If IsNumeric(TextBox2. Value) Then

y = TextBox2. Text

Else

MsgBox "Введіть друге число"

TextBox2. SetFocus

End If

If OptionButton1. Value Then z = x + y

If OptionButton2. Value Then z = x - y

If OptionButton3. Value Then z = x * y

If OptionButton4. Value Then

If y = 0 Then

MsgBox "Неприпустиме значення знаменника"

TextBox2. SetFocus

Else

z = x / y

End If

End If

TextBox3. Text = z

End Sub

Соседние файлы в предмете [НЕСОРТИРОВАННОЕ]