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