A equação quadrática é um polinômio de segundo grau que tem a forma " ax ^ 2 + bx + c = 0. " O " a", " b " e " c " são as constantes e " x " é a variável . Quando você resolver uma equação quadrática , você deve ter os valores das constantes e resolver para x , que sempre produz dois valores , chamados de "raízes ". No Visual Basic, você pode escrever um programa ou função que solicita que o usuário insira os a, b ​​e c valores , encontrar as raízes e , em seguida, exibir os valores no formulário. Instruções
1

Abra um novo programa Visual Basic. Dê um duplo clique na ferramenta "Botão " para adicionar Button1 para o formulário. Dê um duplo clique na ferramenta "Rótulo" duas vezes para adicionar Label1 e Label2 ao formulário.
2

Clique duas vezes em "Button1 " no formulário para abrir a janela de código. Digite o seguinte código:

Dim a As Decimal = InputBox ("Digite A: " )

Dim b As Decimal = InputBox ("Digite B :")

Dim c as Decimal = InputBox ("Digite C :")

quadrática (a, b, c)

as três primeiras linhas solicitar ao usuário os valores das constantes . Em seguida, chama uma sub chamado " quadrática " e passa as constantes como argumentos para isso.
3

Coloque o cursor fora da sub Button1. Digite o seguinte código: Private Sub

quadrática (ByVal a As Decimal , ByVal b As Decimal , ByVal c As Decimal )

Dim raízes (1) As String Dim

x1 , x2, disco as Decimal
disco

= b ^ 2 - 4 * a * c

a primeira linha cria o sub quadrática e aceita três argumentos. Em seguida, ele define uma matriz com dois itens para as duas raízes. Em seguida, cria três variáveis ​​decimais e atribui o valor do discriminante , que determina o número de raízes da equação quadrática tem
4

Digite o seguinte código: .

Se disco > = 0 Then

x1 = ( -b + Math.Sqrt ( disco )) /(2 * a)

x2 = ( -b - Math.Sqrt ( disco) ) /(2 * a)

raízes (0) = x1.ToString

raízes (1) = x2.ToString

Else

raízes (0) = " ( - " & b.ToString & " + Sqrt ( " & disc.ToString & " ) ) /( 2 * " & a.ToString & " ) "

raízes ( 1 ) = " ( - " & b.ToString & " - sqrt ( " & disc.ToString & " )) /(2 * " & a.ToString & " ) "

End If

o "se " função verifica para ver se o valor do discriminante é maior do que ou igual a zero , o que significa que a equação tem uma ou duas raízes . Em seguida, ele resolve para x . Se o discriminante é menor que zero , a equação não tem raízes reais ea parte "else " executa , que exibe as equações complexas raízes
5

Digite o seguinte código: .

Label1.Text = raízes (0)

Label2.Text = raízes (1)

End Sub

Estas linhas de código simplesmente exibir as raízes nos rótulos e feche código de bloco do sub quadrática .
6

Salve o programa Visual Basic. Pressione " F5" para executá-lo .