Public Sub Main()
Dim sFixedArray As String[] = ["Rosetta", "code", "is", "a", "programming", "chrestomathy", "site"]
Dim sFixedArray1 As New String[10]
Dim iDynamicArray As New Integer[]
Dim siCount As Short

For siCount = 1 To 10
  iDynamicArray.Add(siCount)
Next

sFixedArray1[5] = "Hello"
sFixedArray1[6] = " world!"

Print sFixedArray.Join(" ")
Print iDynamicArray[5]

Print sFixedArray1[5] & sFixedArray1[6]

End