尝试在文本框中显示一系列随机数，然后将它们写入文件并显示在列表框中

问：

我正在生成随机数（一次显示一个），我希望在文本框中显示所有如此生成的数字。此外，该系列被写入一个文本文件（在单击显示时）我可以在列表框中显示。

我无法让文本框显示生成的每个数字。 当我尝试显示文本文件时，我得到每个数字的两个。

Dim filename As String = "nums.dat"
Dim index As Integer

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

End Sub

Private Sub Btnstart_Click(sender As Object, e As EventArgs) Handles Btnstart.Click
    Dim rnd As New Random()
    Lblrandomnum.Text = rnd.Next(0, 101)
    For Each I In Lblrandomnum.Text
        txtstore.Text = Lblrandomnum.Text
        FileOpen(1, filename, OpenMode.Append)
        WriteLine(1, Lblrandomnum.Text)
        FileClose()
        Next I
End Sub

Private Sub Btndisplay_Click(sender As Object, e As EventArgs) Handles Btndisplay.Click
    Dim datatodisplay As String
    FileOpen(1, filename, OpenMode.Input)
    lstdisplay.Items.Clear()
    Do While Not EOF(1)
        datatodisplay = LineInput(1)
        lstdisplay.Items.Add(datatodisplay)
    Loop
    FileClose()
End Sub