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

　　'各求人社が、
　　For i = 1 To n
　　　　'応募数を確認し、
　　　　ap_ck = 0
　　　　For j = 1 To m
　　　　　　If mtrx(j, i) = 1 Then ap_ck = ap_ck + 1
　　　　Next
　　　　'応募数が採用枠以下なら、
　　　　If ap_ck ＜= b Then
　　　　　　'応募者全員を採用
　　　　　　For j = 1 To m
　　　　　　　　If mtrx(j, i) = 1 Then
　　　　　　　　　　'各求職者の採用数を示す列にカウント
　　　　　　　　　　get_ck(j) = get_ck(j) + 1

　　　　　　　　　　'選ばれた応募者を、行列上に「2」としてチェック
　　　　　　　　　　mtrx(j, i) = 2
　　　　　　　　End If
　　　　　　Next
　　　　'そうでないなら、
　　　　Else
　　　　　　'そこからランダムにb人選ぶ
Retry2:
　　　　　　For ii = 1 To b
　　　　　　　　b_set(ii) = Int(Rnd * ap_ck + 1)
　　　　　　Next
　　　　　　'重複したらやり直し
　　　　　　For ii = 1 To b
　　　　　　　　For iii = 1 To b

　　　　　　　　　　If ii ＜＞ iii And b_set(ii) = b_set(iii) Then
　　　　　　　　　　　　GoTo Retry2
　　　　　　　　　　End If
　　　　　　　　Next
　　　　　　Next

［【7-4】に続く］