本文整理汇总了VB.NET中System.Array.GetLowerBound方法的典型用法代码示例。如果您正苦于以下问题：VB.NET Array.GetLowerBound方法的具体用法？VB.NET Array.GetLowerBound怎么用？VB.NET Array.GetLowerBound使用的例子？那么, 这里精选的方法代码示例或许可以为您提供帮助。您也可以进一步了解该方法所在类System.Array的用法示例。
在下文中一共展示了Array.GetLowerBound方法的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: Test
public class Test
public Shared Sub Main
Dim aryNames(9) As String
Dim intCounter As Integer
'Show the array boundaries.
Console.WriteLine("LOWER BOUND: " & aryNames.GetLowerBound(0))
Console.WriteLine("UPPER BOUND: " & aryNames.GetUpperBound(0))
Console.WriteLine("LENGTH: " & aryNames.Length)
'Populate the array.
For intCounter = 0 To aryNames.GetUpperBound(0)
aryNames(intCounter) = "Element position = " & intCounter
Next intCounter
'Show the elements of the array.
For intCounter = 0 To aryNames.GetUpperBound(0)
Console.WriteLine("Element position = " & intCounter)
Next intCounter
End Sub
End class