Estadística Curso de Programación Visual Basic

Lección:

Control del Flujo


Ejercicio:

Estadística 5


Objetivo:

Escribir un programa en Visual Basic para calcular varias operaciones estadísticas básicas: aceptará números del usuario y mostrará su suma, promedio, mínimo y máximo, como en el siguiente ejemplo:

¿Número? 5
Total=5 Importe=1 Promedio=5 Máximo=5 Mínimo=5

¿Número? 2
Total=7 Importe=2 Promedio=3 Máximo=5 Mínimo=2

¿Número? 0
¡Adiós!

(Como se ve en este ejemplo, el programa terminará cuando el usuario ingrese 0)


Código:

Imports System
Public Class exercise43
    Public Shared Sub Main()
        Dim num As Integer
        Dim total As Integer = 0, amount As Integer = 0
        Dim maximum, minimum As Integer
        Console.Write("number? ")
        num = Convert.ToInt32(Console.ReadLine())
        maximum = num
        minimum = num

        While num <> 0
            amount += 1
            total += num
            If num > maximum Then maximum = num
            If num < minimum Then minimum = num
            Console.WriteLine("Total={0} Amount={1} Average={2} maximum={3} minimum={4}", total, amount, total / amount, maximum, minimum)
            Console.Write("number? ")
            num = Convert.ToInt32(Console.ReadLine())
        End While

        Console.WriteLine("Bye!")
    End Sub
End Class