テストがてらVBでSleepSort(超適当)

Module Module1

    Sub Main()
        Dim int_array As Integer() = {10, 11, 12, 4, 5, 6, 7, 20, 1, 2, 18, 4, 2, 4, 1, 3, 5, 4, 1}

        Dim thread_array(int_array.Length) As System.Threading.Thread
        For i As Integer = 0 To int_array.Length - 1
            Dim j As Integer = int_array(i)
            Dim Thread1 As New System.Threading.Thread(AddressOf func)
            Thread1.Start(j)
            thread_array(i) = Thread1
        Next
        For i As Integer = 0 To int_array.Length - 1
            thread_array(i).Join()
        Next
        Stop
    End Sub

    Function func(ByVal i As Integer)
        System.Threading.Thread.Sleep(i * 100)
        Console.WriteLine(i)
        Return i
    End Function
End Module