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

　では最後に、“求職者ｍ人、求人社ｎ社という条件下で、各求職者がランダムにａ社に応募し、各求人社がそこからランダムにｂ人採用する、という単純モデルが1回実現して生じる「応募先の全てが不採用となる人の割合」（の期待値？）は、求人倍率ｒ＝ｎｂ／ｍとおけば、（１−ｒ／ａ）＾ａとなる”という現象を確認するためのエクセルによるマクロ実験用プログラムをいちおう、ご紹介しておきます。
　そんなに自信はないです＞＜
　ですので、どこか不備を見つけられたかたは、ご教授下さいましたら幸いですo(^-^)o


Sub jikken()

　　Randomize

　　'変数宣言
　　Dim mtrx(1 To 200,1 To 100) As Integer
　　Dim get_ck(1 To 200) As Integer
　　Dim a_set(1 To 10) As Integer
　　Dim b_set(1 To 10) As Integer

　　Dim t_lim As Double
　　Dim m As Double: Dim a As Double
　　Dim n As Double: Dim b As Double

　　't_lim：試行回数
　　'm：求職者数（200以下で）、a：各求職者の応募数（10以下で）
　　'n：求人社数（100以下で）、b：各求人社の採用枠数（10以下で）
　　t_lim = InputBox("試行回数を入力して下さい。", "", 1000)
　　m = InputBox("求職者数を入力して下さい（200以下で）。", "", 15)
　　a = InputBox("各求職者の応募数を入力して下さい（10以下で）。", "", 2)
　　n = InputBox("求人社数を入力して下さい（100以下で）。", "", 5)
　　b = InputBox("各求人社の採用枠数を入力して下さい（10以下で）。", "", 3)


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


［【7-2】に続く］