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