文件名称：vb编写人工智能对话
文件大小：32KB
文件格式：EXE
更新时间：2017-07-20 11:50:30
对话
可以人工这能对话，仅供参考.源代码： 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 & "你也呆！" 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 & "你说呢？" 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 & "你好！" 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 & "我也是！" 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 & "你也是。"