Rnd 函数
返回大于 0 且小于 1 的随机数。
语法：
Rnd [(Expression)]
返回值：
双精度型
参数：
表达式：没有任何作用，如果提供则会被忽略。
Rnd 函数会返回0到1之间的十进制小数，包含0但不包含1，且符合均匀分布。它使用 Mersenne Twister 19937 随机数生成器。要生成给定区间的随机数，请使用类似以下例子中的公式。如果您要生成一组可预期的数字序列，那么可以事先使用包含特定seed的Randomize语句。
示例：
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