VB.NET IndexOutOfRangeException類代碼示例

' 導入命名空間
Imports System.Collections.Generic

Module Example
   Public Sub Main()
      Dim characters As New List(Of Char)()
      characters.InsertRange(0, { "a"c, "b"c, "c"c, "d"c, "e"c, "f"c} )
      For ctr As Integer = 0 To characters.Count
         Console.Write("'{0}'    ", characters(ctr))
      Next
   End Sub
End Module

' 導入命名空間
Imports System.Collections.Generic

Module Example
   Public Sub Main()
      Dim characters As New List(Of Char)()
      characters.InsertRange(0, { "a"c, "b"c, "c"c, "d"c, "e"c, "f"c} )
      For ctr As Integer = 0 To characters.Count - 1
         Console.Write("'{0}'    ", characters(ctr))
      Next
   End Sub
End Module

Module Example
   Public Sub Main()
      Dim values1() As Integer = { 3, 6, 9, 12, 15, 18, 21 }
      Dim values2(5) As Integer
      
      ' Assign last element of the array to the new array.
      values2(values1.Length - 1) = values1(values1.Length - 1)
   End Sub
End Module

' 導入命名空間
Imports System.Collections.Generic

Module Example
   Dim numbers As New List(Of Integer)

   Public Sub Main()
      Dim startValue As Integer 
      Dim args() As String = Environment.GetCommandLineArgs()
      If args.Length < 2 Then
         startValue = 2
      Else
         If Not Int32.TryParse(args(1), startValue) Then
            startValue = 2
         End If   
      End If
      ShowValues(startValue)
   End Sub
   
   Private Sub ShowValues(startValue As Integer)   
      ' Create a collection with numeric values.
      If numbers.Count = 0 Then 
         numbers.AddRange( { 2, 4, 6, 8, 10, 12, 14, 16, 18, 20, 22} )
      End If   
      ' Get the index of a particular number, in this case 7.
      Console.WriteLine("Displaying values greater than or equal to {0}:",
                        startValue)
      Dim startIndex As Integer = numbers.IndexOf(startValue)
      ' Display all numbers from startIndex on.
      For ctr As Integer = startIndex To numbers.Count - 1
         Console.Write("    {0}", numbers(ctr))
      Next
   End Sub
End Module
' The example displays the following output if the user supplies
' 7 as a command-line parameter:
'    Displaying values greater than or equal to 7:
'    
'    Unhandled Exception: System.ArgumentOutOfRangeException: 
'    Index was out of range. Must be non-negative and less than the size of the collection.
'    Parameter name: index
'       at System.Collections.Generic.List`1.get_Item(Int32 index)
'       at Example.ShowValues(Int32 startValue)
'       at Example.Main()

' 導入命名空間
Imports System.Collections.Generic

Module Example
   Dim numbers As New List(Of Integer)

   Public Sub Main()
      Dim startValue As Integer 
      Dim args() As String = Environment.GetCommandLineArgs()
      If args.Length < 2 Then
         startValue = 2
      Else
         If Not Int32.TryParse(args(1), startValue) Then
            startValue = 2
         End If   
      End If
      ShowValues(startValue)
   End Sub
   
   Private Sub ShowValues(startValue As Integer)   
      ' Create a collection with numeric values.
      If numbers.Count = 0 Then 
         numbers.AddRange( { 2, 4, 6, 8, 10, 12, 14, 16, 18, 20, 22} )
      End If   
      ' Get the index of startValue.
      Dim startIndex As Integer = numbers.IndexOf(startValue)
      If startIndex < 0 Then
         Console.WriteLine("Unable to find {0} in the collection.", startValue)
      Else
         ' Display all numbers from startIndex on.
         Console.WriteLine("Displaying values greater than or equal to {0}:",
                        startValue)
         For ctr As Integer = startIndex To numbers.Count - 1
            Console.Write("    {0}", numbers(ctr))
         Next
      End If
   End Sub
End Module
' The example displays the following output if the user supplies
'       Unable to find 7 in the collection.

Module Example
   Public Sub Main()
      Dim values = Array.CreateInstance(GetType(Integer), { 10 }, { 1 })
      Dim value As Integer = 2
      ' Assign values.
      For ctr As Integer = 0 To values.Length - 1
         values(ctr) = value
         value *= 2
      Next
      
      ' Display values.
      For ctr As Integer = 0 To values.Length - 1
         Console.Write("{0}    ", values(ctr))
      Next
   End Sub
End Module

Module Example
   Public Sub Main()
      Dim values = Array.CreateInstance(GetType(Integer), { 10 }, { 1 })
      Dim value As Integer = 2
      ' Assign values.
      For ctr As Integer = values.GetLowerBound(0) To values.GetUpperBound(0)
         values(ctr) = value
         value *= 2
      Next
      
      ' Display values.
      For ctr As Integer = values.GetLowerBound(0) To values.GetUpperBound(0)
         Console.Write("{0}    ", values(ctr))
      Next
   End Sub
End Module

Module Example
   Public Sub Main()
      ' Generate array of random values.
      Dim values() As Integer = PopulateArray(5, 10)
      ' Display each element in the array.
      For Each value In values
         Console.Write("{0}   ", values(value))
      Next
   End Sub
   
   Private Function PopulateArray(items As Integer, 
                                  maxValue As Integer) As Integer()
      Dim values(items - 1) As Integer
      Dim rnd As New Random()
      For ctr As Integer = 0 To items - 1
         values(ctr) = rnd.Next(0, maxValue + 1)   
      Next    
      Return values                                                      
   End Function
End Module

Module Example
   Public Sub Main()
      ' Generate array of random values.
      Dim values() As Integer = PopulateArray(5, 10)
      ' Display each element in the array.
      For Each value In values
         Console.Write("{0}   ", value)
      Next
   End Sub
   
   Private Function PopulateArray(items As Integer, 
                                  maxValue As Integer) As Integer()
      Dim values(items - 1) As Integer
      Dim rnd As New Random()
      For ctr As Integer = 0 To items - 1
         values(ctr) = rnd.Next(0, maxValue + 1)   
      Next    
      Return values                                                      
   End Function
End Module