新手求助。。GetUpperBound(0)

Imports System

Imports Microsoft.VisualBasic



Public Class SamplesArray    



    Public Shared Sub Main()



        ' Creates a new one-dimensional Array of type Int32.

        Dim my1DIntArray As Array = Array.CreateInstance(GetType(Int32), 5)



        ' Uses GetLowerBound and GetUpperBound in the for loop.

        Dim i As Integer

        For i = my1DIntArray.GetLowerBound(0) To my1DIntArray.GetUpperBound(0)

            my1DIntArray.SetValue(i + 1, i)

        Next i 

        ' Displays the bounds and values of the one-dimensional Array.

        Console.WriteLine("One-dimensional Array:")

        Console.WriteLine("Rank" + ControlChars.Tab + "Lower" _

           + ControlChars.Tab + "Upper")

        Console.WriteLine("{0}" + ControlChars.Tab + "{1}" _

           + ControlChars.Tab + "{2}", 0, my1DIntArray.GetLowerBound(0), _

           my1DIntArray.GetUpperBound(0))

        Console.WriteLine("Values:")

        PrintValues(my1DIntArray)

        Console.WriteLine()



        ' Creates a new three-dimensional Array of type Int32.

        Dim my3DIntArray As Array = _

           Array.CreateInstance(GetType(Int32), 2, 3, 4)



        ' Uses GetLowerBound and GetUpperBound in the for loop.

        Dim j, k As Integer

        For i = my3DIntArray.GetLowerBound(0) _

        To my3DIntArray.GetUpperBound(0)

            For j = my3DIntArray.GetLowerBound(1) _

            To my3DIntArray.GetUpperBound(1)

                For k = my3DIntArray.GetLowerBound(2) _

                To my3DIntArray.GetUpperBound(2)

                    my3DIntArray.SetValue(i * 100 + j * 10 + k, i, j, k)

                Next k

            Next j 

        Next i



        ' Displays the bounds and values of the multidimensional Array.

        Console.WriteLine("Multidimensional Array:")

        Console.WriteLine("Rank" + ControlChars.Tab + "Lower" _

           + ControlChars.Tab + "Upper")

        For i = 0 To my3DIntArray.Rank - 1

            Console.WriteLine("{0}" + ControlChars.Tab + "{1}" _

               + ControlChars.Tab + "{2}", i, my3DIntArray.GetLowerBound(i), _

               my3DIntArray.GetUpperBound(i))

        Next i

        Console.WriteLine("Values:")

        PrintValues(my3DIntArray)

    End Sub





    Public Shared Sub PrintValues(myArr As Array)

        Dim myEnumerator As System.Collections.IEnumerator = _

           myArr.GetEnumerator()

        Dim i As Integer = 0

        Dim cols As Integer = myArr.GetLength(myArr.Rank - 1)

        While myEnumerator.MoveNext()

            If i < cols Then

                i += 1

            Else

                Console.WriteLine()

                i = 1

            End If

            Console.Write(ControlChars.Tab + "{0}", myEnumerator.Current)

        End While

        Console.WriteLine()

    End Sub

End Class



' This code produces the following output.

' 

' One-dimensional Array:

' Rank    Lower    Upper

' 0    0    4

' Values:

'     1    2    3    4    5

' 

' Multidimensional Array:

' Rank    Lower    Upper

' 0    0    1

' 1    0    2

' 2    0    3

' Values:

'     0    1    2    3

'     10    11    12    13

'     20    21    22    23

'     100    101    102    103

'     110    111    112    113

'     120    121    122    123