瑞星卡卡安全论坛技术交流区系统软件 【求助】请问在VB6中如何将1~10十个数字随机排列?

1   1  /  1  页   跳转

【求助】请问在VB6中如何将1~10十个数字随机排列?

【求助】请问在VB6中如何将1~10十个数字随机排列?

请告诉我算法,谢谢!!!!!
最后编辑2005-08-13 16:16:21
分享到:
gototop
 

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
 
gototop
 

不懂,讲解下
gototop
 
1   1  /  1  页   跳转
页面顶部
Powered by Discuz!NT