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

  • Pergunta

  • 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

  • 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