Imports System

Public Module Module1

    Dim student(3) as integer 

    Public Sub Main()

        student(0) = 100

        student(1) = 200 

        student(2) = 300

        'student(3) = 400

        dim grade1 as integer = student( 0 )

        dim grade2 as integer = student( 1 ) 

        dim grade3 as integer = student( 2 ) 

        'dim grade4 as integer = student( 3 ) 

        Console.WriteLine("grade1 =" & grade1)

        Console.WriteLine("grade2 =" & grade2)

        Console.WriteLine("grade3 =" & grade3)

        Console.WriteLine("grade4 =" &  student (3))

    End Sub

End Module