Imports System

Public Module Module1

    Public Sub Main()

        Dim MultOf3(6) as integer

        Dim MultOf6(6) as integer

        Dim AddArray(6) as integer

        For i = 1 to 6

        MultOf3(i) = i * 3

        MultOf6(i) = i * 6

        AddArray(i) = MultOf3(i) + MultOf6(i)

        Console.writeline(AddArray(i))

    Next

    Console.ReadLine()

    End Sub

End Module