乱数の生成 ： Access

［Accessフォーム実行画面］

■ Access VBA 実行コード

Option Compare Database
Option Explicit

'乱数の生成
Private Sub AcRandomize()
    Dim i As Integer
    Me!テキスト1 = Null
    Me!テキスト2 = Null
    Me!テキスト3 = Null
    Me!テキスト4 = Null
    '乱数の初期化
    Randomize
        For i = 1 To 10
        '裏(0)か表(1)かの乱数
        Me!テキスト1 = Me!テキスト1 & Int(Rnd * 2) & vbCrLf
        'サイコロ(1～6)の乱数
        Me!テキスト2 = Me!テキスト2 & Int((Rnd * 6) + 1) & vbCrLf
        '1～10の乱数
        Me!テキスト3 = Me!テキスト3 & Int((Rnd * 10) + 1) & vbCrLf
        '1～100の乱数
        Me!テキスト4 = Me!テキスト4 & Int((Rnd * 100) + 1) & vbCrLf
    Next
End Sub

'コマンドボタン　クリックイベント
Private Sub コマンド0_Click()
    AcRandomize
End Sub