这样产生的随机数，科学吗？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 这样产生的随机数，科学吗？

共有2379人关注过本帖树形打印复制链接主题：这样产生的随机数，科学吗？

xxfoxtable

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：七尾狐帖子：1743 积分：16416 威望：0 精华：0 注册：2017/6/1 23:12:00

这样产生的随机数，科学吗？ 发帖心情

Post By：2018/2/27 10:35:00 [显示全部帖子]

Dim Val3 As Integer = Rand.Next(200,300)实际应用中，有的数字产生的几率特别大

xxfoxtable

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：七尾狐帖子：1743 积分：16416 威望：0 精华：0 注册：2017/6/1 23:12:00

Post By：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)

是不是应该第二个写的对？

主题：这样产生的随机数，科学吗？