Escreva um algoritmo VB.NET que cria e preenche um vetor de 10 posições com números aleatórios (entre 0 e 99) - Desafio de Programação Resolvido em VB.NET

Imports System

Module Program
  ' função principal do programa VB.NET
  Sub Main(args As String())
    ' vamos criar um vetor de inteiros de 10 elementos
    Dim valores(9) As Integer

    ' vamos preencher o vetor com os valores randômicos
    Dim rand As New Random()
    For i As Integer = 0 To valores.GetUpperBound(0)
      valores(i) = rand.Next(99)
    Next

    ' mostra o vetor gerado
    Console.WriteLine("Vetor gerado aleatoriamente:" & vbCrLf)
    For i As Integer = 0 To valores.GetUpperBound(0)
      Console.Write(valores(i) & " ")
    Next

    ' agora vamos ordenar o vetor de forma crescente
    Console.WriteLine(vbCrLf & vbCrLf & "Vetor ordenado de forma crescente:" & vbCrLf)

    ' ordena o vetor usando a ordenação Bubble Sort
    For i As Integer = 0 To valores.GetUpperBound(0)