随机产生不重复数字
摘要:
下面是一个在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 ... 阅读全文
posted @ 2008-12-25 18:19 DoubleCat 阅读(646) 评论(1) 推荐(0) 编辑