VB实现智能对话框？
就是说，当用户输入问题到text1文本框，并点击确定按钮后，
弹出（或者在text2文本框）对话框，并显示结果。
例如：张三在文本框输入“请问我是谁？”
点确定后，弹出一个对话框，“你是我的主人”
但是，在判断的时候要包括很多问法。
就是说如果输入的是“我是谁”或者“猜猜我是谁”或者“你知道我是谁么？”
等等，一致判断给出“你是我的主人”
但是注意，对于别的问题的提问，却不是回答“你是我的主人”
例如：张三又问“你是不是笨蛋?”
这次判断将不再回答“你是我的主人”
而是回答例如：“请不要说粗口话”或者“你骂人，不文明，也不乖”或者“我不跟你说话了”
但是这几个选项是事先写好的，在回答的时候是随机给出的。
不允许每次都是“请不要说粗口话话”这样的回答。
我不知道我说的够不够清楚，我只想知道怎么实现这些效果。
不管你用什么控件或者窗体。谢谢大家啦。
非常谢谢帮忙的人啊！！
楼主不会想整个啥啥的机器人吧，搜搜分词方面的内容吧
做一个数据库，用like查你需要的答案，显示！
明白了吗？
不懂啊，可以直接用代码实现么？我知道我很菜的，我弄了一天，好不容易弄来个代码，但不尽人意。大家能帮我看看这个代码还能怎么修改么？代码如下：
Dim answer(5) As String
Private Sub Command1_Click()
answer(5) = "请不要说粗口话"
answer(1) = "你骂人"
answer(2) = "不文明，也不乖"
answer(3) = "我不跟你�
相关问答：
希望大家能够帮我下.感谢了..
源码传在大米盘 VB6 的源码 http://www.damipan.com/file/3wNoKLW.html
转为VB.NET源码.
小弟完全是新手 不懂的说.麻烦各位帮忙一下
我的EMAIL是:4452 ......
我想做个用vb6做的程序，可以控制GPRS MODEM拨号，如拨我自己的手机
可以啊
你先下个AT命令集合学习学习
我来顶
顶贴
LZ好厉害
不顶不行
老是排MP
引用
LZ好厉害
......
我写了一个软件，要用到ACCESS数据库，我再访问ACCESS的时候，我需要从表里读出一行数据，我的程序是这样写的，SQLSTRING="SELECT * from '" &ME.TEXTBOX1.TEXT &"' WHERE ID = '"& ......
Private Sub Form_Load()
recs = Adodc1.Recordset.RecordCount '求当前记录数
If recs > 0 Then '已有考生
Adodc1.Recordset.MoveLast '移到最后一条记录
num = V ......
