就職内定率についての数学的試論【3-1】

　ここで一応、私が【2】の具体例に対する考えの妥当性を、マクロ実験で確認した際に用いた原始的なプログラム例をご紹介致しますので、どこか不備がございましたら、どうぞご教授くださいo(^-^)o


Sub jikken()

　　'無作為実験のお約束の呪文
　　Randomize

　　'以下の試行を、100回やる
　　For t = 1 To 100


　　'縦15行（各求職者に対応）、横5列（各求人社に対応）の行列をエクセル表上に用意
　　For i = 1 To 15
　　　　For j = 1 To 5
　　　　　　Cells(i, j) = 0
　　　　Next
　　Next
　　'その右隣に、各求職者が採用を受けた数を記入するための列を別に用意
　　For i = 1 To 15
　　　　Cells(i, 7) = 0
　　Next

　　'各求職者が、
　　For i = 1 To 15
　　　　'応募先をランダムに2社選ぶ
Retry1:
　　　　a1 = Int(Rnd * 5 + 1)
　　　　a2 = Int(Rnd * 5 + 1)
　　　　'重複したらやり直し
　　　　If a1 = a2 Then GoTo Retry1

　　　　'選ばれた応募先を、エクセル表上に「1」としてチェック
　　　　Cells(i, a1) = 1
　　　　Cells(i, a2) = 1
　　Next

［【3-2】に続く］