Imports System

Public Module Module1

    Structure Student

        Dim first_name As String

        Dim last_name As String

        Dim year As Integer

        Dim house As String

    End Structure

    Public Sub Main()

        'Demo of EBNF

        Dim counter As Integer

        Dim testStud As Student

        testStud.first_name = "Chris"

        testStud.last_name = "Hemsworth"

        testStud.year = 9

        testStud.house = "Barker"

        Console.WriteLine("The first student is " & testStud.first_name & ", " & testStud.last_name & ", " & testStud.year & ", " & testStud.house)

        For counter = 1 To 10

            Console.WriteLine(counter)

        Next counter

    End Sub

​

​

End Module

​