Randomize '初始化种子值
公式: int((上限-下限+1)*rnd+下限)
你只要把上限和下限代到公式里,就得出随机数了。如得到1-10之类的数(添加text控件):
Randomize '初始随机种子x可以是80吗
我想规定为20到50的话怎么写
追答Private Sub Command1_Click()
Dim i As Integer
Dim getRnd As Long
For i = 1 To 100
getRnd = Rnd * (50 - 20) + 20
Debug.Print getRnd
Next
End Sub
这个就是设定 20-50之间,Rnd为0到1之间。希望能帮到你。
下面d开头的那句是什么意思
追答Debug.Print getRnd 这个吗?是控制台打印的
本回答被提问者采纳