randomize

函数名: randomize

功 能: 初始化随机数发生器

适用语言;BASIC,VISUAL BASIC,C,C++,Delphi，pascal等

用 法: void randomize(void);

程序例:

#include <stdlib.h>

int main(void)

{

int i;

randomize();

printf("Ten random numbers from 0 to 99

");

for(i=0; i<10; i++)

printf("%d

", rand() % 100);

return 0;

}

VB 中的用法Randomize 语句示例

本示例用 Randomize 语句初始化随机数生成器。由于忽略了数值参数， 所以 Randomize 用 Timer 函数的返回值作为新的随机数种子值。

Dim MyValue

Randomize ' 对随机数生成器做初始化的动作。

MyValue = Int((6 * Rnd) + 1) ' 生成 1 到 7 之间(不包括7)的随机数值。

Delphi 中的用法

以下事例将随机产生0到100的数字，如果不使用Randomize函数，得到的结果将有规律性。

procedure TForm1.btn1Click(Sender: TObject);

begin

randomize;

ShowMessage(IntToStr(Random(100)));

end;

pascal中的用法

pascal中如果不使用randomize，就是上一次的结果。并且，pascal中的随机数语句是从0开始的，以X-1结束。因此如果随即产生0~100间的数要用random(101)来。

下面一个产生0~100的随机数的程序：

var a:integer;

begin

randomize;

a:=random(101);

writeln(a);

readln;

end.