> > ﾌﾟﾛｸﾞﾗﾑの得意な貴殿らに聞きたいんだけど(;´Д`)
> > 1,5,3,2,8,4,9という数字が与えられて合計9になる組み合わせを
> > 探すﾌﾟﾛｸﾞﾗﾑをVBAで書くの難しい？
> > 答えは(1,5,3)(1,8)(5,4)(3,2,4)(1,8)(9)の5通りなんだけど
> 時間かけていいなら総当りするだけなんで楽勝(;´Д`)

10 if int(rnd(0)*9)+1 = int(rnd(0)*9)+1 then print "ﾐﾂｹﾀｿﾞ"
20 goto 10

参考：2009/05/27(水)20時50分58秒