用VB做一个AI智能对话003

Private Sub Command1_Click()

If InStr(LCase(Text1.Text), "几点") > 0 Then text2.text="现在是北京时间：" & time

If InStr(LCase(Text1.Text), "你好") > 0 Then Text2.Text = "你也好"

If InStr(LCase(Text1.Text), "厉害啊") > 0 Then Text2.Text = "谢谢夸奖"

If InStr(LCase(Text1.Text), "谢谢") > 0 Then Text2.Text = "不用谢"

CreateObject("SAPI.SpVoice").Speak Text2.Text
End Sub
上一次我们让AI发出了声音，这一次，我们又要来完善了

Dim answer(5) As String
Private Sub Command1_Click()
answer(5) = "有事吗"
answer(1) = "你好"
answer(2) = "谢谢"
answer(3) = "怎么了"
answer(4) = "你也好啊"
If InStr(1, Text1, "你好") <> 0 Then

Text2 = answer(Int(4 * Rnd) + 1)
End If
End Sub

这一次我们用到了随机数，可以随机出现回答，完整代码如下：

Dim answer(5) As String'这段代码属于通用区域
Private Sub Command1_Click()
answer(5) = "有事吗"
answer(1) = "你好"
answer(2) = "谢谢"
answer(3) = "怎么了"
answer(4) = "你也好啊"
If InStr(1, Text1, "你好") <> 0 Then

Text2 = answer(Int(4 * Rnd) + 1)
End If
End Sub

Private Sub Command1_Click()

If InStr(LCase(Text1.Text), "几点") > 0 Then text2.text="现在是北京时间：" & time

If InStr(LCase(Text1.Text), "厉害啊") > 0 Then Text2.Text = "谢谢夸奖"

If InStr(LCase(Text1.Text), "谢谢") > 0 Then Text2.Text = "不用谢"

CreateObject("SAPI.SpVoice").Speak Text2.Text
End Sub