Delphi7中如何使用Randomize生成1至6的随机数而非0？
- 内容介绍
- 文章标签
- 相关推荐
本文共计161个文字，预计阅读时间需要1分钟。
我想制作两个骰子，但不希望它们都投出0，这是我的代码：procedure TForm1.Button1Click(Sender: TObject);var x1, x2: integer; text1, text2: string;begin randomize; x1 :=random(7); x2 :=random(7); text1 :=inttostr(x1); text2 :=inttostr(x2);end;
我想制作2个骰子,但我不希望它选择0,这是我的代码：procedure TForm1.Button1Click(Sender: TObject); var x1,x2:integer; text1,text2:string; begin randomize; x1:=random(7); x2:=random(7); text1:=inttostr(x1); text2:=inttostr(x2); label1.Caption:=text1; label2.Caption:=text2; end; end.
我该怎么办才能让它从1到6中选择,不包括0？谢谢
x1:=random(6) + 1;
应该做的伎俩,它现在永远不会返回零.
本文共计161个文字，预计阅读时间需要1分钟。
我想制作两个骰子，但不希望它们都投出0，这是我的代码：procedure TForm1.Button1Click(Sender: TObject);var x1, x2: integer; text1, text2: string;begin randomize; x1 :=random(7); x2 :=random(7); text1 :=inttostr(x1); text2 :=inttostr(x2);end;
我想制作2个骰子,但我不希望它选择0,这是我的代码：procedure TForm1.Button1Click(Sender: TObject); var x1,x2:integer; text1,text2:string; begin randomize; x1:=random(7); x2:=random(7); text1:=inttostr(x1); text2:=inttostr(x2); label1.Caption:=text1; label2.Caption:=text2; end; end.
我该怎么办才能让它从1到6中选择,不包括0？谢谢
x1:=random(6) + 1;
应该做的伎俩,它现在永远不会返回零.