Rnd 函数

返回大于 0 且小于 1 的随机数。

语法:


Rnd [(Expression)]

返回值:

Double

参数:

「表达式」: 没有任何作用，如果提供则会被忽略。

「Rnd」函数会返回0到1之间的十进制小数，包含0但不包含1，且符合均匀分布。它使用 Mersenne Twister 19937 随机数生成器。要生成给定区间的随机数，请使用类似以下例子中的公式。如果您要生成一组可预期的数字序列，那么可以事先使用包含特定seed的「Randomize」语句。

错误代码:

5 无效的过程调用

示例:


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

Randomize 语句