access隨機生成100箇0到100的整數

在前麵的內容中《VBA 隨機産生4位或6位數字用作驗證碼》，我們知道可以使用以下公式生成某箇範圍內的隨機整數

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

這裡，upperbound是隨機數範圍的上限，而lowerbound則是隨機數範圍的下限。

如何隨機生成100箇0-100之內的正整數呢，如下圖

詳細代碼，通過for循環，換行逐箇録入。

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