Imports System Imports System.Diagnostics Public Class MainClass Shared Sub Main() Dim arr(99) As Integer For i As Integer = 0 To 99 arr(i) = i * i Next i Console.WriteLine(arr.Length) End Sub End Class