Atribuindo valores aos elementos de um array usando o método SetValue

'Este exemplo mostra como atribuir um valor a um
'elemento de um array usando o método SetValue

Module Module1
  Sub Main()
    ' cria um array de 5 inteiros
    Dim valores() As Integer = {1, 2, 3, 4, 5}

    ' exibe os valores do array
    For Each valor As Integer In valores
      Console.WriteLine(valor)
    Next

    'alterar o valor do terceiro elemento
    valores.SetValue(10, 2)
    Console.WriteLine()

    ' exibe os valores do array
    For Each valor As Integer In valores
      Console.WriteLine(valor)
    Next

    Console.ReadKey()
  End Sub
End Module