楼上好，你这是做什么？？？

SCREEN 12 

 SELECT CASE 用QB 编图形
CASE 画个可爱的女孩子
  PSET  (x!,y!),红
  PSET  (x!,y!),绿
  ...
  画好了 GOTO END
CASE 画一篮玫瑰送女朋友
  LINE (x1!,y1!)-(x2!,y2!) ,玫瑰红
  LINE (x1!,y1!)-(x2!,y2!) ,玫瑰红
  ...
  画好了 GOTO END

  LINE 
CASE ELSE 
  休息以后再画 GOTO END
END SELECT
SCREEN 0
END
哈哈！！！！！！！！！！

RANDOMIZE TIMER
SCREEN 12   '设置为12号图形模式
    DIM count AS INTEGER
    DIM Red AS INTEGER, green AS INTEGER, Blue AS INTEGER
  length = 15
  FOR j = 1 TO 200
    x = INT(RND * 640)
    y = INT(RND * 480)
    FOR i = 15 TO 0 STEP -1
     CIRCLE (x, y), i, i, , , 1
    NEXT
  NEXT
  FOR count = 1 TO 15
        Red = 0
        green = 63 - (count - 1) * (64 / length)
        Blue = 63 - (count - 1) * (64 / length)
        PALETTE count, Red + green * 256 + Blue * 65536
  NEXT