Question

如何在VB6.0中生成10个20到50的随机数（保留两位小数）

Answer 1

Private Sub Command1_Click()

Dim a(10) As Single

For i = 1 To 10

a(i) = Rnd * 31 + 10

Print Format(a(i),"0.00")

Next

End Su