Imports System

Public Module Module1

    Public Sub Main()

        dim max,min,total,avg as integer 

        dim count,speed as integer 

        min= 1000

        For count = 1  to 5 

        console.WriteLine("enter speed")

        speed = console.readline()

        if speed > max then 

            max=speed

        else if speed < min then 

                min=speed

            End if 

            total= total + speed

        next count

        avg = total /5 

        console.WriteLine("highest speed {0}",max)

        console.WriteLine("minimum speed {0}",min)

        console.WriteLine("average{0}",avg)

​

​

    End Sub

End Module