GenrandInt31 GenrandInt32 GenrandRes53 InitGenrand

GenrandInt32() Function GenrandInt32 ( ) 一様乱数 (符号なし32ビット整数乱数) (メルセンヌ・ツイスター) 目的 メルセンヌ・ツイスター(MT19937)により一様分布する疑似乱数を生成する. 戻り値 Long 符号なし32ビット整数の疑似乱数 (VBAでは符号付き32ビット整数(Long型)として扱われる). 注 乱数生成の前にInitGenrand()またはInitByArray()により初期化しておかなければならない. 初期化を行わないで呼び出した場合, 5489をシードとして自動的に初期化される. 出典 Mersenne Twister Home Page 使用例 符号なし32ビット整数の乱数を10個生成する. ここではシード値として13を使用して初期化する. Sub Ex_GenrandInt32() Dim Seed As Long, I As Long Seed = 13 Call InitGenrand(Seed) For I = 1 To 10 Debug.Print GenrandInt32() Next End Sub 実行結果 -954760878 -1686456144 1020231754 -603726320 -754717978 -459635870 -147106060 769458329 -117677332 -1036873798