Statistics Learn programming with Visual Basic (VB.net) exercises

Lesson:

Flow Control

Exercise:

Statistics 58

Objetive:

Exercise 2.29:
Statistics

Objetive:
Write a program to compute several basic statistical operations: it will accept numbers from the user and show their sum, average, minimum and maximum, as in the following example:

Number? 5
Total=5 Amount=1 Average=5 Maximum=5 Minimum=5

Number? 2
Total=7 Amount=2 Average=3 Maximum=5 Minimum=2

Number? 0
Bye!

(As seen in this example, the program will finish when the user enters 0)

Code:

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