喜欢用VB而已 于 2023-05-13 17:42:15 发布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)
