Imports System

Public Module Module1

    Public Sub Main()

        Console.WriteLine("Hello World")

    End Sub

        Sub SelectMaxMin()

        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

    Next

    If anNums('i') > nMax Then

                nMax = anNums('i')

            End If

nTotal += anNums(i)

    For i = 0 To anNums.Length - 1

Next

If anNums(i) = nMax Then

                nCount += 1 

    End If

For i = 0 To anNums.Length - 1

        Next

    Dim nAverage As Decimal

        nAverage = nTotal / nCount

        Console.WriteLine("0", nMax)

        Console.WriteLine("0 times", nCount)

        Console.WriteLine("0", nAverage)

    End Sub

End Module