' Arrays Example

' Create and print arrays of Integer and String.

Imports System.Console
Public Module Module1

    Public Sub Main()

        Dim i As Integer

        ' Create, populate and print array of Integer.
        Dim a(3) As Integer
        a(0) = 65
        a(1) = 31
        a(2) = 79
        a(3) = 43
        For i = 0 To 3
            Write(a(i) & " ")
        Next
        WriteLine()

        ' Initialize and print array of String.
        Dim b() As String = {"apple", "fig", "orange"}
        For i = 0 To 2
            Write(b(i) & " ")
        Next
        WriteLine()
        ReadLine()
    End Sub

End Module