桌面宠物VB的实现代码

Dim MoveScreen As Boolean '这个布尔型变量业决定是否可以移动窗体
Dim MousX As Integer '计录鼠标X位置
Dim MousY As Integer '计录鼠标Y位置
Dim CurrX As Integer '计录窗体X位置
Dim CurrY As Integer '计录窗体Y位置
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)