用于 Arena 的 vba 中的 Randomstream答案

【问题标题】：Randomstream in vba for Arena用于 Arena 的 vba 中的 Randomstream
【发布时间】：2020-12-09 05:41:38
【问题描述】：

我一直在 Arena 中练习我的知识，主要是在 VBA 模块中。我的目的是从 VBA 中的均匀分布中获取随机数据。我一直在用代码进行测试：

Dim s As SIMAN
Set s = ThisDocument.Model.SIMAN
s.SampleUniform (5,10, randomStream As Long)

值5和10是最小值和最大值，但是第三个参数我一直没能找到VBA接受的值，它应该是一个随机值，作为生成uniform的种子价值。我曾尝试使用Rnd 函数，但它会产生错误。

【问题讨论】：

【解决方案1】：

我一直在寻找示例，发现其中的代码如下所示：

Dim s As SIMAN
Set s = ThisDocument.Model.SIMAN
Int(s.SampleUniform(5, 10, 10))

我仍然不明白为什么 randomstream 的值为 10，但表达式工作正常。

【讨论】：