VB怎么随机生成0-1的小数

VB的Rnd函数，其作用就是产生(0,1)之间的随机数，还不是[0，1]。即：0 < Rnd < 1 根据上式，结合VB的Int（）等函数，可以产生你所需要的任意范围内的随机数。例如1：根据 0 < Rnd < 1 那么就有： 0 < Rnd *10 < 10 产生(0,10)之间的随机数，注意这是实数 例如2： 0 <= Int（Rnd *10）< 10 产生[0,10)之间的随机数，注意这是正整数 例如3： 1 <= Int（Rnd *10）+ 1 <= 10 产生[1,10]之间的随机数，注意这是正整数 等等

VB中使用Rnd函数可以得到[0,1)区间内的随机数。为了使程序每次运行所得到的随机数序列不一样，可以在使用这个函数之前先使用Randomize语句。

试举一例，细节自己改：
Private Sub Form_Load()
HScroll1.Min = 0
HScroll1.Max = 255
HScroll1.LargeChange = 10
HScroll1.SmallChange = 1
Timer1.Enabled = False
Timer1.Interval = 100
Timer1.Enabled = True
End Sub
Private Sub HScroll1_Change()
Label1.BackColor = RGB(HScroll1.Value, Int(Rnd * 256), Int(Rnd * 256))
End Sub
Private Sub Timer1_Timer()
If HScroll1.Value = 255 Then
HScroll1.Value = 0
Else
HScroll1.Value = HScroll1.Value + 1
End If
End Sub