VB中点击Proses按钮时，如何统计已添加到Positif列表框的'Unik'单词？

核心实现步骤 #

1. 在Proses按钮的点击事件中，保留原有文本拆分、添加到“Kata Baru”列表的逻辑，新增单词统计模块
2. 定义目标统计单词（示例为'Unik'，也可从Positif列表动态获取）
3. 遍历拆分后的单词数组，匹配目标单词并计数
4. 展示统计结果

修改后的按钮事件代码 #

Private Sub btnProses_Click(sender As Object, e As EventArgs) Handles btnProses.Click
    ' 清空并填充Kata Baru列表框
    lstKataBaru.Items.Clear()
    Dim words() As String = TextBox1.Text.Split({" "}, StringSplitOptions.RemoveEmptyEntries)
    For Each word As String In words
        lstKataBaru.Items.Add(word)
    Next

    ' 统计'Unik'的出现次数
    Dim targetWord As String = "Unik"
    Dim occurrenceCount As Integer = 0

    ' 遍历单词数组计数（支持不区分大小写匹配）
    For Each word As String In words
        If word.Equals(targetWord, StringComparison.OrdinalIgnoreCase) Then
            occurrenceCount += 1
        End If
    Next

    ' 输出统计结果（可替换为Label显示等方式）
    MessageBox.Show($"单词 '{targetWord}' 共出现 {occurrenceCount} 次", "统计结果")
End Sub

可选优化点 #

• 若需统计Positif列表中所有单词的出现次数，可循环遍历lstPositif.Items，逐个统计每个单词的出现次数
• 若需严格区分大小写，移除StringComparison.OrdinalIgnoreCase参数即可
• 可将统计结果显示在界面的Label控件中，替代MessageBox，提升用户体验

内容的提问来源于stack exchange，提问作者shin gamma