Select 根据选中的列表框选择编号，从文本文件中读取特定行

我想创建一个应用程序，它将从文本文件中读取特定行并在文本框中显示。该行将根据我将进行的列表框选择的编号进行选择。
代码如下：

公共类表单1
私有子表单1_Load（ByVal发送方作为System.Object，ByVal e作为System.EventArgs）处理MyBase.Load
端接头
私有子按钮1\u单击（ByVal sender作为System.Object，ByVal e作为System.EventArgs）处理按钮1。单击
作为整数的Dim i
对于i=0的Me.CheckedListBox1.checkedDices.Count-1
Me.CheckedListBox1.SetItemChecked（Me.CheckedListBox1.checkedDices（0），False）
接下来我
端接头
私有子按钮2\u单击（ByVal sender作为System.Object，ByVal e作为System.EventArgs）处理按钮2。单击
如果CheckedListBox1.CheckedItems.Count为0，则
Dim reader作为新System.IO.StreamReader（CurDir（）&“\”和“READ.txt”）
作为整数的Dim x
Dim s As String=“”
对于x=0的CheckedListBox1.CheckedItems.Count-1
s=s&“Answer”&（x+1）.ToString&“”&CheckedListBox1.CheckedItems（x）.ToString&ControlChars.CrLf&reader.ReadLine（）&ControlChars.CrLf&ControlChars.CrLf
下一个x
答案.文本=（s）
其他的
MessageBox.Show（“请选择问题。”，“错误”_
MessageBoxButtons.OK_
MessageBoxIcon.Information）
回来
如果结束
端接头
末级

假设我“勾选”了选中列表框中的第一、第二和第五项，我希望它从文本文件中读取第一、第二和第五行文本，并在文本框中显示它们。

---

当前代码只是按顺序读取第1、2、3行（…），而不管我“选中”了什么项目。

每次从文件中读取一行时，都会增加一个计数器，以跟踪正在读取的行，并且只有当行号与所选行号匹配时，才会向文本框中添加一行

Public Class Form1

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

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim i As Integer
        For i = 0 To Me.CheckedListBox1.CheckedIndices.Count - 1
Me.CheckedListBox1.SetItemChecked(Me.CheckedListBox1.CheckedIndices(0),False)
        Next i
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If CheckedListBox1.CheckedItems.Count <> 0 Then
            Dim reader As New System.IO.StreamReader(CurDir() & "\" & "READ.txt")
            Dim x As Integer
            Dim s As String = ""
            For x = 0 To CheckedListBox1.CheckedItems.Count - 1
                s = s & "Answer " & (x + 1).ToString & ") " & CheckedListBox1.CheckedItems(x).ToString & ControlChars.CrLf & reader.ReadLine() & ControlChars.CrLf & ControlChars.CrLf

            Next x
            Answer.Text = (s)

        Else
            MessageBox.Show("Please select questions.", "Error", _
                        MessageBoxButtons.OK, _
                        MessageBoxIcon.Information)
            Return
        End If
    End Sub
End Class