Imports System

Imports System.Collections

Imports Microsoft.VisualBasic

Public Module Module1

    Public Sub Main()

        'Console.Clear

        'Dim nInt as integer 

        'Dim nInt16 as short 

        'Dim nDec as decimal

        'Dim nSng as double

        'nDec = 10 / 3

        'nInt = nDec

        'Console.WriteLine(nDec)

        'Console.WriteLine(nInt)

        'nSng = Math.PI

        'Console.WriteLine(nSng)

        'nDec = nSng

        'Console.WriteLine(nDec)

        'create a sub routine called Print that outputs a string

        'use: Print(stringValue)

        GetMinMaxAverage()

    End Sub

​

Private Sub GetMinMaxAverage()

    Dim i as Integer

    Dim minValue as decimal

    Dim maxValue as decimal

    Dim total as Decimal

    Dim count as Integer

    Dim average as Decimal

    total = 0

    minValue = 0

    maxValue = 0

    count = 0 

    average = 0

        Console.WriteLine("Enter positive numbers slowly, enter -1 to stop")

    Do Until i = -1

        i = Convert.ToInt32(Console.ReadLine())

        if(i >-1)

            total += i

            count += 1

            if (minValue = 0)

                minValue = i

            elseif (i < minValue)

                minValue = i

            elseif (i > maxValue)

                maxValue = i

            end if

        elseif (i < -1)

            Console.WriteLine("Please enter a positive number")

        end if

    Loop

    average = total / count

        Console.WriteLine("Min: " & minValue & ", Max: " & maxValue & " , count: " & count & ", total: " & total & ", Average: " & average)

End Sub

Private sub ListVersion

        Dim numberList as New ArrayList

End Sub

​

End Module