Ir para conteúdo
Fórum Script Brasil
  • 0

Ajuda


cseri

Pergunta

3 respostass a esta questão

Posts Recomendados

  • 0

Bruno

Ai vai.

Para fazer o cálculo do IMC basta dividir seu peso em quilogramas pela altura ao quadrado (em metros). O número que será gerado deve ser comparado aos valores da tabela IMC para se saber se você está abaixo, em seu peso ideal ou acima do peso.

Por exemplo, se você pesa 60Kg e mede 1,67m, você deve utilizar a seguinte fórmula para calcular o IMC:

IMC = 60 ÷ 1,67²

IMC = 60 ÷ 2,78

IMC = 21,5

Link para o comentário
Compartilhar em outros sites

  • 0

está ai o codigo..... Pelo menos deu o mesmo valor que o lcs passou...XD

Espero que seja isso o que você quer cseri...

Dim ALTURA As Double

Dim PESO As Double

Dim IMC As Double

Private Sub CommandButton1_Click()

ALTURA = TextBox1.Text

PESO = TextBox2.Text

IMC = PESO / (ALTURA * ALTURA)

MsgBox Format(IMC, "##.##") ' o format serviu pra não aparecer um numero fracionario

' muito grande como 21,555222525

End Sub

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...