×
Loading ...

Como calcular médias no Visual Basic

Médias são um exemplo excelente do tipo de tarefa que computadores são bons em automatizar: conceitualmente simples, mas tediosas e repetitivas de calcular por si. Esse programa simples em Visual Basic recebe uma série de números, separados por vírgula, e calcula sua média. Verifique as respostas e tenha bom senso, pois nenhum programa corrige uma informação de entrada errada.

Instruções

Criando um programa para calcular médias (Patrick Ryan/Lifesize/Getty Images)
  1. Abra o Visual Basic e crie um novo projeto ao clicar em "Arquivo" e "Novo Projeto". Selecione "Projeto de Formulário do Windows".

    Loading...
  2. Arraste um "botão" da sua "caixa de ferramentas" para o seu projeto.

  3. Arraste uma "caixa de texto" da sua "caixa de ferramentas" para o seu projeto.

  4. Clique duas vezes no botão para criar um método de evento para ele.

  5. Adicione o seguinte código ao método de evento do botão:

    Dim s = TextBox1.Text.Split(",") Dim total = 0

    For Each x In s Dim n = Double.Parse(x) total += n Next

    Dim average = total / s.Length

    MsgBox("A média é " + average.ToString)

    Isso separa o texto da caixa de texto sempre que uma vírgula aparece. Então, ele converte cada número de uma string para um double e encontra a soma deles. Por fim, a média é impressa para o usuário em uma caixa de diálogo.

  6. Clique no botão "Play".

  7. Digite um conjunto de números, separados por vírgula, na caixa de texto. Clique no botão para calcular a média deles.

Loading...

Referências

Loading ...
Loading ...