How to Use Structer in Console Application?

Use Of Structure In Console Application...

Structure student
        Dim rollno, m1, m2, m3, tot As Integer
        Dim per As Double
        Dim name As String
End Structure

Sub Main()
        Dim s(1) As student
        Dim i As Integer
        For i = 1 To 1
           Console.WriteLine("Enter the Roll Number of Student:=>")
            s(i).rollno = Console.ReadLine()
           Console.WriteLine("Enter the Name of Student:=>")
            s(i).name = Console.ReadLine()
           Console.WriteLine("Enter the Marks of First Subject:=>")
            s(i).m1 = Console.ReadLine()
           Console.WriteLine("Enter the Marks of Second Subject:=>")
            s(i).m2 = Console.ReadLine()
           Console.WriteLine("Enter the Marks of Third Subject:=>")
            s(i).m3 = Console.ReadLine()
            s(i).tot = s(i).m1 + s(i).m2 + s(i).m3
           Console.WriteLine("Roll No:=>" & s(i).rollno)
           Console.WriteLine("Name:=>" & s(i).name)
           Console.WriteLine("Total:=>" & s(i).tot)
            s(i).per = s(i).tot / 3
           Console.WriteLine("Percentage:=>" & s(i).per)
        Next i

       Console.ReadLine()
End Sub