code_vba_evandro

Sub calc_imc()

'Declaração de variáveis
Dim altura As Double
Dim peso As Double
Dim imc As Double

Dim resultado As String
Dim nome As String

'Armazenar
nome = "Evandro"

altura = 1.75
peso = 67

'Cálculo
imc = peso / (altura * altura)

'Verificar a faixa do IMC
'Sintaxe
If imc < 18.5 Then
    resultado = "Abaixo do peso"
ElseIf imc <= 25 Then
    resultado = "Peso ideal"
ElseIf imc <= 30 Then
    resultado = "Acima do peso"
ElseIf imc <= 35 Then
    resultado = "Obesidade"
ElseIf imc <= 40 Then
    resultado = "Obesidade severa"
Else
    resultado = "Obesidade mórbida"
End If

'







End Sub