VB中如何实现人机语音聊天

希望有详细的方法步骤或者实例

首先你需要写大概1000000000000000000个If语句，只要if语句覆盖了所有人可能说出来的话就可以了，比如:
If text1.text = "现在多少点了" then
label1.caption="现在是北京时间：" & time
else
if text1.text="现在几点了"then
label1.caption="现在是：" & time
else
......
end if 
end if


当然，这个方法是不可行的。


想做一和电脑聊天的软件当然可能，但是想让电脑自己组织语言，这100%不可能（至少对编程来说，因为现在还没有研制出人工智能）。所有软件或游戏含有与电脑沟通的语句其实都是最初安排进去的，都是设定好的，不同的只是别人不是像这样打1000000000000个IF语句，而是有点技术含量（一般都是联网查询这句话的意思，至于联网的服务器…完全就是if数据库了，真的全if，就像上面一样），然后在本地批对相应的回答……做与电脑聊天的软件……不大可能。




还有一点，若想让电脑说出来，也就是你说的重点：语音聊天，让电脑说出文本简单很多，只需要下面的代码：
示例代码（窗体中有一个text文本框和一个按钮，单机按钮后说出文本框内容）

Private Sub Command1_Click()
CreateObject("SAPI.SpVoice").Speak Text1.Text
End Sub还有，至于输出语言，XP好像只能输入英文和中文。不能英文和中文同时输入，win7设置一下好像可以。（详见控制面板→语音）

任务占坑