VB.Net Tutorial/Collections/ReDim — различия между версиями
Admin (обсуждение | вклад) м (1 версия) |
(нет различий)
|
Текущая версия на 15:53, 26 мая 2010
Содержание
Dimension the array at runtime
<source lang="vbnet">public class Test
public Shared Sub Main Dim aryDynArray() As Integer Dim intResult As Integer Dim intCounter As Integer "Dimension the array at runtime. intResult = 12 ReDim aryDynArray(intResult - 1) Console.WriteLine("Array size is: " & aryDynArray.Length) "Populate the array. For intCounter = 0 To aryDynArray.GetUpperBound(0) aryDynArray(intCounter) = intCounter + 100 Next intCounter
End Sub
End class</source>
Array size is: 12
Dynamic array
<source lang="vbnet">Option Strict On Public Class DynamicArray
Public Shared Sub Main() Dim index As Integer = 10 Dim arr(index) As Integer arr(index) = CInt(index ^ 2) index = 20 ReDim Preserve arr(index) arr(index) = CInt(index ^ 2) index = 10 ReDim Preserve arr(index) Console.WriteLine(arr(index)) End Sub
End Class</source>
100
ReDim an array
<source lang="vbnet">Module Module1
Sub Main() Dim Scores() As Integer ReDim Scores(1) Scores(0) = 25 Scores(1) = 75 ReDim Preserve Scores(5) Scores(2) = 95 Scores(3) = 35 Scores(4) = 65 Scores(5) = 85 Console.WriteLine("Scores(3) = " & Scores(3)) End Sub
End Module</source>
Scores(3) = 35
Redimension the array and preserve its element values
<source lang="vbnet">public class Test
public Shared Sub Main Dim aryDynArray() As Integer Dim intResult As Integer Dim intCounter As Integer "Dimension the array at runtime. intResult = 12 ReDim aryDynArray(intResult - 1) Console.WriteLine("Array size is: " & aryDynArray.Length) "Populate the array. For intCounter = 0 To aryDynArray.GetUpperBound(0) aryDynArray(intCounter) = intCounter + 100 Next intCounter "Redimension the array and preserve its element values. ReDim Preserve aryDynArray(aryDynArray.GetUpperBound(0) + 1) Console.WriteLine("Array size is: " & aryDynArray.Length) Console.WriteLine("First array value is: " & aryDynArray(0)) "Erase the array. Erase aryDynArray
End Sub
End class</source>
Array size is: 12 Array size is: 13 First array value is: 100
Redim Preserve array
<source lang="vbnet">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</source>
--0----1----2----4----8----16--"
ReDim string array length
<source lang="vbnet">Public Class Tester
Public Shared Sub Main Dim DaysOfTheWeek() As String ReDim DaysOfTheWeek(7) DaysOfTheWeek(0) = "Monday" DaysOfTheWeek(1) = "Tuesday" DaysOfTheWeek(2) = "Wednesday" DaysOfTheWeek(3) = "Thursday" DaysOfTheWeek(4) = "Friday" DaysOfTheWeek(5) = "Saturday" DaysOfTheWeek(6) = "Sunday" Console.WriteLine(DaysOfTheWeek( 1)) End Sub
End Class</source>
Tuesday
Use ReDim Preserve to add elements to an array
<source lang="vbnet">Public Class Tester
Public Shared Sub Main Dim growingArray() As String = Nothing " ----- Add elements to the array. For counter As Integer = 0 To 2 ReDim Preserve growingArray(counter) growingArray(counter) = (counter + 1).ToString Next counter " ----- Display the results. For Each workText As String In growingArray Console.WriteLine(workText) Next workText End Sub
End Class</source>
1 2 3