瑞星卡卡安全论坛

首页 » 技术交流区 » 系统软件 » 【求助】请问在VB6中如何将1~10十个数字随机排列?
HYPERTEXT - 2005-7-30 22:17:00
请告诉我算法,谢谢!!!!!
黑色玫瑰 - 2005-8-11 23:03:00
randomize
for i = 0 to 9 '把0-9放入N()
  n(i) = i
next i

for i = 0 to 9
  swap n(i),n(int(rnd()*10))'做10次随机交换
next i
 
不动声色 - 2005-8-13 16:16:00
不懂,讲解下
1
查看完整版本: 【求助】请问在VB6中如何将1~10十个数字随机排列?