在0,1,2,3,4,5,6,7,8,9十个数中,任取三个不同数字,求组成的三位数中是3的倍数

Question

如题所述

Answer 1

<p>228个分别用10个数除3得余数,余数为0有(0,3,6,9)余数为1有(1,4,7)余数为2有(2,5,8)。则余数为0的可选出0、1、3个。下面就排列组合了:</p> <p>当选3个:有3*3*2=18种;</p> <p>当选0个时,余数为1或2必须的是选3个情况,有:A(3,3)*2=12种,</p> <p>当选1个时,比较复杂,剩下的必须选余数为1,2各一个,还要考虑选到0不能为百位:则</p> <p>当选到0是,有3*3*2*2=36种,</p> <p>当选不到0时,有3*3*3*A(3,3)=162种</p> <p>故,共有:228种</p> <p>用VB编程很容易求出来,也是228,具体语句如下</p> <p>PrivateSubCommand1_Click()</p> <p>n=0</p> <p>Fori=1To9</p> <p>Forj=0To9</p> <p>Fork=0To9</p> <p>If(100*i+10*j+k)Mod3=0Andi<>jAndj<>kAndi<>kThen</p> <p>n=n+1</p> <p>EndIf</p> <p>Next</p> <p>Next</p> <p>Next</p> <p>Text1.Text=n</p> <p>EndSub</p> <p></p>