DECLARE SUB add (x!, y!)
DIM xy(1 TO 14, 1 TO 2)
FOR i = 1 TO 14
FOR j = 1 TO 2
  READ xy(i, j)
NEXT j, i
DATA 0,0 ,160,0 ,320,0 ,480,0 ,639,0 ,639,160 ,639,320 ,639,479 ,480,479 ,320,479 ,160,479 ,0,479 ,0,320 ,0,160

SCREEN 12
CLS
LOCATE 12, 20: PRINT "Press any key to start!"
WHILE INKEY$ = "": WEND
CLS
DO
  FOR i = 1 TO 13 STEP 2
    CALL add(xy(i, 1), xy(i, 2))
    LINE (320, 240)-(xy(i, 1), xy(i, 2)), 4
  NEXT i
  FOR i = 2 TO 14 STEP 2
    CALL add(xy(i, 1), xy(i, 2))
    LINE (320, 240)-(xy(i, 1), xy(i, 2)), 3
  NEXT i

  key$ = INKEY$: IF key$ <> "" THEN EXIT DO
LOOP

SUB add (x, y)
IF (0 <= x AND x <= 638) AND y = 0 THEN
  dx = 1: dy = 0
ELSEIF x = 639 AND (0 <= y AND y <= 478) THEN
  dx = 0: dy = 1
ELSEIF (1 <= x AND x <= 639) AND y = 479 THEN
  dx = -1: dy = 0
ELSEIF x = 0 AND (1 <= y AND y <= 479) THEN
  dx = 0: dy = -1
END IF
x = x + dx: y = y + dy
END SUB

怎么样，看着中心的时候是不是有些晕？[url=http://wpa.qq.com/msgrd?V=1&Uin=281860270&Site=http://www.programfan.com/&Menu=yes]点击这里发送消息到我的QQ[/url]