在VB中,表示0~1之间1000个随机数的语句是什么啊?

发布网友发布时间：2024-10-23 22:34

共2个回答

热心网友时间：2024-10-24 08:37

最好加上Randomize语句来初始化Rnd的种子
Private Sub Command1_Click()
Dim rand!(1 To 100)
Text1.Text = ""
For i = 1 To 100
Randomize (Time())
rand(i) = Rnd()
Text1.Text = Text1.Text & rand(i) & Chr(32)
Next i
End Sub

热心网友时间：2024-10-24 08:43

Dim a!(1 To 1000)
For i = 1 To 1000
a(i) = Rnd(1)
Print a(i)
Next i

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com