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

Question

如题所述

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 Sub追问

怎么生成在文本框里呢？

追答

所有数字都生成在文本框？

追问

嗯，生成的随机数都要在文本框。

追答

Private Sub Command1_Click()
Dim a(10) As Single
dim temp as string
temp=""
For i = 1 To 10
a(i) = Rnd * 31 + 10
temp=temp & " " & Format(a(i), "0.00")
Next
Text1.Text=temp
End Sub