.net - 减慢控制台速度

Question

我有这个程序，打印的是正弦波，但是速度太快了，如何降低控制台的行打印速度？

    Sub Main()
        Dim x As Double = 0
        Do
            Console.Write(times(" ", Math.Sin(x) * 10 + 30))
            Console.WriteLine("@")
            x += 0.1
        Loop
    End Sub

    Private Function times(ByVal ch As Char, ByVal t As Integer) As String
        Dim result As String = ""
        For i = 0 To t
            result += ch
        Next

        Return result
    End Function

Answer 1

你可以写Thread.Sleep(TimeSpan.FromHours(1))。
(尽管您可能需要 FromSeconds)