用vb 生成10个0到1的随机数

试试以下代码

'需要控件：command1
Private Sub Command1_Click()
Me.Cls
For i = 1 To 10
s = Format(Rnd(), "0.00")
If s >= 1# Then
s = s - Int(s)
End If
Print s
Next i
End Sub

Private Sub Command1_Click()
Dim a(10)
Randomize
For i = 1 To 10
a(i) = Rnd
Print a(i)
Next
End Sub

Rnd 函数返回小于 1 但大于或等于 0 的值

上面2位的答案好象出不来1 这个数呀.