Квадратна једначина је полином другог степена који има облик "ак^2 + бк + ц = 0." "а", "б" и "ц" су константе, а "к" је променљива. Када решавате квадратну једначину, морате имати вредности константи и решити за к, што увек даје две вредности, које се називају „корени“. Ин Висуал Басиц, можете написати програм или функцију која тражи од корисника да унесе а, б и ц вредности, пронађе корене и затим прикаже вредности на форму.
Корак 1
Отворите нови Висуал Басиц програм. Двапут кликните на алатку „Дугме“ да бисте додали дугме Буттон1 у образац. Двапут кликните на алатку „Ознака“ двапут да бисте додали Лабел1 и Лабел2 у образац.
Видео дана
Корак 2
Двапут кликните на „Буттон1“ на обрасцу да бисте отворили прозор кода. Унесите следећи код:
Дим а као децимални = ИнпутБок("Ентер А: ") Дим б Као децимални = ИнпутБок("Ентер Б: ") Дим ц као децимални = ИнпутБок("Ентер Ц: ") Квадратно (а, б, ц)
Прва три реда од корисника траже вредности константи. Затим позива суб под називом "Квадратични" и прослеђује му константе као аргументе.
Корак 3
Уметните курсор изван подмета Буттон1. Унесите следећи код:
Приватни подквадратни (БиВал а као децимални, БиВал б као децимални, БиВал ц као децимални) Дим корени (1) као стринг Дим к1, к2, диск Као децимални диск = б ^ 2 - 4 * а * ц
Први ред креира квадратни суб и прихвата три аргумента. Затим дефинише низ са две ставке за два корена. Затим креира три децималне варијабле и додељује вредност дискриминанте, која одређује број корена квадратне једначине.
Корак 4
Унесите следећи код:
Ако је диск >= 0 Тада је к1 = (-б + Матх. Скрт (диск)) / (2 * а) к2 = (-б - Матх. Скрт (диск)) / (2 * а) корени (0) = к1.ТоСтринг корени (1) = к2.ТоСтринг Други корени (0) = "(-" & б. ТоСтринг & "+Скрт(" & диск. ТоСтринг & "))/(2_" & а. ТоСтринг & ")" корени (1) = "(-" & б. ТоСтринг & "-Скрт(" & диск. ТоСтринг & "))/(2_" & а. ТоСтринг & ")" Енд Иф
Функција „ако“ проверава да ли је вредност дискриминанта већа или једнака нули, што значи да једначина има један или два корена. Затим се решава за к. Ако је дискриминанта мањи од нуле, једначина нема правих корена и извршава се део „друго“, који приказује сложене коренске једначине.
Корак 5
Унесите следећи код:
Лабел1.Тект = роотс (0) Лабел2.Тект = роотс (1) Енд Суб
Ове линије кода једноставно приказују корене на етикетама, а затим затварају блок кода Квадратног суб-а.
Корак 6
Сачувајте програм Висуал Басиц. Притисните "Ф5" да бисте га покренули.