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