您所在位置：主题：在delphi中如何产生１０个随机数!
狼人创艺科技
[专家分：0] 发布于 2006-12-07 20:27:00
/*略＊／
var
i,t:integer;
begin
for i:=1 to 10 do
randomize;
t:=random(10);
a[i]:=t;
label1.Caption:=label1.Caption+' '+inttostr(t);
end;
/*略＊／
此帖转自:[url]http://www.programfan.com/team/team.asp?team_id=1133[/url]
var
i,t:integer;
begin
for i:=1 to 10 do
randomize;
t:=random(10);
a[i]:=t;
label1.Caption:=label1.Caption+' '+inttostr(t);
end;
/*略＊／
此帖转自:[url]http://www.programfan.com/team/team.asp?team_id=1133[/url]
