Function getRandom(n)
Dim MyValue, str
Randomize '初始化随机数生成器。
str=Cint(trim(n))
MyValue = Int(str * Rnd) ' 产生 0 到 n-1 之间的随机数。
getRandom=Cint(trim(MyValue))
End Function
Dim MyValue, str
Randomize '初始化随机数生成器。
str=Cint(trim(n))
MyValue = Int(str * Rnd) ' 产生 0 到 n-1 之间的随机数。
getRandom=Cint(trim(MyValue))
End Function