Квадратното уравнение е полином от втора степен, който има формата "ax^2 + bx + c = 0." "a", "b" и "c" са константите, а "x" е променливата. Когато решавате квадратно уравнение, трябва да имате стойностите на константите и да решите за x, което винаги дава две стойности, наречени „корени“. В Visual Basic, можете да напишете програма или функция, която подканва потребителя да въведе стойностите a, b и c, да намери корените и след това да покаже стойностите на форма.
Етап 1
Отворете нова програма на Visual Basic. Щракнете двукратно върху инструмента "Button", за да добавите Button1 към формуляра. Щракнете двукратно върху инструмента "Етикет" два пъти, за да добавите Label1 и Label2 към формуляра.
Видео на деня
Стъпка 2
Щракнете двукратно върху "Button1" във формуляра, за да отворите прозореца с кода. Въведете следния код:
Dim a Като десетичен = InputBox("Enter A: ") Dim b Като десетичен = InputBox("Enter B: ") Dim c Като десетичен = InputBox("Enter C: ") Квадратичен (a, b, c)
Първите три реда подканват потребителя за стойностите на константите. След това извиква подменю, наречена "Quadratic" и му предава константите като аргументи.
Стъпка 3
Поставете курсора извън подложката Button1. Въведете следния код:
Частен подквадратичен (ByVal a като десетичен, ByVal b като десетичен, ByVal c като десетичен) Дим корени (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
Тези редове код просто показват корените на етикетите и след това затварят кодовия блок на Quadratic sub.
Стъпка 6
Запазете програмата Visual Basic. Натиснете "F5", за да го стартирате.
