Imports System

Public Module Module1

    Public Sub Main()

        Dim Count, Number, total, highest, lowest as integer

        Dim average as decimal

​

        Count = 0

        total = 0

        highest= 0

        lowest = 999999

        Do

            Console.Writeline ("Enter Number")

            Number = Console.ReadLine()

            If Number > 0 Then

                total =total + number

                Count = Count+1     

                If Number > highest Then

                    highest= Number

                End If

                If Number < lowest Then

                    lowest = Number

                End If

​

            End If      

        Loop Until Number < 0

        average = total/ Count

        Console.WriteLine( "Highest = " & highest)

        Console.WriteLine("Lowest = " & lowest)

        Console.WriteLine ("Count = " & Count)

        Console.WriteLine ("Average = " & average)

        Console.WriteLine ("Total = " & total)

    End Sub

End Module

​

​

'Pseudocode

​

'INTEGER: number, total, highest, lowest

'REAL: average

​

'count <-- 0

'total <--0

'highest <-- 0

'lowest <-- 999999

​

'REPEAT

'OUTPUT: 

​

​

​