randomize是一种函数，功能是初始化
随机数发生器，用法是void randomize(void)。
for(i=0;i
}
VB
语句名:Randomize
功 能:初始化随机数发生器
用 法:Randomize
Randomize 语句示例
本示例用 Randomize 语句初始化随机数生成器。由于忽略了数值参数， 所以 Randomize 用 Timer 函数的返回值作为新的随机数种子值。
Dim MyValue
Randomize ' 对随机数生成器做初始化的动作。
MyValue = Int(6 *
Rnd+1) ' 生成 1 到 6 之间（包括6）的随机整数。
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.
FBIde
同上，在FBIde里，如果没有RANDOMIZE，随机出来的结果跟开始一样
下面是产生20个0~100之间的整数的语句（要用到一维数组）：
FOR I=1 TO 20
A(I)=INT(RND*101)
NEXT I