可以人工这能对话，仅供参考.源代码：IFInstr(lcase(Text1.Text),"笨")>0thenText2.Text=Text1.Text&"你才笨！"IFInstr(lcase(Text1.Text),"傻")>0thenText2.Text=Text1.Text&"你才傻！"IFInstr(lcase(Text1.Text),"呆")>0thenText2.Text=Text1.Text&"你也呆！"IFIn