Module Module1
    Const N As Integer = 1000

    Sub Main()
        Dim i As Integer
        Dim data(N) As Integer
        ' ストップウォッチオブジェクトの作成
        Dim sw As New System.Diagnostics.Stopwatch()

        ' 時間計測スタート
        sw.Start()

        ' データの用意
        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("")

        ' 時間計測終了
        sw.Stop()

        ' 計測時間表示
        Console.WriteLine(sw.Elapsed)

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

    End Sub

End Module