Как да програмирате квадратични уравнения в Visual Basic

Visual Basic може да реши квадратични уравнения

Стъпка 1

Отворете нова програма за Visual Basic. Щракнете двукратно върху бутона на инструмента, за да добавите бутон 1 към формуляра. Кликнете двукратно върху инструмента "Етикет" два пъти, за да добавите Label1 и Label2 към формуляра.

Стъпка 2

Щракнете двукратно върху "Button1" във формата, за да отворите прозореца с кодове. Напишете следния код: Dim a As Decimal = Въведете кода ("Enter A:") Dim b Като десетично = InputBox ("Enter B:") в)

Първите три реда задават на потребителя стойностите на константите. След това той отива в подсъзнанието "Квадратичен" и предава константите като аргументи за него.

Стъпка 3

Изтеглете курсора от бутона "Sub" 1. Напишете следния код: Частен под квадратичен (ByVal до As Decimal, ByVal b Като десетичен, ByVal c Като десетичен) Dim корени (1) Като String Dim x1, x2, диск Като десетичен диск = b ^ 2 - 4 * a * c

Първият ред създава квадратния под и приема три аргумента. След това дефинирайте селекция с два елемента за двата корена. След това създайте три десетични променливи и задайте стойността на дискриминатора, който определя броя на корените, които квадратичното уравнение има.

Стъпка 4

Напишете следния код: Ако дискът> = 0 Тогава x1 = (-b + Math.Sqrt (диск)) / (2 * a) x2 = (-b - Math.Sqrt (0) = x1.ToString корени (1) = x2.ToString Други корени (0) = "(-" & b.ToString & "+ Sqrt (" & disk.ToString & ")) / (2 " &. ("& A.ToString &" -Sqrt ("& disc.ToString &")) / (2 "& a.ToString &") "

Функцията "if" е зададена, ако стойността на дискриминатора е по-голяма или равна на нула, което означава, че уравнението има един или два корена. След това решете x. Ако дискриминаторът е по-малък от нула, уравнението няма реални корени и се изпълнява частта "else", показваща комплексните коренни уравнения.