access隨機生成100個0到100的整數(shù)

在前面的內(nèi)容中《VBA 隨機產(chǎn)生4位或6位數(shù)字用作驗證碼》，我們知道可以使用以下公式生成某個范圍內(nèi)的隨機整數(shù)

Int((upperbound - lowerbound + 1) * Rnd + lowerbound)

這里，upperbound是隨機數(shù)范圍的上限，而lowerbound則是隨機數(shù)范圍的下限。

如何隨機生成100個0-100之內(nèi)的正整數(shù)呢，如下圖

詳細代碼，通過for循環(huán)，換行逐個錄入。

Private Sub Command15_Click()
    Dim intsum As Integer
    Me.Text1 = Null
    For i = 1 To 100
        intsum = Int(Rnd() * (100 - 0 + 1) + 0)
        Me.Text1 = intsum & Chr(13) & Chr(10) & Me.Text1
  
    Next i
End Sub