Dim a As Single, b As Single
Dim z As Double, y As Double, x As Single
Private Sub Command1_Click()
a = Val(Text_a.Text)
b = Val(Text_b.Text)
For x = 2 To 5 Step 0.5
z = 3.14 * Sin(a * x - b) / (2 * a)
y = (a * x / 2) ^ 2
Print x, z, y
Next x
End Sub
: ЗАПУСТІТЬ додаток на виконання в режимі Run-time;
: *ДОДАТИ (оператор Print) шапку для виведення даних x,y,z (рис.4.5)
: ЗАПУСТІТЬ додаток на виконання в режимі Run-time;
: НАПИШІТЬ процедуру очищення форми:
Private Sub Command3_Click()
Form1.Cls
End Sub
4 етап – тестування програми:
ü ЗАПУСТІТЬ додаток на виконання в режимі Run-time, введіть вхідні дані, перевірте правильність розрахунків;
‘ Програмні помилки: - виведення значень в одну строку, а потрібно по стовбцях було Print x, z, y; необхідно Print x, z, y |
ü Виконайте індивідуальне завдання 4.3 відповідно варіанта.
ü РОЗМІСТІТЬ В ЗВІТІ копію вікна форми з результатами завдання 2.1. та текст коду програм
HOME\№групи\LR_4_Прізвище\ LR_4_Прізвище.doc
ü ЗБЕРІЖІТЬ проект та форму.
: *ОРГАНІЗУЙТЕ форматне виведення даних x,y,z (рис.4.5)
Print Format(x,”0000.00”);”грн” – вказує формат для виведення значення x і додає текстовий рядок грн. , – виведення виразу з початку нової зони ; – виведення виразу безпосередньо після останнього виведеного виразу . Функція Spc( n) виводить задану кількість пропусків, n - кількість пропусків. |
Задание 3.** Решить задачу 1, используя вывод в TextBox.