Mega Code Archive

 

Categories / VB.Net Tutorial / Collections

 

Redim Preserve array

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--"