问个简单问题：如何取一个随机小数

[cycppl]

本人想编一个程序，现在碰到取随机数问题，以前用过，现在忘了，希望大家给予帮助！

[zhangzzg]

rnd

[19790219]

Private Sub Command1_Click()
Dim i As Variant
i = Rnd()
MsgBox i
End Sub

[tanyx]

要先使用 randomize 才能取到真正的随机数。
然后在使用RND函数。

[cycppl]

怎样使用randomize

[踏平扶桑]

Private Sub Command1_Click()
Dim i As Variant
randomize i
i = Rnd()
MsgBox i
End Sub