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

　　'縦m行（各求職者に対応）、横n列（各求人社に対応）の行列をリセット
　　For i = 1 To m
　　　　For j = 1 To n
　　　　　　mtrx(i, j) = 0
　　　　Next
　　Next

　　'各求職者が採用を受けた数を記入するための列をリセット
　　For i = 1 To m
　　　　get_ck(i) = 0
　　Next
　　'a_set、b_setもリセット
　　For i = 1 To 10
　　　　a_set(i) = 0
　　　　b_set(i) = 0
　　Next

　　'各求職者が、
　　For i = 1 To m
　　　　'応募先をランダムにa社選ぶ
Retry1:
　　　　For ii = 1 To a
　　　　　　a_set(ii) = Int(Rnd * n + 1)
　　　　Next
　　　　'重複したらやり直し
　　　　For ii = 1 To a
　　　　　　For iii = 1 To a
　　　　　　　　If ii ＜＞ iii And a_set(ii) = a_set(iii) Then
　　　　　　　　　　GoTo Retry1
　　　　　　　　End If
　　　　　　Next
　　　　Next

　　　　'選ばれた応募先を、行列上に「1」としてチェック
　　　　For ii = 1 To a
　　　　　　mtrx(i, a_set(ii)) = 1
　　　　Next
　　Next

［【7-3】に続く］