vba - 用于 Arena 的 vba 中的 Randomstream

Question

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

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

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

Answer 1

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

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

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