Imports System

Public Module Module1

                Dim SDDClass(5) As Student '6 element array holding Studens

                Public Structure Student

                                Dim Name as string

                                Dim GraduationYear as integer

                                Dim IsBoarder as boolean

                                Dim ExamMark as integer              

                End Structure

​

                Public Sub Main()

​

                                'fill array with the student details

                                SDDClass(0).Name = "Meyer Clifton"

                                SDDClass(0).GraduationYear = 2018

                                SDDClass(0).IsBoarder = False

                                SDDClass(0).ExamMark = 85

                                SDDClass(1).Name = "Rogerio Graalmans"

                                SDDClass(1).GraduationYear = 2019

                                SDDClass(1).IsBoarder = False

                                SDDClass(1).ExamMark = 89

                                SDDClass(2).Name = "Margot Pimlott"

                                SDDClass(2).GraduationYear = 2019

                                SDDClass(2).IsBoarder = True

                                SDDClass(2).ExamMark = 72

                                SDDClass(3).Name = "Tani Jersch"

                                SDDClass(3).GraduationYear = 2018

                                SDDClass(3).IsBoarder = True

                                SDDClass(3).ExamMark = 95

                                SDDClass(4).Name = "Britney Acton"

                                SDDClass(4).GraduationYear = 2018

                                SDDClass(4).IsBoarder = False

                                SDDClass(4).ExamMark = 97

                                SDDClass(5).Name = "Eustacia Alfatt"

                                SDDClass(5).GraduationYear = 2018

                                SDDClass(5).IsBoarder = False

                                SDDClass(5).ExamMark = 80

​

                                PrintStudentDetails()

                End Sub

​

                Public Sub PrintStudentDetails()

                                'print table of all students

                                Dim BoarderMsg as String

                                                For i=0 to SDDClass.Length-1

                                if SDDClass(i).IsBoarder = True

                                                BoarderMsg = "Boarder"

                                else 

                                                BoarderMsg = "Day girl"

                                end if

                                console.WriteLine(SDDClass(i).nAME & " - " & SDDClass(i).GraduationYear & " - " & BoarderMsg & " - " & SDDClass(i).ExamMark)

                                next

                End Sub

​

Public Sub Print()

End Module

​