乱数の生成 : Access




BackHome BackTipsへ Backメニューへ

[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



BackHome BackTipsへ Backメニューへ

Copyright(C) FeedSoft