C语言
函数名:randomize
功 能:初始化随机数发生器
用 法:void randomize(void);
程序例:
#include <stdlib.h>
int main(void)
{
int i;
randomize();
printf("Ten random numbers from 0 to 99\n\n");
for(i=0; i<10; i++)
printf("%d\n", rand() % 100);
return 0;
}
注：可以在TC2.0中运行通过，在VC6.0不能运行。
VC中的用法
VC中使用srand()来初始化为随机数生成器。代码实例：
#include <stdio.h>
#include <stdlib.h>
#include <time.h>
#define N 10
main()
{
int i;
srand(time(0)); /*设置种子,并生成伪随机序列*/
for(i=0;i<N;++i)
printf("%d\n",rand()%100);/*得到[0,99]伪随机数*/
system("pause");
}
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;
posted on 2012-02-07 11:08
张志松 阅读(454)
评论(0) 编辑 收藏 引用 所属分类:
VC/MFC 、
VB/VBS