VB 计算特定单词在句子中出现次数的程序

Question

我最近才开始接触Visual Basic，所以不是很熟悉。我是计算机新手，请多多包涵！我正在尝试制作一个表格程序来计算句子中的特定单词。正如您从我的代码中看到的那样，我还没有深入了解它。我所要做的就是告诉我两个文本框是否匹配。如果有人能帮我解决问题，我将不胜感激！非常感谢。

代码：

Public Class Form1
    Dim Counter As Integer = 0

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        If Word.Text = Sentence.Text Then
            Counter1.Text = Counter + 1
        End If
    End Sub

End Class

Answer 1

VB.NET 和 C# 使用相同的底层对象模型，因此您可以采用 exising C# solution.

这是您的潜艇的外观：

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    If Word.Text.Length = 0 Then
        counter = 0
    Else
        counter = ( Sentence.Text.Length - Sentence.Text.Replace(Word.Text,"").Length ) / Word.Text.Length
    End If
    Counter1.Text = counter
End Sub

此方法一次计算所有出现次数，没有循环，因此您不需要增量器。

正如@romulus001 提到的，Word.Text 的长度可能为零，因此在除以它之前应该检查这一点。如果 Word.Text 的长度为零，那么您想要的计数可能为零，因为您实际上是在寻找任何东西。

Answer 2

我不知道它是否必须区分大小写，但您可以使用以下代码之一：

1)

Counter = Sentence.Text.split(Word.Text).Length - 1 'if the search is case sensitive

2)

Counter = Sentence.Text.toUpper.split(Word.Text.toUpper).Length - 1 'if the search is NOT case sensitive`

然后：

Counter1.Text = Counter

VB 计算特定单词在句子中出现次数的程序

VB program that counts the number of times a specific word occurs in a sentence

vb.net

visual-studio-2010