Conversor Métrico

Exercício Básico

Enunciado

Crie um Inputbox que converta uma medida de inches para centímetros. Mostre a resposta com um Msgbox.

Conceitos Sugeridos:

Dim - Declara variáveis.
Msgbox - Executando o Código - Exibe uma mensagem em uma caixa de diálogo.
InputBox - Atribuindo Valores - Exibe um prompt em uma caixa de diálogo para o usuário inserir texto.

Lembre-se que na maioria dos casos há mais de uma forma de resolver o problema.

Dica: Um inch equivale a 2,54 centímetros.

Exercício Resolvido

Resolvendo o Problema

Declare a variável Inches
```
Dim Inches As Long
```

Atribua o valor que do InputBox a variável

Inches = InputBox("Qual a medida em Inches deseja converter para Centímetros?")

Multiplique o valor do da variável por 2,54 para exibir o Msgbbox. No código, devido ao padrão americano, utilize . ao invés de ,.
```
MsgBox Inches * 2.54 & " cm."
```

Código Consolidado

    Sub Resolucao()

    Dim Inches As Long

    Inches = InputBox("Qual a medida em Inches deseja converter para Centímetros?")

    MsgBox Inches * 2.54 & " cm."

    End Sub

Exibir Resposta

Download do exercício Download da resposta

SuperExcelVBA.com é um site voltado ao aprendizado de VBA. Exemplos e explicações podem ter sido simplificados para maior e mais veloz compreensão. Estamos constantemente nos atualizando e corrigindo erros, porém não existe garantia sobre o conteúdo disponível no site. Todos os direitos reservados.

Excel ® é uma marca registrada da Microsoft Corporation.

INTRODUÇÃO

BÁSICO

INTERMEDIÁRIO

AVANÇADO