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
-
Abra o Visual Basic e crie um novo projeto ao clicar em "Arquivo" e "Novo Projeto". Selecione "Projeto de Formulário do Windows".
-
Arraste um "botão" da sua "caixa de ferramentas" para o seu projeto.
-
Arraste uma "caixa de texto" da sua "caixa de ferramentas" para o seu projeto.
-
Clique duas vezes no botão para criar um método de evento para ele.
-
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.
-
Clique no botão "Play".
-
Digite um conjunto de números, separados por vírgula, na caixa de texto. Clique no botão para calcular a média deles.