none
Erro de compilação ao elevar número (ex: b^2) RRS feed

 > 

  • Pergunta

  • Question
    Entrar para Votar
    0
    Entrar para Votar

    Olá gente, estou começando VBA agora e escrevi o seguinte código abaixo. Só que quando rodei, ele selecionou a fórmula do delta e disse que era erro de compilação. O que faço?

    Sub test ()

Dim a, b, c, delta, x1, x2 As Double


a = InputBox("Digite o valor de a")
b = InputBox("Digite o valor de b")
c = InputBox("Digite o valor de c")

delta = b^2 - 4 * a * c

If delta < 0 Then
    MsgBox "Delta<0. Não existe raízes reais"
End If


    quarta-feira, 21 de outubro de 2015 15:12
    |

Respostas

  • Question
    Entrar para Votar
    0
    Entrar para Votar

    Boa Tarde,

    Está faltando um 'End Sub' ao final do código.

    E outra coisa, dê um espaço antes e depois do acento circunflexo, fica assim:

    Sub test()

Dim a, b, c, delta, x1, x2 As Double


a = InputBox("Digite o valor de a")
b = InputBox("Digite o valor de b")
c = InputBox("Digite o valor de c")

delta = b ^ 2 - 4 * a * c

If delta < 0 Then
    MsgBox "Delta<0. Não existe raízes reais"

End If

End Sub

    quarta-feira, 21 de outubro de 2015 15:16
    |