office交流網--QQ交流群號

Access培訓群:792054000         Excel免費交流群群:686050929          Outlook交流群:221378704    

Word交流群:218156588             PPT交流群:324131555

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

2018-06-09 16:38:00
tmtony8
原創
3079

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

    分享
    北京十一选五基本走势