Vb.net 识别单词的词义和句子

我需要在VisualBasic中生成识别单词位置的代码。例如，我的句子可以写“这是我的Visual Basic项目”。如果用户输入单词“my”，则输出将打开另一个表单，显示“您的单词位于第3位”。它需要使用字符串，然后将其更改为数组

我对该项目的设计相当简单：

供用户输入文本的文本框。 确认按钮。 还有一个退出按钮

此外，在确认按钮已单击时包含输出的表单中，有一个给出答案的标签和一个返回主程序的ok按钮。最后，如果他们的单词不在句子中，则应显示错误消息。程序应该是敏感的

我对编程相当陌生，希望得到任何帮助。如果您能返回一些按钮、文本框和整个程序的代码，我将不胜感激

---

真的请。非常感谢

您尚未指定平台，因此此答案仅适用于Office开发场景

Microsoft Word对象模型在这里很有用。你可以循环一个句子对象，循环它的单词集合。在单词集合中循环，直到找到匹配项。因此，需要在Microsoft Word中运行一些代码

Sub SetUpSentence()

    Dim currentSelection As Word.Selection
    Set currentSelection = Application.Selection

    Application.Options.Overtype = False

    currentSelection.TypeText Text:="This is some text"
End Sub

Sub TestFindWord()
    Debug.Print FindWord("some")
End Sub

Function FindWord(ByVal sWord As String) As Long

    Dim oWords As Word.Words
    Set oWords = ActiveDocument.Words

    Dim lIndex As Long
    lIndex = 0
    Dim oRange As Word.Range
    For Each oRange In oWords
        lIndex = lIndex + 1
        If Trim(oRange.Text) = sWord Then
            FindWord = lIndex
            Exit Function
        End If
    Next oRange

End Function

---

提示：用空格分隔句子，检查每个单词是否匹配…你至少应该自己尝试一下实现它。。。我甚至强调了关键词。。。只要在VS设计器中将它们拖放到正确的位置…像这样使用Instr这是主字符串，main将返回9@zx485谢谢，这是我的第一个关于VisualBasic的项目，所以我的知识很少。我的代码会和上面的代码相似吗