作者：未知 来源：月光软件站 加入时间：2005-5-13　月光软件站

unit yaohaoqiU;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Spin;

type
  TForm1 = class(TForm)
    Button1: TButton;
    SpinEdit1: TSpinEdit;
    SpinEdit2: TSpinEdit;
    Label1: TLabel;
    Label2: TLabel;
    ListBox1: TListBox;
    Button2: TButton;
    Label3: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  i,j,r,l:integer;
  s:string;
  All:array[0..1000] of integer;//这个数组用来装随机数的
  Result:array[0..1000] of integer;//这个数组用来装结果的
begin
 l:=label3.Height;
if  spinEdit1.Value<spinEdit2.Value then
begin
    label3.caption:='错了喔..倒了也!';
    label3.Width:=353;
end
else
begin
  for i:=0 to spinEdit1.Value-1 do
    All[i]:=i;
  //产生M个随机数
  for i:=0 to spinEdit2.Value-1 do
  begin
    j:=random(spinEdit1.Value);
    r:=j mod (spinEdit1.Value-1-i);
    Result[i]:=All[r];
    All[r]:=All[spinEdit1.Value-1-i];
  end;
  ListBox1.Clear;
  s:=' ';
  for i:=0 to spinEdit2.Value-1 do
  begin
    s:=s+inttostr(Result[i])+' ';
    ListBox1.Items.add(inttostr(Result[i]));
  end;
   label3.caption:=s;
   label3.Width:=353;
end;
  form1.Height:=(300+(l-110));
  form1.InitiateAction;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;

end.

运行时：

输入后结果：

改个数后结果：

相关软件：