vb.net - task.delay タスクを追加すると、進行中のコードが実行されなくなります

Question

以下のコードをテストしていますが、何らかの理由で "test2" が出力されません。理由を知っている人はいますか？それがすべきことは、一連のタスクを遅延形式で実行し、次に test2 を出力することですが、これは起こっていません。

    Console.WriteLine("test1")
    Dim tasks As IEnumerable(Of Task(Of Integer)) = {Task.Delay(3000).ContinueWith(Function() 3), Task.Delay(1000).ContinueWith(Function() 1), Task.Delay(2000).ContinueWith(Function() 2), Task.Delay(5000).ContinueWith(Function() 5), Task.Delay(4000).ContinueWith(Function() 4)}
    Console.WriteLine("test2")

Answer 1

Task(Of Integer)無効なキャスト例外をスローします。これを簡単に書くことができます：

Dim tasks As IEnumerable(Of Task) = {
    Task.Delay(3000).ContinueWith(Function() 3),
    Task.Delay(1000).ContinueWith(Function() 1),
    Task.Delay(2000).ContinueWith(Function() 2),
    Task.Delay(5000).ContinueWith(Function() 5),
    Task.Delay(4000).ContinueWith(Function() 4)
}