Imports System

Public Module Module1

    Public Sub Main()   

        Dim w, h, bmi , maxbmi, minbmi, count As Integer

        maxbmi=0

        minbmi=100

        Console.Clear()

        For Count = 1 To 10

        Console.WriteLine()

        Console.Write("Enter Your Weight:20 ")

        w=Console.ReadLine

        Console.Write("Enter Your Height:30 ")

        h=Console.ReadLine

        bmi=(w*100/h)

        If bmi > maxbmi Then

            maxbmi = bmi

            Console.WriteLine()

            Console.WriteLine("Your Bmi is: {0}", bmi)

            Console.WriteLine("Maximum Bmi is: {0}", maxbmi)

        ElseIf bmi < minbmi Then

            minbmi = bmi

            Console.WriteLine()

            Console.Writeline("Your Bmi is: {0}", bmi)  

            Console.WriteLine("Minimum Bmi is: {0}", minbmi)

        End If

    Next    

End Sub

End Module