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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 随机数的问题

共有2431人关注过本帖树形打印复制链接主题：随机数的问题

lgz518

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

加好友

发短信

等级：五尾狐帖子：1152 积分：7712 威望：0 精华：0 注册：2019/6/13 9:57:00

随机数的问题 发帖心情

Post By：2023/2/20 14:45:00 [只看该作者]

EXCEL的公式：((25.8+RAND()/11)+(25.8-RAND()/11))/2

大致的意思：

在（25.8-1/11）与（25.8+1/11）两个数之间取随机数

按原公式的意思,应该是两个随机数的平均值,

即先在25.8到25.8+1/11之间取一个随机数,

然后在25.8-1/11到25.8之间取一个随机数,

最后求两个随机数的平均值

狐表的代码的问题，报错表达式Rand有问题

Select Case e.DataCol.Name

Case "值3"

Dim d As Double = Rand.Next((e.DataRow("值3") + RAND() / 11) + (e.DataRow("值3") - RAND() / 11)) / 2

e.DataRow("检测1") = d

End Select

如何用代码实现EXCEL的公式的功能？

有点蓝

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

加好友

发短信

等级：超级版主帖子：107147 积分：544978 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2023/2/20 14:47:00 [只看该作者]

Dim d As Double = Rand.Next((e.DataRow("值3") + 1 / 11) + (e.DataRow("值3") - 1 / 11)) / 2

lgz518

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

加好友

发短信

等级：五尾狐帖子：1152 积分：7712 威望：0 精华：0 注册：2019/6/13 9:57:00

Post By：2023/2/20 15:21:00 [只看该作者]

狐表的生成与EXCEL相差很大，如图，狐表的生成的值偏小，如何能实现跟EXCL差不多的功能？

此主题相关图片如下：随机数jpg.jpg

有点蓝

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

加好友

发短信

等级：超级版主帖子：107147 积分：544978 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2023/2/20 15:27:00 [只看该作者]

Dim d As Double = ((e.DataRow("值3") + Rand.NextDouble / 11) + (e.DataRow("值3") - Rand.NextDouble / 11)) / 2

[此贴子已经被作者于2023/2/20 15:42:18编辑过]

cd_tdh

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

加好友

发短信

等级：狐精帖子：3094 积分：20656 威望：0 精华：0 注册：2016/3/28 16:57:00

Post By：2023/2/20 15:39:00 [只看该作者]

Select Case e.DataCol.Name

Case "第一列"

For i As Integer = 0 To 1

Dim d As Double = ((e.DataRow("第一列") + Rand.NextDouble / 11) + (e.DataRow("第一列") - Rand.NextDouble / 11)) / 2

e.DataRow("第二列") = d

End Select

下一主题 >> << 上一主题

主题：随机数的问题