Genrand64Int63 Genrand64Int64 Genrand64Real1 Genrand64Real2 Genrand64Real3 GenrandInt31 GenrandInt32 GenrandReal1 GenrandReal2 GenrandReal3 GenrandRes53 InitByArray InitGenrand InitGenrand64

Genrand64Int64() Function Genrand64Int64 ( ) 一様乱数 (符号なし64ビット整数乱数) (64ビット版メルセンヌ・ツイスター) 目的 64ビット版メルセンヌ・ツイスター(MT19937-64)により一様分布する疑似乱数を生成する. 戻り値 LongLong 符号なし64ビット整数の疑似乱数 (VBAでは符号付き64ビット整数(LongLong型)として扱われる). 注 乱数生成の前にInitGenrand64()またはInitByArray64()により初期化しておかなければならない. 初期化を行わないで呼び出した場合, 5489をシードとして自動的に初期化される. 注 本ルーチンは32ビット版Excelでは使用できない. 出典 Mersenne Twister Home Page 使用例 64ビット整数の乱数を10個生成する. ここではシード値として5489を使用して初期化する. Sub Ex_Genrand64Int64() Dim Seed As LongLong, I As Long Seed = 5489 Call InitGenrand64(Seed) For I = 1 To 10 Debug.Print Genrand64Int64() Next End Sub 実行結果 -3932459287431434586 4620546740167642908 -5337173792191653896 -983805426561117294 355488278567739596 7469126240319926998 4635995468481642529 418970542659199878 -8842573084457035060 6358044926049913402