Imports System

​

Public Module Module1

​

    Public Sub Main()

        Dim FirstMark As Integer

        Dim Marks(3) As Integer

        Marks(0) = 60

        Marks(1) = 50

        Marks(2) = 45

​

        FirstMark = Marks(0)

        Marks(0) = Marks(2)

        Marks(2) = FirstMark

        Console.WriteLine(Marks(0))

        Console.WriteLine(Marks(1))

        Console.WriteLine(Marks(2))

    End Sub

End Module

​