"Hello World！"を正しく印刷するようにコードを修正する方法

Question

"Hello World！"を印刷するために修正する必要があるコードがあります。何らかの理由で、スクランブルされたすべての文字を印刷します。

Sub Main() 
    Dim s As String = "Hello World!" 
    Parallel.For(0, s.Length, Sub(i) 
           Console.Write(s(i)) 
           End Sub) 
    Console.Read() 
End Sub 

お勧めはありますか？

Answer 1

おそらく、あなたはParallelOptionsパラメータを使用して、必要な並列度を指定することができます。この場合、並列処理は必要ありません。

Sub Main() 

     Dim s As String = "Hello World!" 

     Dim p As New ParallelOptions() 
     p.MaxDegreeOfParallelism = 1 
     p.TaskScheduler = Nothing 
     p.CancellationToken = Nothing 

     Parallel.For(0, s.Length, p, Sub(i) 

             Console.Write(s(i)) 

            End Sub) 

     Console.Read() 

    End Sub 

Answer 2

パラレル実行のポイントは、パラレルで実行される点であり、連続して実行される点ではありません。命令は非常に重要なので、並列実行はこのタスクには意味がありません。

非同期/並列実行では、各タスクは他のタスクと並列に実行されるように分割されており、前のタスクが完了するまで待機しません。あなたのケースでは、後でキューに入れられたタスクのいくつかは、それらの前にキューイングされたタスクの前に完了しており、それは一見ランダムな順序で文字を並べ替えます。

Answer 3

Sub Main() 
    Console.Write("Hello World!") 
End Sub 

あなたが本当に一度に一つの文字を印刷する必要がある場合は、書くことができます：

Sub Main() 
    dim s as string = "Hello World!" 
    dim i as integer 
    for i=0 to s.length-1 
     Console.Write(s(i)) 
    end for 
End Sub