Peça para o usuário informar o valor do primeiro elemento e gere os valores dos demais elementos com o dobro do - Desafio de Programação Resolvido em VB.NET

Informe o valor do primeiro elemento: 5

Os elementos do vetor são:

5  10  20  40  80

Imports System

Module Program
  ' função principal do programa VB.NET
  Sub Main(args As String())
    ' vamos declarar e construir um vetor de inteiros
    ' de 5 elementos
    Dim valores(4) As Integer

    ' agora vamos pedir para o usuário informar o
    ' valor do primeiro elemento
    Console.Write("Informe o valor do primeiro elemento: ")
    valores(0) = Int32.Parse(Console.ReadLine())

    ' agora vamos gerar os valores dos próximos elementos
    For i As Integer = 1 To valores.GetUpperBound(0)
      ' recebe o elemento anterior multiplicado por 2
      valores(i) = valores(i - 1) * 2
    Next

    ' e agora mostramos o vetor gerado
    Console.WriteLine(vbCrLf & "Os elementos do vetor são:" & vbCrLf)
    For i As Integer = 0 To valores.GetUpperBound(0)
      Console.Write(valores(i) & "  ")
    Next

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

End Module