こっそり聞きたい……７以下とは

えー、>>211-214はVB6.0もしくはVBAのプログラムなわけですが、重大なバグが見つかりました。
最後の組み合わせを計算するプロシージャにおいて、
nだけじゃなくkも値渡しを指定する必要があります。つまり、

×　Private Function Comb(ByVal n As Long, k As Long) As Double
○　Private Function Comb(ByVal n As Long, ByVal k As Long) As Double

です。
（あと、これは計算結果に影響しませんが、Calc関数の最後、"Calc+"は不要でした）
このプログラムを使って重要な計算をされた方だ居られましたら
（居ないとは思いますが、って言うかちょっと動かせばすぐ気付く(爆)）すみません。
もー今度こそバッチリですから！(ｺｿｰﾘ