dim StudentID(0) as string
dim Math_Result(0), Eng_Result(0), Sci_Result(0) as integer
dim studentnum as integer
searchforstudentresults()
public sub inputstudentnum()
console.WriteLine("enter number of students in class")
studentnum = console.readline()
public sub inputnameandmarks()
dim studentmarks as string
dim valid as boolean = true
redim StudentID(studentnum - 1), Math_Result(studentnum - 1), Eng_Result(studentnum - 1), Sci_Result(studentnum - 1)
console.WriteLine("enter info{0}(in CSV format ID,Result_English,Result_Maths,Result_Science):", i)
studentmarks = console.ReadLine()
student = studentmarks.Split(",")
if student(0).Length <> 5 then
console.writeline("ID Invalid")
else if student(1) > 100 or student(1) < 0 then
console.WriteLine("marks are invalid")
else if student(2) > 100 or student(2) < 0 then
console.WriteLine("marks are invalid")
else if student(3) > 100 or student(3) < 0 then
console.WriteLine("marks are invalid")
StudentID(i - 1) = student(0)
Eng_Result(i - 1) = validatemarks(student(1))
Math_Result(i - 1) = validatemarks(student(2))
Sci_Result(i - 1) = validatemarks(student(3))
public Function validatemarks(mark as integer) as integer
for i = 0 to studentnum - 1
sum = sum + eng_result(i)
average = sum / studentnum
public sub displaynameandmarks()
Console.WriteLine("{0,-8}{1,-8}{2,-8}{3,-8} ", "ID", "English", "Maths", "Science")
For i = 0 to studentnum - 1
Console.WriteLine("{0,-8}{1,-8}{2,-8}{3,-8}", StudentID(i), Eng_Result(i), Math_Result(i), Sci_Result(i))
console.WriteLine("English Average is {0}", average)
public sub searchforstudentresults()
dim found as boolean = false
console.WriteLine("enter student ID you're looking for")
search = console.ReadLine()
for i = 0 to studentnum - 1
if StudentID(i) = search then
Console.WriteLine("{0,-8}{1,-8}{2,-8}{3,-8} ", "ID", "English", "Maths", "Science")
Console.WriteLine("{0,-8}{1,-8}{2,-8}{3,-8}", StudentID(i), Eng_Result(i), Math_Result(i), Sci_Result(i))
console.WriteLine("Not found!")