Question

按键精灵在0,0,800,600范围内，鼠标移动3个随机坐标谁帮忙下

在0,0,800,600范围内，鼠标移动3个随机坐标

Answer 1

脚本如下：

Dim X, Y
Randomize
For 3
  X = Int((800 * Rnd) + 1)
  Y = Int((600 * Rnd) + 1)
  MoveTo X, Y
  Delay 1000 '延迟1秒
Next

Answer 2

Randomize
For 3
 x = int(800 * Rnd)
 y = int(600 * rnd)
 MoveTo x, y
 Delay 500
Next

Answer 3

For 3
Randomize
a=((800-0+0)*rnd+0)
b=((600-0+0)*rnd+0)
MoveTo a, b
next