RANDOMIZE与随机数

Author: 云南省昆明市第十六中学高二（3）班张峥 Date: 1993-10-01
        要想使每次运行程序得到不同的随机数序，那么就要用RANDOMIZE来再激发随机数发生器。该语句以：RANDOMIZE(I)格式出现于程序中。其中I是随机数源，范围是-32768～＋32767。如果省略I的值，则在执行RANDOMIZE之前要求回答：
        Random  Number  seed(-32768to32767)?
        回答的I值不同，则用RND所得的随机数序就不相同。这个I值也可以是程序中的变量或常量。
        下面给出的这段程序，只要不是同一小时，同一分钟，同一秒钟启动的该程序，RND得到的就是完全不同的随机数序。
        100  REMSUB-RND
        110  FOR  N=1  TO  10
        120  A=TIME
        130  B=LEFT(A，2)
        140  C=RIGHT(LEFT(A，4)，2)
        150  D=RIGHT(A，2)
        160  B=VAL(B)：C=VAL(C)；D=VAL(D)
        170  A=B＋C＋D：RAN  DOMIZE(A)
        180  PRINT  RND；：NEXT
        (云南省昆明市第十六中学高二(3)班张峥)