指定した範囲のランダムな数値を取得する
　
　目的

Visual Basic の乱数ジェネレータを使ってランダムな数値を取得する

　ポイント

Rnd 関数は 0 以上、1 未満の範囲の値を返します。 Randomize ステートメントを使用して Rnd 関数のシード値（初期値）を設定する必要があります。

　
　サンプルコード


Option Explicit

Private Sub cmdRandom_Click()
' 指定した範囲のランダムな数値を取得する

    Randomize ' Rnd 関数 で乱数を発生させるための処理
    
    Dim lngUpper As Long, lngLower As Long
    Dim lngX As Long
    
    lngLower = 1 ' 下限を指定する
    lngUpper = 2 ' 上限を指定する
    
    ' 指定した範囲の乱数を発生させる
    lngX = CLng(((lngUpper - lngLower) * Rnd) + lngLower)

    MsgBox CStr(lngX) ' 乱数を表示する
    
End Sub

ソースのダウンロードはありません。