本文整理汇总了VB.NET中System.Array.GetUpperBound方法的典型用法代码示例。如果您正苦于以下问题：VB.NET Array.GetUpperBound方法的具体用法？VB.NET Array.GetUpperBound怎么用？VB.NET Array.GetUpperBound使用的例子？那么, 这里精选的方法代码示例或许可以为您提供帮助。您也可以进一步了解该方法所在类System.Array的用法示例。
在下文中一共展示了Array.GetUpperBound方法的2个代码示例，这些例子默认根据受欢迎程度排序。您可以为喜欢或者感觉有用的代码点赞，您的评价将有助于系统推荐出更棒的VB.NET代码示例。
示例1: Main
Public Module Example
Public Sub Main()
' Create a one-dimensional integer array.
Dim integers() As Integer = { 2, 4, 6, 8, 10, 12, 14, 16, 18, 20 }
' Get the upper and lower bound of the array.
Dim upper As Integer = integers.GetUpperBound(0)
Dim lower As Integer = integers.GetLowerBound(0)
Console.WriteLine($"Elements from index {lower} to {upper}:")
' Iterate the array.
For ctr As Integer = lower To upper
Console.Write("{0}{1}{2}", If(ctr = lower, " ", ""),
integers(ctr),
If(ctr < upper, ", ", vbCrLf))
Next
Console.WriteLine()
' Create a two-dimensional integer array.
Dim integers2d(,) As Integer = {{2, 4}, {3, 9}, {4, 16}, {5, 25},
{6, 36}, {7, 49}, {8, 64}, {9, 81} }
' Get the number of dimensions.
Dim rank As Integer = integers2d.Rank
Console.WriteLine($"Number of dimensions: {rank}")
For ctr As Integer = 0 To rank - 1
Console.WriteLine($" Dimension {ctr}: " +
$"from {integers2d.GetLowerBound(ctr)} to {integers2d.GetUpperBound(ctr)}")
Next
' Iterate the 2-dimensional array and display its values.
Console.WriteLine(" Values of array elements:")
For outer = integers2d.GetLowerBound(0) To integers2d.GetUpperBound(0)
For inner = integers2d.GetLowerBound(1) To integers2d.GetUpperBound(1)
Console.WriteLine($" {ChrW(&h07b)}{outer}, {inner}{ChrW(&h007d)} = " +
$"{integers2d.GetValue(outer, inner)}")
Next
Next
End Sub
End Module输出：
Elements from index 0 to 9:
2, 4, 6, 8, 10, 12, 14, 16, 18, 20
Number of dimensions: 2
Dimension 0: from 0 to 7
Dimension 1: from 0 to 1
Values of array elements:
{0, 0} = 2
{0, 1} = 4
{1, 0} = 3
{1, 1} = 9
{2, 0} = 4
{2, 1} = 16
{3, 0} = 5
{3, 1} = 25
{4, 0} = 6
{4, 1} = 36
{5, 0} = 7
{5, 1} = 49
{6, 0} = 8
{6, 1} = 64
{7, 0} = 9
{7, 1} = 81
示例2: Tester
Module Tester
Sub Main()
Dim i, j As Integer
' create rectangular two-dimensional array
Dim array1 As Integer(,)
array1 = New Integer(,) {{1, 2, 3}, {4, 5, 6}}
' create jagged two-dimensional array
Dim array2 As Integer()() = New Integer(2)() {}
array2(0) = New Integer() {1, 2}
array2(1) = New Integer() {3}
array2(2) = New Integer() {4, 5, 6}
For i = 0 To array1.GetUpperBound(0)
For j = 0 To array1.GetUpperBound(1)
Console.Write(array1(i, j) & " ")
Next
Console.WriteLine("")
Next
For i = 0 To array2.GetUpperBound(0)
For j = 0 To array2(i).GetUpperBound(0)
Console.WriteLine(array2(i)(j) & " ")
Next
Console.WriteLine("")
Next
End Sub
End Module