Imports System

Public Module Module1

    Public Sub Main()

        Dim StudentID as string

        Do

        console.WriteLine("Enter The Student ID: ")

        StudentID = console.ReadLine()

            If typeCheckInt(StudentID) then 

                Console.WriteLine("Valid Input, Continuing...")

            Else

                Console.WriteLine("Please Try Again, Make Sure You're Input Is A Number Not Letters: ")

                Console.ReadLine()

            End if

            if StudentID < 10000 or StudentID > 99999 then

                Console.WriteLine("Input Is Inavalid, Please Enter A Valid Studemt ID: ")

            end if

        Loop until StudentID > 9999 and StudentID < 100000

        Dim Result_English as string

        Do

        console.WriteLine("Enter Student's English Mark: ")

        Result_English = console.ReadLine()

            If typeCheckInt(Result_English) then 

            Console.WriteLine("Valid Input, Continuing...")

            Else

                Console.WriteLine("Please Try Again, Make Sure You're Input Is A Number Not Letters: ")

                Console.ReadLine()

            End if

        if Result_English < 0 or Result_English > 100 then

            console.WriteLine("Input Is Invalid, Please Enter A Valid Test Score: ")

            end if

        Loop Until Result_English < 101 and Result_English > -1

        Dim Result_Maths as string

        Do

        console.WriteLine("Enter Student's Maths Mark: ")

        Result_Maths = console.ReadLine()

            If typeCheckInt(Result_Maths) then 

            Console.WriteLine("Valid Input, Continuing...")

            Else

                Console.WriteLine("Please Try Again, Make Sure You're Input Is A Number Not Letters: ")

                Console.ReadLine()

            End if

        if Result_Maths <0 or Result_Maths >100 then

            Console.WriteLine("Input Is Invalid, Please Enter A Valid Score: ")

            end if 

        Loop Until Result_Maths <101 and Result_Maths >-1

        Dim Result_Science as string

        Do

        console.WriteLine("Enter Student's Science Mark: ")

        Result_Science = console.ReadLine()

            If typeCheckInt(Result_Science) then 

            Console.WriteLine("Valid Input")

            Else

                Console.WriteLine("Please Try Again, Make Sure You're Input Is A Number Not Letters: ")

                Console.ReadLine()

            End if

        If Result_Science <0 or Result_Science >100 then 

            Console.WriteLine("Input Is Invalid, Please Enter A Valid Score: ")

        End If 

    Loop Until Result_Science >-1 and Result_Science <101

​

    End Sub

​

    Function typeCheckInt(ByVal input as string) As Boolean 

        Try

            Convert.ToInt32(input)

            return true 

        Catch ex as Exception 

            Return False 

        End Try

    End Function 

End Module