GenrandInt31 GenrandInt31_sub GenrandInt32 GenrandInt32_sub GenrandRes53 GenrandRes53_sub InitGenrand

GenrandInt31() Function GenrandInt31 ( ) 一様乱数 (符号なし 31 ビット整数乱数) (メルセンヌ・ツイスター) 目的 メルセンヌ・ツイスター (MT19937) により一様分布する疑似乱数を生成する. 戻り値 Long 符号なし 31 ビット整数の疑似乱数. 注 乱数生成の前に InitGenrand() または InitByArray() により初期化しておかなければならない. 初期化を行わないで呼び出した場合, 5489 をシードとして自動的に初期化される. 出典 Mersenne Twister Home Page 使用例 符号なし 31 ビット整数の乱数を 10 個生成する. ここではシード値として 13 を使用して初期化する. Sub Ex_GenrandInt31() Dim Seed As Long, I As Long Seed = 13 Call InitGenrand(Seed) For I = 1 To 10 Debug.Print GenrandInt31() Next End Sub 実行結果 1670103209 1304255576 510115877 1845620488 1770124659 1917665713 2073930618 384729164 2088644982 1629046749