用VB做一个人工智能补丁代码2.0

answer(5) = "有事吗"
answer(1) = "干嘛"
answer(2) = "6"
answer(3) = "额"
answer(4) = "怎么了"
If InStr(1, Text1, "嘿") <> 0 Then

Text2 = answer(Int(4 * Rnd) + 1)
End If

IF Instr(lcase(Text1.Text),"版本")>0 then Text2.Text = "AI补丁版本2.0"

answer(5) = "我也是"
answer(1) = "挺好的"
answer(2) = "6"
answer(3) = "额"
answer(4) = "嗯"
If InStr(1, Text1, "食物") <> 0 Then

Text2 = answer(Int(4 * Rnd) + 1)
End If