Question

Randomize（种子）函数的范围是什么？编写此代码的方式是，当从myfunction调用generate时，随机数生成器的值为20？ randomize函数是否会更改全局变量或某个局部变量？

感谢您的帮助！

Function myfunction()
    Call seed()
    Call generate()
End Function

Function seed()
    Randomize (20)
End Function

Function generate()
    Dim X As Integer
    X = CInt(100*Rnd)
End Function

Answer 1

如果使用显式值调用Randomize或者根本不调用Randomize，则每次启动程序时都会得到相同的序列。尝试：

Dim i As Long
Dim sText As String

sText = ""
For i = 1 To 10
  sText = sText & CInt(100 * Rnd(10)) & vbCrLf
Next i

MsgBox sText

但当然有时它可能是想要的结果......

VB6随机数生成种子范围

1 个答案: