https://blog.youkuaiyun.com/2201_75936381zh-cnhttps://blog.youkuaiyun.com/https://blog.youkuaiyun.com/2201_75936381/article/details/131694941https://blog.youkuaiyun.com/2201_75936381/article/details/1316949412201_75936381Thu, 13 Jul 2023 09:24:57 +0800https://blog.youkuaiyun.com/2201_75936381/article/details/131657626https://blog.youkuaiyun.com/2201_75936381/article/details/1316576262201_75936381Tue, 11 Jul 2023 12:40:24 +0800https://blog.youkuaiyun.com/2201_75936381/article/details/130975549https://blog.youkuaiyun.com/2201_75936381/article/details/1309755492201_75936381Wed, 31 May 2023 19:21:37 +0800https://blog.youkuaiyun.com/2201_75936381/article/details/130956448https://blog.youkuaiyun.com/2201_75936381/article/details/1309564482201_75936381Tue, 30 May 2023 20:27:40 +0800https://blog.youkuaiyun.com/2201_75936381/article/details/130897573https://blog.youkuaiyun.com/2201_75936381/article/details/1308975732201_75936381Sat, 27 May 2023 09:45:08 +0800https://blog.youkuaiyun.com/2201_75936381/article/details/130660196https://blog.youkuaiyun.com/2201_75936381/article/details/1306601962201_75936381Sat, 13 May 2023 17:42:15 +0800https://blog.youkuaiyun.com/2201_75936381/article/details/130609303https://blog.youkuaiyun.com/2201_75936381/article/details/1306093032201_75936381Wed, 10 May 2023 20:37:09 +0800 0 Then Text2.Text = Text1.Text & "《三国演义》、《红楼梦》、《西游记》、《水浒传》"]]>https://blog.youkuaiyun.com/2201_75936381/article/details/130439317https://blog.youkuaiyun.com/2201_75936381/article/details/1304393172201_75936381Sun, 07 May 2023 07:38:27 +0800https://blog.youkuaiyun.com/2201_75936381/article/details/130538608https://blog.youkuaiyun.com/2201_75936381/article/details/1305386082201_75936381Sun, 07 May 2023 07:35:49 +08000 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 & "你也是。小树长成大树，到了冬天便成了。]]>https://blog.youkuaiyun.com/2201_75936381/article/details/130533963https://blog.youkuaiyun.com/2201_75936381/article/details/1305339632201_75936381Sat, 06 May 2023 19:41:07 +08000 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) = "嗯"]]>https://blog.youkuaiyun.com/2201_75936381/article/details/130468250https://blog.youkuaiyun.com/2201_75936381/article/details/1304682502201_75936381Tue, 02 May 2023 23:03:48 +08000 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 & "是的。]]>https://blog.youkuaiyun.com/2201_75936381/article/details/130468091https://blog.youkuaiyun.com/2201_75936381/article/details/1304680912201_75936381Tue, 02 May 2023 22:48:08 +08000 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的代码中。]]>https://blog.youkuaiyun.com/2201_75936381/article/details/130467693https://blog.youkuaiyun.com/2201_75936381/article/details/1304676932201_75936381Tue, 02 May 2023 22:29:38 +0800https://blog.youkuaiyun.com/2201_75936381/article/details/130467555https://blog.youkuaiyun.com/2201_75936381/article/details/1304675552201_75936381Tue, 02 May 2023 22:04:46 +0800 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), "谢谢")]]>https://blog.youkuaiyun.com/2201_75936381/article/details/130467474https://blog.youkuaiyun.com/2201_75936381/article/details/1304674742201_75936381Tue, 02 May 2023 21:54:56 +0800 0 Then text2.text="现在是北京时间：" & time。If InStr(LCase(Text1.Text), "几点") > 0 Then text2.text="现在是北京时间：" & time。]]>https://blog.youkuaiyun.com/2201_75936381/article/details/130467405https://blog.youkuaiyun.com/2201_75936381/article/details/1304674052201_75936381Tue, 02 May 2023 21:46:48 +0800 0 Then Text2.Text = "你也好" End Sub毕竟还是太枯燥了，我们可以增加一些内容，那么这串代码就变成了这样：Private Sub Command1_Click() If InStr(LCase(Text1.Text), "]]>