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

Vetor gerado aleatoriamente:

34 31 5 72 98 71 13 34 27 76 

Vetor ordenado de forma crescente:

5 13 27 31 34 34 71 72 76 98

----------------------------------------------------------------------
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())
    ' 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)
      For j As Integer = i To valores.GetUpperBound(0)
        If valores(i) > valores(j) Then
          Dim aux As Integer = valores(i)
          valores(i) = valores(j)
          valores(j) = aux
        End If
      Next j
    Next i

    ' mostra o vetor ordenado
    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