Imports System
Public Class MainClass
Shared Sub Main(ByVal args As String())
Dim squares(10) As Integer
For i As Integer = 0 To 10
squares(i) = i * i
Next i
Dim txt As String = ""
For i As Integer = 0 To 10
Console.WriteLine (squares(i).ToString )
Next i
End Sub
End Class