Квадратне рівняння — це поліном другого ступеня, який має вигляд «ax^2 + bx + c = 0». "a", "b" і "c" - це константи, а "x" - змінна. Коли ви розв’язуєте квадратне рівняння, ви повинні мати значення констант і вирішувати значення x, яке завжди дає два значення, які називаються «коренями». в Visual Basic, ви можете написати програму або функцію, яка запропонує користувачеві ввести значення a, b і c, знайти корені, а потім відобразити значення на форму.
Крок 1
Відкрийте нову програму Visual Basic. Двічі клацніть інструмент «Кнопка», щоб додати Button1 до форми. Двічі клацніть інструмент «Мітка», щоб додати Label1 і Label2 до форми.
Відео дня
Крок 2
Двічі клацніть «Button1» у формі, щоб відкрити вікно коду. Введіть наступний код:
Dim a As Decimal = InputBox("Enter A: ") Dim b As Decimal = InputBox("Enter B: ") Dim c As Decimal = InputBox("Enter C: ") Квадратний (a, b, c)
Перші три рядки пропонують користувачеві значення констант. Потім він викликає підпорядок під назвою «Квадратичний» і передає йому константи як аргументи.
Крок 3
Вставте курсор за межі підпорядкування Button1. Введіть наступний код:
Приватний підквадратичний (ByVal a як десятковий, ByVal b як десятковий, ByVal c як десятковий) Dim корені (1) як рядок Dim x1, x2, диск Як десятковий диск = b ^ 2 - 4 * a * c
Перший рядок створює квадратичний підряд і приймає три аргументи. Потім він визначає масив із двома елементами для двох коренів. Потім створюється три десяткові змінні та призначається значення дискримінанта, що визначає кількість коренів у квадратному рівнянні.
Крок 4
Введіть наступний код:
Якщо диск >= 0, то x1 = (-b + Math. Sqrt (диск)) / (2 * a) x2 = (-b - Math. Sqrt (диск)) / (2 * a) корені (0) = x1.ToString корені (1) = x2.ToString Інші корені (0) = "(-" & b. ToString & "+Sqrt(" і диск. ToString & "))/(2_" & a. ToString & ")" корені (1) = "(-" & b. ToString & "-Sqrt(" і диск. ToString & "))/(2_" & a. ToString & ")" Кінець Якщо
Функція «if» перевіряє, чи значення дискримінанта більше або дорівнює нулю, що означає, що рівняння має один або два корені. Тоді він розв’язується для x. Якщо дискримінант менший за нуль, рівняння не має дійсних коренів, і виконується частина «інше», яка відображає рівняння комплексного кореня.
Крок 5
Введіть наступний код:
Label1.Text = roots (0) Label2.Text = roots (1) End Sub
Ці рядки коду просто відображають корені на мітках, а потім закривають кодовий блок квадратичного підпорядкування.
Крок 6
Збережіть програму Visual Basic. Натисніть «F5», щоб запустити його.
