Vb.net For循环在使用数组时未正确输出

我希望这段代码在运行时输出数组的第一行，暂停，然后输出数组中的第二行，每行输出时每个字符之间都有一个延迟，但出于某种原因，它对我不起作用

        Dim IntroText(4) As String
    IntroText(0) = "Konrad Czajkowski..."
    IntroText(1) = "...Presents"
    IntroText(2) = "...A text based game..."
    IntroText(3) = "...The Legend of Konrad and The Quest for Skairum"

    Dim IntroTextLength As Integer = Nothing
    IntroTextLength = IntroText(IntroText.Length - 1)

    For IntroCounter1 = 0 To IntroTextLength
        For IntroCounter2 = 0 To IntroText(IntroCounter1).Length - 1
            Console.Write(IntroText(IntroTextLength)(IntroCounter2))
            Threading.Thread.Sleep(50)
        Next
        Threading.Thread.Sleep(5000)
        Console.Clear()
    Next
    Console.Clear()

我正在使用VB.NET中的一个控制台应用程序

试试这个

Dim IntroText(4) As String
IntroText(0) = "Konrad Czajkowski..."
IntroText(1) = "...Presents"
IntroText(2) = "...A text based game..."
IntroText(3) = "...The Legend of Konrad and The Quest for Skairum"

Dim IntroTextLength As Integer = Nothing
IntroTextLength = IntroText.Length - 1

For IntroCounter1 = 0 To IntroTextLength - 1
    For IntroCounter2 = 0 To IntroText(IntroCounter1).Length - 1
        Console.Write(IntroText(IntroCounter1)(IntroCounter2))
        'Console.Write(IntroTextLength)
        Threading.Thread.Sleep(50)
    Next
    Threading.Thread.Sleep(500)
    Console.Clear()
Next
Console.Clear()

---

成功了！谢谢你，我自己无法修复它，在以后的生活中练习vb，我在上大学，这是非常有价值的反馈。谢谢这很好地解决了OPs问题，但值得解释一下原因。不鼓励只使用代码的答案。您至少应该尝试解释操作代码不正确的原因，以及您的代码如何解决问题。