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

2018-06-09 16:38:00
黃善超
原創
139

在前麵的內容中《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

    分享