桌面宠物VB的实现代码

Dim MoveScreen As Boolean

Dim MousX As Integer

Dim MousY As Integer

Dim CurrX As Integer

Dim CurrY As Integer

Dim answer(5) As String

Private Sub Command1_Click()

Form1.Height = 4305

Form1.Width = 4200

End Sub

Private Sub Command2_Click()

Form1.Height = 1395

Form1.Width = 1260

End Sub

Private Sub Command3_Click()

Dim answer(5) As String

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) = "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

answer(5) = "哭哭"

answer(1) = "为什么啊"

answer(2) = "好吧"

answer(3)