作者MOONRAKER (㊣乌笨秃，又笨又秃)
看板Visual_Basic
标题Re: [VB6 ] 关於取乱数不重复
时间Thu Jun 26 19:54:14 2008
※ 引述《kclsixbig30 (...)》之铭言：
: 如何取到不重复的阿
老手介绍过的标准作法：
假设你要从 n 个号码中抽出 k 个
(1)用一个阵列 A 存放候选数 1 .. n
(2)用一个 for 让变数 i 从 1 跑到 k
(3)for每跑一次就产生一个乱数 r ，范围为[1,n]
(4)交换 A(r) 和 A(i)
(5)回圈跑完，阵列 A(1)..A(k)即为所求
: 顺便在问一下，我有２个表单，现在想把form2的资料，在form1中使用command显示出来
在form2中：
form1.(元件).(属性) = (value)
form1.print (value)
--
BATCH 1 (4/20) - 如何隐身 - SPAM - 英国杀人笑话 -
http://tinyurl.com/65vvbx
BATCH 2 (5/10) - 当众脱裤 - 主教 - 傻蛋奥运会 -
http://tinyurl.com/68grk7
BATCH 3 (6/14) - 买张床 - 切达大侠 - 伐木人之歌 -
http://tinyurl.com/3zpyx5
▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
■ 蒙帝派松正体中文计画 ■ Spam-a-lot and enjoy the pythonesque delight!
▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 59.115.217.159