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

　　'各求人社が、
　　For i = 1 To 5
　　　　'応募数を確認し、
　　　　b = 0
　　　　For j = 1 To 15
　　　　　　If Cells(j, i) = 1 Then b = b + 1
　　　　Next

　　　　'応募数が採用枠以下なら、
　　　　If b ＜= 3 Then
　　　　　　'応募者全員を採用
　　　　　　For j = 1 To 15
　　　　　　　　If Cells(j, i) = 1 Then
　　　　　　　　　　'各求職者の採用数を示す列にカウント
　　　　　　　　　　Cells(j, 7) = Cells(j, 7) + 1

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

［【3-3】に続く］