摘要:
http://www.cnblogs.com/28088191/archive/2008/12/25/1362519.html下面是一个在14个数据产生10个不重复的随机数-----------------------------------------------procedure TForm1.Button1Click(Sender: TObject);var a:array[1..14]of integer;//14个数 b:array[1..10]of integer;//结果 c:array[1..14]of boolean;//标志,默认false i,temp:integer; 阅读全文