本文共 3485 字,大约阅读时间需要 11 分钟。
如果 number 为 | Rnd 生成 |
小于零 | 每次都相同的数字,并将 number 用作种子。 |
大于零 | 序列中的下一个随机数。 |
等于零 | 最近生成的数字。 |
未提供 | 序列中的下一个随机数。 |
Private Sub Command1_Click() lowerbound = 10 upperbound = 20 Randomize For i = 1 To 10 random = Int((upperbound - lowerbound + 1) * Rnd + lowerbound) Debug.Print random; Next Debug.Print End Sub |
Private Sub Command2_Click() Dim random(10) As Integer lowerbound = 101 upperbound = 200 Randomize For i = 1 To 10 Do r = Int((upperbound - lowerbound + 1) * Rnd + lowerbound) yes = 0 For j = 1 To i - 1 If r = random(j) Then yes = 1: Exit For Next Loop While yes = 1 random(i) = r Debug.Print r; Next Debug.Print End Sub |
Private Sub Command3_Click() Dim a(10), b(100) As Integer lowerbound = 101 upperbound = 200 For i = 1 To upperbound - lowerbound + 1 b(i) = lowerbound + i - 1 Next Randomize length = upperbound - lowerbound + 1 For i = 1 To 10 subscript = Int(length * Rnd + 1) r = b(subscript) b(script) = b(length) length = length - i a(i) = r Debug.Print a(i); Next Debug.Print End Sub |
转载地址:http://trsti.baihongyu.com/