Хід роботи
Запустити Microsoft Excel, виконати команди Сервіс–> Макрос–> Безпека та встановити низький рівень безпеки.
Виконати команди Сервіс–> Макрос–> Редактор Visual Basic
Створити форму, подібну до тої, що представлена на рис. 21.1.
Рис. 21.1. Приклад форми
У властивості Caption форми задайте значення „Лабораторна робота №1”
У властивості Caption компоненту Label1 задайте значення „А1=”
У властивості Caption кнопок задайте відповідні значення: „Розрахувати”, „Очистити”, „Вихід”.
На кнопку Розрахувати напишіть наступну процедуру:
'Лабораторна робота №21
'Виконав студент групи ХТІ-11
'Кітлер Сергій Іванович
Dim a, A1, y As Single
A1 = Val(TextBox1.Text)
a = Val(InputBox("a="))
y = Sin(A1) + Cos(a)
TextBox2.Text = TextBox2.Text + "sin(" + CStr(A1) + ")+cos(" + CStr(a) + ")=" + CStr(y) + vbCr
На кнопку Очистити напишіть наступну процедуру:
TextBox2.Text = " "
На кнопку Вихід напишіть:
End
Виконайте подібне завдання згідно свого варіанту.
Варіант |
Функція |
Контрольні значення змінних |
Значення функції |
1 |
|
x=5.2 a=0.3 |
2.3767 |
2 |
|
x=3.2 a=0.5 b=1.2 |
-3.1505 |
3 |
|
x=2.36 |
0.2183 |
4 |
|
x=-5.2 a=0.3 |
-21.4134 |
5 |
|
a=1.5 x=0.25 |
2.2278 |
6 |
|
a=2.58 x=-3.25 |
-71.7990 |
7 |
|
a=1.25 x=-0.15 |
-0.2147 |
8 |
|
a=-3 x=-1.2 b=0.25 |
0.0514 |
9 |
|
a=-0.17 x=3.5 b=18 |
-2.6780 |
10 |
|
x=3.25 |
-48.1627 |
11 |
|
a=-0.18 x=3.14 |
0.1667 |
12 |
|
a=0.45 x=12 |
432.9875 |
13 |
|
x=4 |
5.1066 |
14 |
|
x=2.36 |
0.3946 |
15 |
|
a=0.13 x=-2.5 b=17 |
-40.9789 |
16 |
|
x=1.2 |
5.3633 |
17 |
|
a=-2.35 x=1.23 |
0.0642 |
18 |
|
a=4.59 x=2.45 |
10.5212 |
19 |
|
a=1.27 x=7.4 |
6.5568 |
20 |
|
a=1.23 x=-3.4 b=8.45 |
48.7413 |
