如何搜索ListBox中的文本？

Question

因此，這裏是我的計劃看起來是什麼

什麼我想要做的就是搜索多少次也有一年級

這裏是代碼的朋友幫我做

Private Function countOccOfMark(ByVal mark As String) 
    Dim resultCount As Integer = 0 

    For cnt As Integer = 0 To lstDisplay.Items.Count - 1 
     Dim gradeMark As String = lstDisplay.Items(cnt) 
     Dim results() As String = gradeMark.Split(vbTab) 

     For Each res As String In results 
      If (res = mark) Then 
       resultCount = resultCount + 1 
      End If 
     Next 
    Next 

    Return resultCount 
End Function 


Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 
    Dim mark As String = InputBox("Enter a Grade to search for") 
    Dim amountFound As Integer = countOccOfMark(mark) 
    MessageBox.Show("Found " & amountFound & " Occurences of the mark " & mark) 
End Sub 

哪些工作正常，但我敢肯定有一個更簡單的方法來做到這一點

Answer 1

內部For-Next是不必要的。等級總是在第二列。

Private Function countOccOfMark(ByVal mark As String) 
    Dim resultCount As Integer = 0 

    For cnt As Integer = 0 To lstDisplay.Items.Count - 1 
     Dim gradeMark As String = lstDisplay.Items(cnt) 
     Dim results() As String = gradeMark.Split(vbTab) 
     If results(1) = mark Then 
      resultCount = resultCount + 1 
     End If 
    Next 

    Return resultCount 
End Function