Module Module1
    Const N As Integer = 100

    Sub Main()
        Dim i As Integer
        Dim data(N) As Integer

        ' データの用意
        For i = 0 To N - 1
            data(i) = Int(Rnd() * 1000)
        Next

        ' ここにソート処理を書く


        ' 結果表示
        For i = 0 To N - 1
            Console.Write(data(i).ToString("000") + " ")
        Next
        Console.WriteLine("")

        Console.WriteLine("何かキーを押してください")
        Console.ReadKey()

    End Sub

End Module