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

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: ")