有关随机数的问题？

Question

我想随机产生一个0-255的数，请问应如何编程？

Answer 1

Private Sub Command1_Click()
    Randomize
    
    MsgBox Int(Rnd * 255)
End Sub

Answer 2

为了生成某个范围内的随机整数，可使用以下公式：Int((upperbound - lowerbound + 1) * Rnd + lowerbound)这里，upperbound 是随机数范围的上限，而 lowerbound 则是随机数范围的下限。

Answer 3

用Time做种子可以得到相对更随机一点的随机数

Answer 4

Randomize
Debug.Print 255*Rnd

Answer 5

Randomize(now())
Debug.Print 255*Rnd

Answer 6

Rnd 函数返回小于 1 但大于或等于 0 的值。
所以应该是   int（Rnd*256）

Answer 7

Public Function RandomNumber(LowerBound, UpperBound)
On Error Resume Next
Randomize
RandomNumber = Int((UpperBound - LowerBound + 1) * Rnd + LowerBound)
End Function'***********************************************************
'*希望能够对你有所帮助！
'***********************************************************
'*欢迎访问我的网站，给我的作品提宝贵意见！希望和大家交朋友！
http://www.softboyzhou.com
'*下载EasyDialog:
http://www.softboyzhou.com/download/EasyDialog.asp

Answer 8

Randomize(Time)
Debug.Print 255*Rnd

Answer 9

Randomize(Time)
Debug.Print int(Rnd*256)