您所在位置：主题：小球弹跳动画
verysmartboy [专家分：1260] 发布于 2010-11-23 20:45:00
CLS
K = 1
B = 30
FOR I = 1 TO 20
LOCATE K, B
PRINT "*"
FOR J = 1 TO 1000000: NEXT J
IF I = 20 THEN BEEP
K = K + 1
CLS
NEXT I
FOR I = 1 TO 10
LOCATE K, B
PRINT "*"
FOR J = 1 TO 1000000: NEXT J
K = K - 1
CLS
NEXT I
FOR I = 1 TO 7
LOCATE K, B
PRINT "*"
FOR J = 1 TO 1000000: NEXT J
IF I = 7 THEN BEEP
K = K + 1
CLS
NEXT I
FOR I = 1 TO 6
LOCATE K, B
PRINT "*"
FOR J = 1 TO 1000000: NEXT J
K = K - 1
CLS
NEXT I
FOR I = 1 TO 6
LOCATE K, B
PRINT "*"
FOR J = 1 TO 1000000: NEXT J
IF I = 6 THEN BEEP
K = K + 1
CLS
NEXT I
FOR I = 1 TO 3
LOCATE K, B
PRINT "*"
FOR J = 1 TO 1000000: NEXT J
K = K - 1
CLS
NEXT I
END
小球是“*"上下弹跳耶！一个蛮无聊的程序……
K = 1
B = 30
FOR I = 1 TO 20
LOCATE K, B
PRINT "*"
FOR J = 1 TO 1000000: NEXT J
IF I = 20 THEN BEEP
K = K + 1
CLS
NEXT I
FOR I = 1 TO 10
LOCATE K, B
PRINT "*"
FOR J = 1 TO 1000000: NEXT J
K = K - 1
CLS
NEXT I
FOR I = 1 TO 7
LOCATE K, B
PRINT "*"
FOR J = 1 TO 1000000: NEXT J
IF I = 7 THEN BEEP
K = K + 1
CLS
NEXT I
FOR I = 1 TO 6
LOCATE K, B
PRINT "*"
FOR J = 1 TO 1000000: NEXT J
K = K - 1
CLS
NEXT I
FOR I = 1 TO 6
LOCATE K, B
PRINT "*"
FOR J = 1 TO 1000000: NEXT J
IF I = 6 THEN BEEP
K = K + 1
CLS
NEXT I
FOR I = 1 TO 3
LOCATE K, B
PRINT "*"
FOR J = 1 TO 1000000: NEXT J
K = K - 1
CLS
NEXT I
END
小球是“*"上下弹跳耶！一个蛮无聊的程序……
