搞了5期了,现在来整理一下全部代码吧
材料:VB6.0
准备:拉出2个text控件,一个command控件
Dim answer(5) As String'这段代码属于通用区域
Private Sub Command1_Click()
answer(5) = "有事吗"
answer(1) = "你好"
answer(2) = "谢谢"
answer(3) = "怎么了"
answer(4) = "你也好啊"
If InStr(1, Text1, "你好") <> 0 Then
Text2 = answer(Int(4 * Rnd) + 1)
End If
answer(5) = "哭哭"
answer(1) = "为什么啊"
answer(2) = "好吧"
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="现在是北京时间:" & time
If InStr(LCase(Text1.Text), "厉害啊") > 0 Then Text2.Text = "谢谢夸奖"
If In