Escreva um programa VB.NET que leia os elementos de um vetor A de dez elementos inteiros e construa outro vetor B - Desafio de Programação Resolvido em VB.NET

Informe o valor do 1.o elemento: 8
Informe o valor do 2.o elemento: 5
Informe o valor do 3.o elemento: 4
Informe o valor do 4.o elemento: 1
Informe o valor do 5.o elemento: 2
Informe o valor do 6.o elemento: 3
Informe o valor do 7.o elemento: 4
Informe o valor do 8.o elemento: 6
Informe o valor do 9.o elemento: 9
Informe o valor do 10.o elemento: 7

Elementos do vetor A:

8,  5,  4,  1,  2,  3,  4,  6,  9,  7  

Elementos do vetor B:

24,  10,  12,  2,  6,  6,  12,  12,  27,  14

Imports System

Module Program
  ' função principal do programa VB.NET
  Sub Main(args As String())
    ' vamos declarar e construir dois vetores de 10 inteiros
    Dim vetor_a(9) As Integer
    Dim vetor_b(9) As Integer

    ' agora vamos pedir para o usuário informar os valores
    ' dos elementos do vetor A
    For i As Integer = 0 To vetor_a.GetUpperBound(0)
      Console.Write("Informe o valor do " & (i + 1) &
        ".o elemento: ")
      vetor_a(i) = Int32.Parse(Console.ReadLine())
    Next

    ' vamos construir o vetor B
    For i As Integer = 0 To vetor_a.GetUpperBound(0)
      ' o índice atual é par?
      If i Mod 2 = 0 Then
        vetor_b(i) = vetor_a(i) * 3
      Else
        vetor_b(i) = vetor_a(i) * 2
      End If
    Next

    ' vamos mostrar os elementos do vetor A
    Console.WriteLine(vbCrLf & "Elementos do vetor A:" & vbCrLf)
    For i As Integer = 0 To vetor_a.GetUpperBound(0)
      Console.Write(vetor_a(i) & ",  ")
    Next

    ' vamos mostrar os elementos do vetor B
    Console.WriteLine(vbCrLf & vbCrLf & "Elementos do vetor B:" & vbCrLf)
    For i As Integer = 0 To vetor_a.GetUpperBound(0)
      Console.Write(vetor_b(i) & ",  ")
    Next

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

End Module