可在Excel中运行的VBA的N-gram程序的示例

一、实例

"以下是一个能在Excel中运行的VBA的N-gram程序的示例：

```vba
Sub Ngram()
    Dim inputText As String
    Dim n As Integer
    Dim outputRange As Range
    Dim i As Integer
    Dim j As Integer
    Dim k As Integer
    Dim words() As String
    Dim ngram As String
    
    ' 获取输入文本和N值
    inputText = InputBox(""请输入文本："")
    n = InputBox(""请输入N值："")
    
    ' 获取输出范围
    Set outputRange = Application.InputBox(""请选择输出范围："", Type:=8)
    
    ' 将文本拆分为单词数组
    words = Split(inputText, "" "")
    
    ' 生成N-gram
    For i = 0 To UBound(words) - n + 1
        ngram = """"
        For j = i To i + n - 1
            ngram = ngram & words(j) & ""