Imports System

​

Public Module Module1

    Public Sub Main()

        InputStudentNum()

    End Sub 

    sub inputstudentnum()   

        dim studentnum as integer

        console.WriteLine("enter number of students in class")

        studentnum=console.readline()

        for i=1 to studentnum

        console.WriteLine("enter info{0}(in CSV format ID,Result_English,Result_Maths,Result_Science):", i)

        inputnameandmarks()

    next

    End Sub

    sub inputnameandmarks()

    dim studentmarks as string 

    dim student(3) as string

    dim StudentID as string

    dim  Math_Result, Eng_Result, Sci_Result as integer

    dim valid as boolean= true 

    studentmarks=console.ReadLine()

    student=studentmarks.Split(",")

    StudentID=student(0)

    Eng_Result=student(1)

    Math_Result=student(2)

    Sci_Result=student(3)

    if StudentID.length <> 5 then

        console.writeline("ID Invalid")

    End If

    validatemarks(eng_result)

    validatemarks(math_result)

    validatemarks(sci_result)

End Sub 

​

sub validatemarks(marks)

    if marks >100 then

        console.WriteLine("marks are invalid")

    else 

        if marks <20 then 

            marks=20

        end if 

    end if

​

end sub

​

End Module