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
- 1
Abra o Visual Basic e crie um novo projeto ao clicar em "Arquivo" e "Novo Projeto". Selecione "Projeto de Formulário do Windows".
- 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.