Imports System

Public Module Module1

    Public Sub Main()

        'find the sum, maximum and its count of a set of numbers

        Dim anNums() = {3, 5, 1, 21, 7, 11, 1, 15, 21, 7}

        Dim nMax As Integer

        Dim nCount As Integer

        Dim nTotal As Integer

        For i = 0 To anNums.Length - 1

            'find the max value using selection

            If anNums(i) > nMax Then

                nMax = anNums(i)

            End If

            'count the number of  items that are equal to the maximum

            If anNums(i) = nMax Then

                nCount += 1 ' counting is changing a value by 1

            End If

            'to find the total change the current value of total by the next value

            nTotal += anNums(i)

        Next

        'outside the loop find averages

        Dim nAverage As Decimal

        nAverage = nTotal / nCount

        Console.WriteLine("Max value is {0}", nMax)

        Console.WriteLine("Max value occurred {0} times", nCount)

        Console.WriteLine("Average value was {0}", nAverage)

End Sub

​

End Module