Imports System

imports Microsoft.VisualBasic

Public Module Module1

    Public Sub Main()

​

        dim height as double = 0

        dim students (499) as integer

        dim answer as double = 0

        for count = 0 to 499

        console.writeline("Enter student height")

        height = console.ReadLine()

        if height <1.45

            console.Writeline("short student")

        else 

            console.writeline(" tall student")

            console.readline()

        end if 

    next

​

    End Sub

End Module