请问如何在找图后按键盘呢？我想要出现图片后按几个键，但是不会弄，代码如上

你这个已经按了啊

delay久一点试试，太快了有时候卡过去了

按两次建议分开写，有时候会卡

Dim S
Randomize
s = Int((5 + 1) * Rnd + 0)
' 产生 1 到 5 之间的随机数。
TracePrint s
Dim intX(),INTY()
intX(1)= 1 :INTY(1)= 1
intX(2)= 2 :INTY(2)= 2
intX(3)= 3 :INTY(3)= 3
intX(4)= 4 :INTY(4)= 4
intX(5)= 5 :INTY(5)= 5
TracePrint intX(s),INTY(s)