用VB做智能对话完结

Private Sub Command1_Click()
    '获取用户输入的消息
    Dim userInput As String
    userInput = Text1.Text
    '搜索文本文件并返回响应
    Dim response As String
    response = SearchResponse(userInput)
    '将响应添加到聊天记录中
    Text1.Text = vbCrLf & "" & userInput & vbCrLf & "" & response
    '将文本框滚动到底部
    Text1.SelStart = Len(Text1.Text)
    Text1.SelLength = 0
    Text1.SetFocus
    CreateObject("SAPI.SpVoice").Speak Text1.Text
End Sub

Private Function SearchResponse(userInput As String) As String
    '打开文本文件并搜索匹配项
    Dim fileNum As Integer
    fileNum = FreeFile
    Open "filename.txt" For Input As #fileNum
    Dim textLine As String
    Dim foundMatch As Boolean
    foundMatch = False
    Do Until EOF(fileNum) Or foundMatch
        Line Input #fileNum