Квадратное уравнение - это многочлен второй степени, имеющий вид «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 ("Enter A:") Dim b As Decimal = InputBox ("Enter B:") Dim c As Decimal = InputBox ("Enter C:") Квадратичный (a, b, c)
Первые три строки запрашивают у пользователя значения констант. Затем он вызывает подпрограмму "Quadratic" и передает ей константы в качестве аргументов.
Шаг 3
Вставьте курсор вне подпункта Button1. Введите следующий код:
Частный суб квадратичный (ByVal a как десятичный, ByVal b как десятичный, ByVal c как десятичный) Тусклые корни (1) как строка Dim x1, x2, disk как десятичный диск = b ^ 2-4 * a * c
Первая строка создает подгруппу Quadratic и принимает три аргумента. Затем он определяет массив с двумя элементами для двух корней. Затем он создает три десятичных переменных и присваивает значение дискриминанта, который определяет количество корней квадратного уравнения.
Шаг 4
Введите следующий код:
Если disc> = 0 Тогда x1 = (-b + Math. Sqrt (диск)) / (2 * a) x2 = (-b - Math. Sqrt (диск)) / (2 * a) корни (0) = x1.ToString корни (1) = x2.ToString Остальные корни (0) = "(-" & b. ToString & "+ Sqrt (" & disc. ToString & ")) / (2_" & a. ToString & ")" корни (1) = "(-" & b. ToString & "-Sqrt (" & disc. ToString & ")) / (2_" & a. ToString & ")" Конец, если
Функция «if» проверяет, больше ли значение дискриминанта или равно нулю, что означает, что уравнение имеет один или два корня. Затем он решает относительно x. Если дискриминант меньше нуля, уравнение не имеет действительных корней и выполняется часть «else», которая отображает уравнения с комплексными корнями.
Шаг 5
Введите следующий код:
Label1.Text = корни (0) Label2.Text = корни (1) End Sub
Эти строки кода просто отображают корни на метках, а затем закрывают блок кода квадратичной подпрограммы.
ШАГ 6
Сохраните программу Visual Basic. Нажмите «F5», чтобы запустить его.
