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)

Форматне виведення Функція Format перетворює числові значення в текстовий рядок і надає можливість управляти зовнішнім виглядом рядка. Наприклад, можна задати число десяткових розрядів, провідних або замикаючих нулів і грошові формати. Спрощений синтаксис функції Format Format ( Віраз [, Формат ]) Параметр Віраз (змінна) задає перетворюване число, а параметр Формат є рядком, складеним з символів, що визначають вигляд числа (форматування) . Найбільш часто використовувані символи
Символ Описание
Цифровий символ-заповнювач; друкує замикаючий або провідний нуль в поточній позиції
# Цифровий символ-заповнювач; ніколи не друкує замикаючих або провідних нулів
-+ $ . , пробіл Буквальний символ; символи відображуються точно так, як вони набрані в рядку формату і поміщаються в тій позиції, де вони вказані.  

 

Приклади Результат
Format (315.4,"00000.00") 00315.40
Format (315.4,"#####.##") 315.4
Format (6315.4,"##,##0.00") 6,315.40
Format (315.4,"$##0.00") $315.40

 

Print Format(x,”0000.00”);”грн” – вказує формат для виведення значення x і додає текстовий рядок грн.

, – виведення виразу з початку нової зони

; – виведення виразу безпосередньо після останнього виведеного виразу .

Функція Spc( n) виводить задану кількість пропусків, n - кількість пропусків.

Задание 3.** Решить задачу 1, используя вывод в TextBox.