- 博客(16)
- 收藏
- 关注
RSS订阅原创 DEV C++打怪升级游戏1.5
printf("--------------------------加载完成，开始游戏！printf("--------------------------欢迎来到 [苍穹世界] 1.7 测试版-----------------------\n\n\n");printf("--------------------------正在启动游戏，稍等一会。
2023-07-13 09:24:57
270
1
原创 用C++写的打怪游戏。
printf("--------------------------欢迎来到 [苍穹世界] 1.0 测试版-----------------------\n\n\n");printf("--------------------------正在启动游戏，稍等一会。printf("--------------------------正在启动游戏，加载资源包。
2023-07-11 12:40:24
116
1
原创 用VB做智能对话完结
'如果没有匹配项，则将用户输入添加到文本文件中。'打开文本文件并搜索匹配项。'搜索文本文件并返回响应。'将响应添加到聊天记录中。'获取用户输入的消息。'将文本框滚动到底部。
2023-05-31 19:21:37
148
原创 VB做AI智能对话（009）。
加一个TEXT和一个COMMAND，还要创建一个名为FILENAME的TXT文件，语料格式为。'如果没有匹配项，则将用户输入添加到文本文件中。语料库也可以在我的博客资源里下载，免费！'打开文本文件并搜索匹配项。'搜索文本文件并返回响应。'将响应添加到聊天记录中。'获取用户输入的消息。'将文本框滚动到底部。
2023-05-30 20:27:40
110
原创 用VB做一个AI智能对话008
answer(2) = "我无法生成复杂的作文，但我可以写一篇简短的作文：站在户外，轻轻的嘘一口气，一团白雾裹着一份温暖袅袅升空，在半空中伸展，氤氲，半晌又汇入了干冷的空气。answer(4) = "我无法生成复杂的作文，但我可以写一篇简短的作文：冬天，我最爱在树林外看日落，看到那悬在半空的落日，光亮已褪去，只剩下一片鲜红色，略带些朦胧，像打在碗里的鸡蛋黄，藏在水杉那密密枝条的后面。answer(3) = "我无法生成复杂的作文，但我可以写一篇简短的作文：春天是绿色的世界。草是嫩绿色的，树是新绿色的。
2023-05-27 09:45:08
482
1
原创 用VB做一个AI智能对话007
answer(4) = "我无法生成复杂的作文，但我可以写一篇简短的作文：冬天，我最爱在树林外看日落，看到那悬在半空的落日，光亮已褪去，只剩下一片鲜红色，略带些朦胧，像打在碗里的鸡蛋黄，藏在水杉那密密枝条的后面。answer(3) = "我无法生成复杂的作文，但我可以写一篇简短的作文：春天是绿色的世界。If InStr(LCase(Text1.Text), "中国的四大名著") > 0 Then Text2.Text = Text1.Text & "《三国演义》、《红楼梦》、《西游记》、《水浒传》"
2023-05-10 20:37:09
158
原创 用VB做一个AI智能对话006
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 & "你也是。小树长成大树，到了冬天便成了。
2023-05-07 07:35:49
201
原创 用VB做一个人工智能补丁代码2.0
IF Instr(lcase(Text1.Text),"版本")>0 then Text2.Text = "AI补丁版本2.0"If InStr(1, Text1, "食物") 0 Then。If InStr(1, Text1, "嘿") 0 Then。answer(5) = "有事吗"answer(4) = "怎么了"answer(1) = "挺好的"answer(1) = "干嘛"answer(3) = "额"answer(3) = "额"answer(4) = "嗯"
2023-05-06 19:41:07
120
原创 用VB做一个AI智能对话005
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 & "是的。
2023-05-02 23:03:48
154
原创 用VB做一个AI智能对话补丁代码
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 & "是的。添加在command1的代码中。
2023-05-02 22:48:08
154
原创 用VB做一个AI智能对话004
Dim answer(5) As String'这段代码属于通用区域Private Sub Command1_Click()answer(5) = "有事吗"answer(1) = "你好"answer(2) = "谢谢"answer(3) = "怎么了"answer(4) = "你也好啊"If InStr(1, Text1, "你好") 0 ThenText2 = answer(Int(4 * Rnd) + 1)End IfIf InStr(LCase(Text1.Text), "几
2023-05-02 22:29:38
127
原创 用VB做一个AI智能对话003
Private Sub Command1_Click()If InStr(LCase(Text1.Text), "几点") > 0 Then text2.text="现在是北京时间：" & timeIf InStr(LCase(Text1.Text), "你好") > 0 Then Text2.Text = "你也好"If InStr(LCase(Text1.Text), "厉害啊") > 0 Then Text2.Text = "谢谢夸奖"If InStr(LCase(Text1.Text), "谢谢")
2023-05-02 22:04:46
225
1
原创 用VB做一个AI智能对话002
If InStr(LCase(Text1.Text), "几点") > 0 Then text2.text="现在是北京时间：" & time。If InStr(LCase(Text1.Text), "几点") > 0 Then text2.text="现在是北京时间：" & time。
2023-05-02 21:54:56
214
2
原创 用VB制作一个AI聊天机器人（001）
从现在开始，我们要用VB做一款聊天机器人材料：VB6.0准备：拉出2个text控件，一个command控件代码可以这样写：（仅供参考）Private Sub Command1_Click()If InStr(LCase(Text1.Text), "你好") > 0 Then Text2.Text = "你也好"End Sub毕竟还是太枯燥了，我们可以增加一些内容，那么这串代码就变成了这样：Private Sub Command1_Click()If InStr(LCase(Text1.Text), "
2023-05-02 21:46:48
446
2
用VB做的编程语言（green1.0）
2023-06-22
超级VB语言模型1.7版
2023-06-09
PYTHON做贪吃蛇代码
2023-05-29
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人