AI对话
文章平均质量分 61
喜欢用VB而已
这个作者很懒,什么都没留下…
展开
-
用VB做智能对话完结
'如果没有匹配项,则将用户输入添加到文本文件中。'打开文本文件并搜索匹配项。'搜索文本文件并返回响应。'将响应添加到聊天记录中。'获取用户输入的消息。'将文本框滚动到底部。原创 2023-05-31 19:21:37 · 149 阅读 · 0 评论 -
VB做AI智能对话(009)。
加一个TEXT和一个COMMAND,还要创建一个名为FILENAME的TXT文件,语料格式为。'如果没有匹配项,则将用户输入添加到文本文件中。语料库也可以在我的博客资源里下载,免费!'打开文本文件并搜索匹配项。'搜索文本文件并返回响应。'将响应添加到聊天记录中。'获取用户输入的消息。'将文本框滚动到底部。原创 2023-05-30 20:27:40 · 110 阅读 · 0 评论 -
用VB做一个AI智能对话008
answer(2) = "我无法生成复杂的作文,但我可以写一篇简短的作文:站在户外,轻轻的嘘一口气,一团白雾裹着一份温暖袅袅升空,在半空中伸展,氤氲,半晌又汇入了干冷的空气。answer(4) = "我无法生成复杂的作文,但我可以写一篇简短的作文:冬天,我最爱在树林外看日落,看到那悬在半空的落日,光亮已褪去,只剩下一片鲜红色,略带些朦胧,像打在碗里的鸡蛋黄,藏在水杉那密密枝条的后面。answer(3) = "我无法生成复杂的作文,但我可以写一篇简短的作文:春天是绿色的世界。草是嫩绿色的,树是新绿色的。原创 2023-05-27 09:45:08 · 485 阅读 · 1 评论 -
用VB做一个AI智能对话007
answer(4) = "我无法生成复杂的作文,但我可以写一篇简短的作文:冬天,我最爱在树林外看日落,看到那悬在半空的落日,光亮已褪去,只剩下一片鲜红色,略带些朦胧,像打在碗里的鸡蛋黄,藏在水杉那密密枝条的后面。answer(3) = "我无法生成复杂的作文,但我可以写一篇简短的作文:春天是绿色的世界。If InStr(LCase(Text1.Text), "中国的四大名著") > 0 Then Text2.Text = Text1.Text & "《三国演义》、《红楼梦》、《西游记》、《水浒传》"原创 2023-05-10 20:37:09 · 158 阅读 · 0 评论 -
用VB做一个AI智能对话006
IF Instr(lcase(Text1.Text),"中国的四大名著")>0 then Text2.Text =Text1.Text & "《三国演义》、《红楼梦》、《西游记》、《水浒传》"IF Instr(lcase(Text1.Text),"岁")>0 then Text2.Text =Text1.Text & "我有零岁。IF Instr(lcase(Text1.Text),"软件")>0 then Text2.Text =Text1.Text & "你也是。小树长成大树,到了冬天便成了。原创 2023-05-07 07:35:49 · 202 阅读 · 0 评论 -
用VB做一个AI智能对话005
IF Instr(lcase(Text1.Text),"中国的四大名著")>0 then Text2.Text =Text1.Text & "《三国演义》、《红楼梦》、《西游记》、《水浒传》"IF Instr(lcase(Text1.Text),"你好")>0 then Text2.Text =Text1.Text & "你好!IF Instr(lcase(Text1.Text),"你")>0 then Text2.Text =Text1.Text & "是的。原创 2023-05-02 23:03:48 · 155 阅读 · 0 评论 -
用VB做一个AI智能对话补丁代码
IF Instr(lcase(Text1.Text),"中国的四大名著")>0 then Text2.Text =Text1.Text & "《三国演义》、《红楼梦》、《西游记》、《水浒传》"IF Instr(lcase(Text1.Text),"软件")>0 then Text2.Text =Text1.Text & "你也是。IF Instr(lcase(Text1.Text),"你")>0 then Text2.Text =Text1.Text & "是的。添加在command1的代码中。原创 2023-05-02 22:48:08 · 155 阅读 · 0 评论 -
用VB制作一个AI聊天机器人(001)
从现在开始,我们要用VB做一款聊天机器人材料:VB6.0准备:拉出2个text控件,一个command控件代码可以这样写:(仅供参考)Private Sub Command1_Click()If InStr(LCase(Text1.Text), "你好") > 0 Then Text2.Text = "你也好"End Sub毕竟还是太枯燥了,我们可以增加一些内容,那么这串代码就变成了这样:Private Sub Command1_Click()If InStr(LCase(Text1.Text), "原创 2023-05-02 21:46:48 · 446 阅读 · 2 评论 -
用VB做一个AI智能对话002
If InStr(LCase(Text1.Text), "几点") > 0 Then text2.text="现在是北京时间:" & time。If InStr(LCase(Text1.Text), "几点") > 0 Then text2.text="现在是北京时间:" & time。原创 2023-05-02 21:54:56 · 216 阅读 · 2 评论 -
用VB做一个AI智能对话003
Private Sub Command1_Click()If InStr(LCase(Text1.Text), "几点") > 0 Then text2.text="现在是北京时间:" & timeIf InStr(LCase(Text1.Text), "你好") > 0 Then Text2.Text = "你也好"If InStr(LCase(Text1.Text), "厉害啊") > 0 Then Text2.Text = "谢谢夸奖"If InStr(LCase(Text1.Text), "谢谢")原创 2023-05-02 22:04:46 · 228 阅读 · 1 评论 -
用VB做一个AI智能对话004
Dim answer(5) As String'这段代码属于通用区域Private Sub Command1_Click()answer(5) = "有事吗"answer(1) = "你好"answer(2) = "谢谢"answer(3) = "怎么了"answer(4) = "你也好啊"If InStr(1, Text1, "你好") 0 ThenText2 = answer(Int(4 * Rnd) + 1)End IfIf InStr(LCase(Text1.Text), "几原创 2023-05-02 22:29:38 · 127 阅读 · 0 评论