• Гідрологія і Гідрометрія
• Господарське право
• Економіка будівництва
• Економіка природокористування
• Економічна теорія
• Земельне право
• Історія України
• Кримінально виконавче право
• Медична радіологія
• Методи аналізу
• Міжнародне приватне право
• Міжнародний маркетинг
• Основи екології
• Предмет Політологія
• Соціальне страхування
• Технічні засоби організації дорожнього руху
• Товарознавство продовольчих товарів

ЗАВДАННЯ 9.2, 9.3. СТВОРІТЬ ПРОЕКТ ДЛЯ ОБЧИСЛЕННЯ ЗНАЧЕННЯ ФУНКЦІЇ ЗГІДНО З ВАРІАНТОМ ІНДИВІДУАЛЬНОГО ЗАВДАННЯ.

Приклад виконання ЗАВДАННЯ 9.2:

СТВОРІТЬ ПРОЕКТ ДЛЯ ОБЧИСЛЕННЯ ТА ВИВЕДЕННЯ ЗНАЧЕНЬ ФУНКЦІЇ де aÎ[2;5], h_a=1.5 bÎ[3; 9], h_b=2 cÎ[0;1.2], h_c=0.3

Результат. Вивести на формі.

Обов'язкові умови. Розрахунки і виведення даних повинні виконуватися при натисканні відповідної кнопки.

Порядок виконання роботи

1. Створіть новий проект, на якому розташуйте форму, аналогічну відповідній проекту Лр9_Зад1_Прізвище.

2. Змініть назву кнопки CmdPrint на CmdРозрахунок.

3. Розробіть процедуру обробки події Click для CmdРозрахунок відповідно схемі рис. 9.2, аналогічно наведеній нижче.

Option Explicit

Private Sub CmdРозрахунок_Click()

Dim a As Single, b As Single, c As Single, y As Single

Print: Print: Print: Print

Print "a"; Spc(7); "b"; Spc(7); "c"; Spc(7); "y"

Print

For a = 2 To 6 Step 1.5

For b = 3 To 9 Step 2

For c = 0.1 To 1.3 Step 0.3

y = (a + b + c)

Переглядів: 414