REM -------------- 雪花 -------------- CONST n = 35 '雪花数目 DIM P(32) '定义存放雪花图象的数组 DIM X(n) AS INTEGER, Y(n) AS INTEGER '存放雪花的坐标的两个数组 DEFINT I SCREEN 12: CLS '置图形方式,清屏 PSET (100, 100): DRAW "nl6nr6nf4ng4ne4nh4"'画出雪花 GET (94, 96)-(110, 104), P '截取雪花图象到P中 LINE (90, 90)-(120, 120), 0, BF '擦除雪花 FOR I = 1 TO n '产生初始雪花的位置 X(I) = RND * 620: Y(I) = RND * 380'使用随机函数产生雪花位置 PUT (X(I), Y(I)), P, XOR '画出雪花 NEXT I '继续画下一个雪花 I = 1 '从第一个雪花开始 WHILE INKEY$ = "" '如果不按键则一直进行下去 PUT (X(I), Y(I)), P, XOR '清除当前的雪花 X(I) = X(I) + 3 + RND * 4: IF X(I) > 620 THEN X(I) = 0'产生雪花新的X坐标 Y(I) = Y(I) + I * .2 + RND * 5: IF Y(I) > 380 THEN Y(I) = 0'产生雪花新的Y坐标 PUT (X(I), Y(I)), P, XOR '画出新的雪花 I = I + 1: IF I > n THEN I = 1'如果已处理完最后一个雪花,则下一步处理第一个雪花 WEND '继续处理下一个雪花 END '程序结束