VB实现智能对话框？
就是说，当用户输入问题到text1文本框，并点击确定按钮后，
弹出（或者在text2文本框）对话框，并显示结果。
例如：张三在文本框输入“请问我是谁？”
点确定后，弹出一个对话框，“你是我的主人”
但是，在判断的时候要包括很多问法。
就是说如果输入的是“我是谁”或者“猜猜我是谁”或者“你知道我是谁么？”
等等，一致判断给出“你是我的主人”
但是注意，对于别的问题的提问，却不是回答“你是我的主人”
例如：张三又问“你是不是笨蛋?”
这次判断将不再回答“你是我的主人”
而是回答例如：“请不要说粗口话”或者“你骂人，不文明，也不乖”或者“我不跟你说话了”
但是这几个选项是事先写好的，在回答的时候是随机给出的。
不允许每次都是“请不要说粗口话话”这样的回答。
我不知道我说的够不够清楚，我只想知道怎么实现这些效果。
不管你用什么控件或者窗体。谢谢大家啦。
非常谢谢帮忙的人啊！！
楼主不会想整个啥啥的机器人吧，搜搜分词方面的内容吧
做一个数据库，用like查你需要的答案，显示！
明白了吗？
不懂啊，可以直接用代码实现么？我知道我很菜的，我弄了一天，好不容易弄来个代码，但不尽人意。大家能帮我看看这个代码还能怎么修改么？代码如下：
Dim answer(5) As String
Private Sub Command1_Click()
answer(5) = "请不要说粗口话"
answer(1) = "你骂人"
answer(2) = "不文明，也不乖"
answer(3) = "我不跟你�
相关问答：
怎么优化查询的效率，比如我想从100万条记录中每次只查询100条记录的话，那么这条sql语句该怎么实现，注意：语言是VBScript的，
http://www.cnblogs.com/anjou/archive/2007/10/17/926944.html
涉及到算法，goog ......
初学，大胆提问，请高手不吝赐教
1、滚动条点击与绘图板（屏幕,Piceure1）的移动问题已经解决。
Picture1.Top = -VScroll1.Value + bcW '垂直移动
Picture1.Left = -HScroll1.Value + bcW ' ......
可以吗
好奇怪的题目额！！
可以告诉我们你到底想问什么 ？
2分给我的话就可以。
........................可以吗
可以!
纠结，
29. vb可以这样做不？ ( H )√
A. ......
Private Sub Form_Load()
recs = Adodc1.Recordset.RecordCount '求当前记录数
If recs > 0 Then '已有考生
Adodc1.Recordset.MoveLast '移到最后一条记录
num = V ......
