IBM Lotus Symphony
|
返回一个 0 到 1 之间的随机数。
Rnd [(Expression) ]
双倍行距
Expression:用于定义如何生成随机数的任何数字表达式。
小于 0:始终返回相同的随机数。
大于 0:返回序列中的下一个随机数。
等于 0:返回上次生成的随机数。
不指定:返回序列中的下一个随机数。
对于每一次连续的调用,如果传送相同的数到 Rnd 函数,那么生成的随机数序列也相同。这是因为 Expression 参数被用作下一个数的起始点。
Rnd 函数仅返回大于 0 且小于 1 的值。要在给定范围内生成随机整数,请使用以下示例中的公式:
Sub ExampleRandomSelect
Dim iVar As Integer
iVar = Int((15 * Rnd) -2)
Select Case iVar
Case 1 To 5
Print "Number from 1 to 5"
Case 6, 7, 8
Print "Number from 6 to 8"
Case Is > 8 And iVar < 11
Print "Greater than 8"
Case Else
Print "Outside range 1 to 10"
End Select
end sub