以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 这样产生的随机数,科学吗? (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=114981) |
-- 作者:xxfoxtable -- 发布时间:2018/2/27 10:35:00 -- 这样产生的随机数,科学吗? Dim Val3 As Integer = Rand.Next(200,300)实际应用中,有的数字产生的几率特别大 |
-- 作者:有点甜 -- 发布时间:2018/2/27 10:55:00 -- 肯定靠谱的,你可以这样测试
For i As Integer = 1 To 50 |
-- 作者:xxfoxtable -- 发布时间:2018/2/27 11:01:00 -- Dim drs =Tables("公司档案").DataTable.SQLSelect("地区=\'"& cb4.text & "\' and 属性=\'" & cb2.text &"\' And 是否停用<>\'是\'") If drs.count>0 Dim Val3 As Integer = Rand.Next(0,drs.count-1) Dim text3 As WinForm.TextBox = e.Form.Controls("TextBox3") text3.text=drs(val3)("公司名称") 我是这样写的,客户反应,有一个公司被抽中了六次 Dim Val3 As Integer = Rand.Next(0,drs.count-1) Dim Val3 As Integer = Rand.Next(1,drs.count) 是不是应该第二个写的对?
|
-- 作者:有点甜 -- 发布时间:2018/2/27 11:24:00 -- 1、要这样写 Dim Val3 As Integer = Rand.Next(0,drs.count) \'0到drs.count-1都有可能被抽到
2、抽取是随机的,比如有10个人,抽取5次,并不能保证5次都是不同的人的。
3、如果你希望抽过的不重复抽取,你应该把抽取的记录起来,如果再抽到,就继续抽
http://www.foxtable.com/webhelp/scr/2963.htm
|