Imports System

Public Module Module1

    Public Sub Main()

        ' (1) Variable declaration

        Dim i, n As Integer ' loop index and number of values

        Dim a(99) As Double ' array to store values, assume max 100 values 

        ' integer variable for input/output file

        Dim Input_num As Integer = FreeFile() ' or any free file number 

        Dim Output_num As Integer = Input_num + 1 ' free file number + 1

        ' (2) Open the existing data file and create a output file

        FileOpen(Input_num, "input.txt", OpenMode.Input, OpenAccess.Read) 

        FileOpen(Output_num, "output.txt", OpenMode.Output, OpenAccess.Write)

        ' (3) Read values from input file and store them in array

        Input(Input_num, n)

        For i = 0 To n - 1 Step 1

        Input(Input_num, a(i))

        Next

        ' (4) Write list of values to new file in reverse order

        WriteLine(Output_num, n) For i = n - 1 To 0 Step -1

        WriteLine(Output_num, a(i))

        Next

​

        ' (5) Close files FileClose(Input_num) 

        FileClose(Input_num)    ' input file FileClose(Output_num) 

        FileClose(Output_num)   ' output file

​

    End Sub

End Module