主题：简单问题
爱丽斯LING
[专家分：560] 发布于 2007-04-05 17:39:00
请编程解决古老的模拟星空问题,使屏幕出现许许多多的小黑点(黑点的大小必须一致),黑点由计算机随机产生.
回复列表 （共19个回复）
11 楼
wzc1996 [专家分：1680] 发布于 2007-08-13 11:58:00
CLS
SCREEN 13
RANDOMIZE TIMER
DO
x = INT(RND * 320) + 1: y = INT(RND * 200) + 1
z = INT(RND * 256)
PSET (x, y),z
FOR i = 1 TO 10000: NEXT i
LOOP WHILE INKEY$ = ""
END
老帖的里有
12 楼
小精灵1号 [专家分：1040] 发布于 2007-08-14 07:59:00
CLS
SCREEN 13
RANDOMIZE TIMER
DO
x = INT(RND * 320) + 1: y = INT(RND * 200) + 1
z = INT(RND * 256)
PSET (x, y), z
FOR i = 1 TO 10000: NEXT i
LOOP WHILE INKEY$ = ""
END
13 楼
我的电脑 [专家分：990] 发布于 2007-08-14 09:22:00
CLS
SCREEN 13
RANDOMIZE TIMER
DO
x = INT(RND * 320) + 1: y = INT(RND * 200) + 1
z = INT(RND * 256)
PSET (x, y),z
FOR i = 1 TO 10000: NEXT i
LOOP WHILE INKEY$ = ""
END
14 楼
爱丽斯LING [专家分：560] 发布于 2007-08-14 09:29:00
CLS
SCREEN 13
RANDOMIZE TIMER
DO
x = INT(RND * 320) + 1: y = INT(RND * 200) + 1
z = INT(RND * 256)
PSET (x, y),z
FOR i = 1 TO 10000: NEXT i
LOOP WHILE INKEY$ = ""
END
15 楼
游戏之王 [专家分：540] 发布于 2007-08-14 10:13:00
CLS
DO
RANDOMIZE TIMER
SCREEN 7
COLOR 5
FOR I = 1 TO 1000
X = INT(RND * 302)
Y = INT(RND * 200)
Z = INT(RND * 15)
PSET (X, Y), Z
FOR J = 1 TO 10000
NEXT J
NEXT I
LOOP WHILE INKEY$ = ""
END
16 楼
网虫一号 [专家分：1230] 发布于 2007-08-14 10:15:00
CLS
SCREEN 13
RANDOMIZE TIMER
DO
x = INT(RND * 320) + 1: y = INT(RND * 200) + 1
z = INT(RND * 256)
PSET (x, y), z
FOR i = 1 TO 10000: NEXT i
LOOP WHILE INKEY$ = ""
END
17 楼
小精灵1号 [专家分：1040] 发布于 2007-08-14 10:32:00
CLS
SCREEN 13
RANDOMIZE TIMER
DO
x = INT(RND * 320) + 1: y = INT(RND * 200) + 1
z = INT(RND * 256)
PSET (x, y), z
FOR i = 1 TO 10000: NEXT i
LOOP WHILE INKEY$ = ""
END
18 楼
QB小猪 [专家分：1200] 发布于 2007-08-14 10:38:00
CLS
SCREEN 13
RANDOMIZE TIMER
DO
x = INT(RND * 320) + 1: y = INT(RND * 200) + 1
z = INT(RND * 256)
PSET (x, y), z
FOR i = 1 TO 10000: NEXT i
LOOP WHILE INKEY$ = ""
END
19 楼
天尝地酒 [专家分：870] 发布于 2007-08-14 10:47:00
CLS
SCREEN 13
RANDOMIZE TIMER
DO
x = INT(RND * 320) + 1: y = INT(RND * 200) + 1
z = INT(RND * 256)
PSET (x, y), z
FOR i = 1 TO 10000: NEXT i
LOOP WHILE INKEY$ = ""
END
我来回复
您所在位置：