(*´д`*)ウッ… VB初心者質問スレ Part15

[0021 前スレ999 NG NG]

>16
n = 100
D = int(rnd * (n / 2 - 1)) + 1
C = int(rnd * ( n / 2 - D )) + 1
B = iif((D + C) =< (n + 2)/ 3, int(rnd * (int((n - (D + C))/ 2))) + 1, int(rnd * (n - 2 * (D + C) + 1)) + 1)
A = n - D - C - B
これでどう？
心配なので50000回ぐらい試してみたけど、一度も例外なしだった。