Visual FoxPro 3.0中自编随机数函数

Author: 闫东 Date: 1997-01-01

　　在测试程序、模拟程序中，常常要使用随机数，这就需要有一个产生随机数的函数。但在Ｖｉｓｕａｌ　ＦｏｘＰｒｏ　３．０中却没有类似的函数，这无疑给编程带来很大的困难。为解决这一问题笔者自编了一个用于Ｖｉｓｕａｌ　ＦｏｘＰｒｏ　３．０的随机函数──ＲＮＤ（）。
　　为得到随机数，首先要有一个快速变化的数据源，笔者想到了Ｗｉｎｄｏｗｓ　９５的ＡＰＩ函数ＴｉｍｅＧｅｔＴｉｍｅ，此函数返回Ｗｉｎｄｏｗｓ　９５启动开始已逝去的毫秒数，其值以毫秒级发生变化，这个条件显然是满足的；其次，要求随机数的每一位数的变化都要很快，至少是前几位数的变化要快，但用ＴｉｍｅＧｅｔＴｉｍｅ得到的随机数正好相反（最后一位以毫秒级变化，前几位却几秒甚至几十秒才变化一次），于是笔者以使用Ｖｉｓｕａｌ　ＦｏｘＰｒｏ　３．０的ＳＴＲ（）和ＬＥＦＴ（）函数将ＴｉｍｅＧｅｔＴｉｍｅ的返回值调个头，如此一来便可以满足随机数的要求了。
　　程序设计中使用ＦｏｘＴｏｏｌｓ．ＦＬＬ库中的ＲｅｇＦｎ（）函数和ＣａｌｌＦｎ（）函数来调用ＴｉｍｅＧｅｔＴｉｍｅ函数。下面的一段程序可产生１００个１到１００之间的随机数：
　　Ｓｅｔ　Ｔａｌｋ　Ｏｆｆ
　　Ｆｏｒ　Ｉ＝１　Ｔｏ　１００
　　？Ｉｎｔ（Ｒｎｄ（）＊１００）＋１
　　ＥｎｄＦｏｒ
　　Ｆｕｎｃｔｉｏｎ　ＲＮＤ
　　Ｓｅｔ　Ｄｅｃｉｍａｌｓ　Ｔｏ　８
　　Ｓｅｔ　Ｌｉｂｒａｒｙ　Ｔｏ　Ｃ：＼ＶＦＰ＼ＦＯＸＴＯＯＬＳ．ＦＬＬ
　　ＳｙｓＴｉｍｅ＝Ｒｅｇｆｎ（＂ＴｉｍｅＧｅｔＴｉｍｅ＂，＂＂，＂Ｉ＂，＂ＭＭＳＹＳＴＥＭ＂）
　　Ｓｓ＝Ｃａｌｌｆｎ（ＳｙｓＴｉｍｅ）
　　ＲｎｄＳ＝Ｖａｌ（＂０．＂＋Ｒｉｇｈｔ（Ｓｔｒ（Ａｂｓ（Ｓｓ）），１）＋
　　Ｌｅｆｔ（Ｒｉｇｈｔ（Ｓｔｒ（Ａｂｓ（Ｓｓ）），２），１）＋
　　Ｌｅｆｔ（Ｒｉｇｈｔ（Ｓｔｒ（Ａｂｓ（Ｓｓ）），３），１）＋
　　Ｌｅｆｔ（Ｒｉｇｈｔ（Ｓｔｒ（Ａｂｓ（Ｓｓ）），４），１）＋
　　Ｌｅｆｔ（Ｒｉｇｈｔ（Ｓｔｒ（Ａｂｓ（Ｓｓ）），５），１））
　　Ｒｅｔｕｒｎ（Ｒｎｄｓ）
　　以上程序在Ｗｉｎｄｏｗｓ　９５和Ｖｉｓｕａｌ　ＦｏｘＰｒｏ　３．０中运行通过。