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

Квадратное уравнение — это многочлен второй степени, который имеет вид «ax^2 + bx + c =0». «a», «b» и «c» — константы, а «x» — переменная. Когда вы решаете квадратное уравнение, вы должны иметь значения констант и решить для x, что всегда дает два значения, называемые «корнями». На Visual Basic вы можете написать программу или функцию, которая предложит пользователю ввести значения a, b и c, найти корни и затем отобразить значения в форме.

Шаг 1

Откройте новую программу Visual Basic. Дважды щелкните инструмент «Кнопка», чтобы добавить Button1 в форму. Дважды щелкните инструмент "Ярлык", чтобы добавить в форму Метка1 и Метка2.

Шаг 2

Дважды щелкните «Button1» в форме, чтобы открыть окно кода. Введите следующий код:

Dim a As Decimal =InputBox("Введите A:") Dim b As Decimal =InputBox("Enter B:") Dim c As Decimal =InputBox("Enter C:") Quadratic(a, b, c)

Первые три строки запрашивают у пользователя значения констант. Затем он вызывает подпрограмму под названием "Quadratic" и передает ей константы в качестве аргументов.

Шаг 3

Вставьте курсор вне подпрограммы Button1. Введите следующий код:

Private Sub Quadratic(ByVal a As Decimal, ByVal b As Decimal, ByVal b As Decimal, ByVal c As Decimal) Dim roots(1) As String Dim x1, x2, disk As Decimal disc =b ^ 2 - 4 * a * c

Первая строка создает подпрограмму Quadratic и принимает три аргумента. Затем он определяет массив с двумя элементами для двух корней. Затем создаются три десятичные переменные и присваивается значение дискриминанта, который определяет количество корней квадратного уравнения.

Шаг 4

Введите следующий код:

Если диск>=0, то x1 =(-b + Math.Sqrt(диск)) / (2 * a) x2 =(-b - Math.Sqrt(диск)) / (2 * a) root(0) =x1 .ToString roots(1) =x2.ToString Else roots(0) ="(-" &b.ToString &"+Sqrt(" &disk.ToString &"))/(2_" &a.ToString &")" root(1) ="(-" &b.ToString &"-Sqrt(" &disk.ToString &"))/(2_" &a.ToString &")" End If

Функция «если» проверяет, больше ли значение дискриминанта или равно нулю, что означает, что уравнение имеет один или два корня. Затем он решает для x. Если дискриминант меньше нуля, уравнение не имеет действительных корней и выполняется часть «else», которая отображает комплексные уравнения корней.

Шаг 5

Введите следующий код:

Label1.Text =корни(0) Label2.Text =корни(1) End Sub

Эти строки кода просто отображают корни на метках, а затем закрывают блок кода подпрограммы Quadratic.

Шаг 6

Сохраните программу Visual Basic. Нажмите "F5", чтобы запустить его.