小弟最近在一个项目中遇到这样一个问题： （开发语言vb） 假设有一组数字 1~1000 请将它们随机填充在一个数组中 dim mysz(1000) as integer 要求： 1、数组中无重复数字 2、整个程式运算很快，要求在10秒内完成！ 我用vb做成的，但是只要随机数个数>15，速度奇慢! 各位如果有什么好的方法(程式语言任意)，请指教!

VB  > < class="code">var Nums: array[1..1000] of integer; i,j,k,temp: integer; begin for i := Low(Nums) to High(Nums) do Nums[i] := i; for i := 0 to 1000 do begin // 1001 round may not be enough j := random(High(Nums)) 1; k := random(High(Nums)) 1; temp := Nums[j]; Nums[j] := Nums[k]; Nums[k] := temp; end; end;

Hi:    我有一些新的想法，與大家共同分享、討論    

procedure TForm1.Button11Click(Sender: TObject);
VAR
    I,R : Integer;
    S : TStrings;
begin
    ListBox1.Items.Clear;
    for i := 1 to 1000 do
        begin
            ListBox1.Items.Add(IntToStr(I));
        end;
    S := TStringList.Create;
    S.Assign(ListBox1.Items);
    ListBox2.Items.Clear;
    FOR I := 1000 DOWNTO 1 DO
        BEGIN
            R := Random(I)   1;
            ListBox2.Items.Add(S.Strings[R - 1]);
            S.Delete(R - 1);
        END;
    S.Free;
end;

在此我用ListBox 來代替 Array，以方便直接觀看執行結果 -------------------------------- 小弟才疏學淺，若有謬誤請不吝指教 --------------------------------

------
Fishman