B
bzmouse
Unregistered / Unconfirmed
GUEST, unregistred user!
小弟在论坛上提了一个有关随机数的问题，
得到解答后，编了这样一个程序，每次运
行后产生的结果并不一样，但第一次都是
‘你赢了’，为什么会这样？
源程序：
procedure TForm1.Button1Click(Sender: TObject);
var
a:integer;
m,n:real;
begin
n:=Random;
Randomize;
m:=Random;
a:=Trunc(30*n*m) mod 3;
case a of
0 : form1.edit1.text:='你赢了！';
1 : form1.edit1.text:='平局！';
2 : form1.edit1.text:='你输了！';
end;
得到解答后，编了这样一个程序，每次运
行后产生的结果并不一样，但第一次都是
‘你赢了’，为什么会这样？
源程序：
procedure TForm1.Button1Click(Sender: TObject);
var
a:integer;
m,n:real;
begin
n:=Random;
Randomize;
m:=Random;
a:=Trunc(30*n*m) mod 3;
case a of
0 : form1.edit1.text:='你赢了！';
1 : form1.edit1.text:='平局！';
2 : form1.edit1.text:='你输了！';
end;