竞技场 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，但表达式工作正常。

Randomstream in vba for Arena