您所在位置：主题：[原创]扩大的同心圆
飞鸟12
[专家分：2830] 发布于 2005-03-01 18:51:00
SCREEN 12
a=1:b=100:c=20
DO
a=a+1:b=b+1
IF a>c THEN
a=a-c:b=b-c
END IF
FOR i=a TO b STEP c '画圆
CIRCLE (150,150),i,4
NEXT i
FOR j=1 TO 10000:NEXT j
FOR i=a TO b STEP c '将圆檫除
CIRCLE (150,150),i,0
NEXT i
LOOP WHILE INKEY$="" '按任意键结束
a=1:b=100:c=20
DO
a=a+1:b=b+1
IF a>c THEN
a=a-c:b=b-c
END IF
FOR i=a TO b STEP c '画圆
CIRCLE (150,150),i,4
NEXT i
FOR j=1 TO 10000:NEXT j
FOR i=a TO b STEP c '将圆檫除
CIRCLE (150,150),i,0
NEXT i
LOOP WHILE INKEY$="" '按任意键结束
