VB6乱数 (ランダムな数) をバイト型の配列で取得する

スポンサーリンク

VB6 では、NextBytes() のようなメソッドはありませんが、以下のように、自分でメソッドを自作すれば可能です。Byte 型の配列に拘る意味はないですが、.NET Framework に合わせてみました。

単純に乱数を発生させる場合は、乱数 (ランダムな数) を取得する をご覧ください。

サンプルコード

以下にサンプルコードを示します。

VB6.0 以前
' -------------------------------------------------------------------------------
'       指定した数の乱数を格納したバイト型の配列を返します。
'
' @Param    iNumber     格納する乱数の数。
' @Return               指定した数の乱数を格納したバイト型の配列。
' -------------------------------------------------------------------------------
Private Function GetRandomArrayByte(ByVal iNumber As Integer) As Byte()
    Dim btReturns() As Byte

    ' 指定した要素数まで配列を再定義
    ReDim btReturns(iNumber)

    Dim i As Integer

    ' 指定した要素数の乱数を取得する
    For i = 0 To iNumber
        btReturns(i) = CByte(Math.Rnd() * 255)
    Next i

    ' バイト型の配列を返す
    GetRandomArrayByte = btReturns()
End Function

使用例は以下のようになります。

VB6.0 以前
    ' バイト型の配列を宣言する
    Dim btBytes() As Byte

    ' バイト型の配列の乱数を取得する
    btBytes = GetRandomBytes(5)

    Dim i As Integer

    ' 取得した乱数をすべて表示する
    For i = 0 To UBound(btBytes())
        Call MsgBox(CStr(btBytes(i)))
    Next i

関連するリファレンス

準備中です。

スポンサーリンク