返回指定范围内的随机整数:
Sub main()
Debug.Print 随机整数 (1, 2)
End Sub
Function 随机整数 (a As Integer, b As Integer) As Integer
随机整数 = Int((b * Rnd) + a)
End Function
来源: http://www.bubuko.com/infodetail-3337698.html