【VBA】返回指定范围内的随机整数

返回指定范围内的随机整数：

Sub main()
   Randomize
   Debug.Print 随机整数(1, 2)
End Sub
Function 随机整数(a As Integer, b As Integer) As Integer
   随机整数 = Int((b * Rnd) + a)
End Function

Randomize语句（后面没有number）可以让每次执行程序产生不同的序列，因为不带number的语句是用计时器当前值做随机序列的种子。