Como programar equações quadráticas no Visual Basic

Visual Basic pode resolver equações quadráticas

Passo 1

Abra um novo programa do Visual Basic. Clique duas vezes no botão da ferramenta para adicionar Button1 ao formulário. Clique duas vezes na ferramenta "Label" duas vezes para adicionar Label1 e Label2 ao formulário.

Passo 2

Clique duas vezes em "Button1" no formulário para abrir a janela de código. Escreva o seguinte código: Dim a Como Decimal = InputBox ("Enter A:") Dim b Como Decimal = InputBox ("Enter B:") Dim c Como Decimal = InputBox ("Enter C:") Quadrático (a, b, c)

As primeiras três linhas perguntam ao usuário os valores das constantes. Então ele vai para um sub chamado "Quadrático" e passa as constantes como argumentos para ele.

Passo 3

Retire o cursor do sub Button1. Escreva o seguinte código: Private Sub Quadratic (ByVal como As Decimal, ByVal b Como Decimal, ByVal c Decimal) Dim roots (1) As String Dim x1, x2, disco As Decimal disc = b ^ 2 - 4 * a * c

A primeira linha cria o sub quadrático e aceita os três argumentos. Em seguida, defina uma seleção com dois elementos para as duas raízes. Em seguida, crie três variáveis decimais e atribua o valor do discriminante, que determina o número de raízes que a equação quadrática possui.

Passo 4

Escreva o seguinte código: Se disco> = 0 Então 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 & ")" roots (1) = "(-" & b.ToString & "-Sqrt (" & disc.ToString & ")) / (2 " & a.ToString & ")" End If

A função "if" é definida se o valor do discriminante for maior ou igual a zero, o que significa que a equação tem uma ou duas raízes. Então resolva x. Se o discriminante for menor que zero, a equação não terá raízes reais e a parte "else" será executada, mostrando as equações complexas da raiz.