Criando dois vetores de inteiros de forma que a soma dos elementos individuais de cada vetor seja igual a 30 - Desafio de Programação Resolvido em VB.NET

// dois vetores de 5 inteiros cada
int a[] = {50, -2, 9, 5, 17};
int b[] = new int[5];

Valores no vetor a: 50   -2   9   5   17   
Valores no vetor b: -20   32   21   25   13

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

Imports System

Module Program
  ' função principal do programa VB.NET
  Sub Main(args As String())
    ' dois vetores de 5 inteiros cada
    Dim a As Integer() = {50, -2, 9, 5, 17}
    Dim b(4) As Integer

    ' vamos preencher o segundo vetor de forma que a soma dos
    ' valores de seus elementos seja 30
    For i As Integer = 0 To b.Length - 1
      b(i) = 30 - a(i)
    Next

    ' vamos mostrar o resultado
    Console.Write("Valores no vetor a: ")
    For i As Integer = 0 To a.Length - 1
      Console.Write(a(i) & "   ")
    Next

    Console.Write(vbCrLf & "Valores no vetor b: ")
    For i As Integer = 0 To b.Length - 1
      Console.Write(b(i) & "   ")
    Next

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

End Module