Option Strict On
Public Module modMain
Public Sub Main()
Dim PowerOf2() As Integer = {0, 1, 2, 4, 8, 16, 32, 64, 128, 256, 512, 1024}
Redim Preserve PowerOf2(PowerOf2.GetUpperBound(0)\2)
For Each int As Integer In PowerOf2
Console.Write("--{0}--", int)
Next
End Sub
End Module
--0----1----2----4----8----16--"