Como percorrer todos os elementos de um vetor de inteiros e exibir a soma de seus valores - Exercícios Resolvidos de VB.NET

' um vetor de inteiros contendo sete elementos
Dim valores() As Integer = {4, 5, 1, 8, 2, 2, 10}

----------------------------------------------------------------------
Precisa de ajuda? Chama no WhatsApp +55 (62) 98553-6711 (Osmar)

Este código foi útil? Paga um cafezinho pra mim :-(
PIX: osmar@arquivodecodigos.com.br 
----------------------------------------------------------------------

Imports System

Module Program
  ' função principal do programa VB.NET
  Sub Main(args As String())
    ' um vetor de inteiros contendo sete elementos
    Dim valores() As Integer = {4, 5, 1, 8, 2, 2, 10}

    ' o primeiro passo é criar uma variável que vai receber a soma
    ' dos valores dos elementos
    Dim soma As Integer = 0

    ' agora vamos usar uma laço for para percorrer todos os elementos
    ' do vetor, obter o valor do elemento atual e adicionar ao valor atual
    ' da variável soma
    For i As Integer = 0 To valores.Length - 1
      soma = soma + valores(i)
      ' poderia também ser escrito assim:
      ' soma += valores(i)
    Next

    ' vamos exibir a soma dos valores do vetor
    Console.WriteLine("A soma dos valores do vetor é: " & soma)

    Console.WriteLine(vbCrLf & vbCrLf & "Pressione qualquer tecla para sair...")
    ' pausa o programa
    Console.ReadKey()
  End Sub

End Module