VB.NET AppendText通過（超出範圍）

Question

我試圖運行此代碼每5秒：

Form2.RichTextBox1.Clear() 
    Dim ioFile As New StreamReader("C:\Users\*********\linetest.txt") 
    Dim lines As New List(Of String) 
    Dim rnd As New Random() 
    Dim line As Integer 

    While ioFile.Peek <> -1 
     lines.Add(ioFile.ReadLine()) 
    End While 

    line = rnd.Next(lines.Count + 1) 

    Form2.RichTextBox1.Text = (lines(line).Trim()) 
    ioFile.Close() 
    ioFile.Dispose() 

它運行良好，更改文本每5秒。改變它大約8次後，它會崩潰說「ArgumentIndexOutOfRange」

任何人都知道爲什麼？我似乎無法在此網站上找到它。

謝謝！

Answer 1

我相信你的問題是你在哪裏產生的隨機數線 - >行= rnd.next（lines.count（）+ 1）

如果rnd.next產生實際line.count（ ）值，這是可能的，因爲您將1加到計數中，那麼當您將該值作爲行的索引傳遞時，它將大於列表的最大可能索引。