vb统计所有四位数中四位数字之和为32的数

假设4个盒子,每个盒子装9个球代表4位数9999,和为36.那么拿掉2个球就是剩下就是和为34的情况.但是取球不分先后次序.那么可以是8899,8989,8998,9889,9988,9898,999

Dimi,tjAsIntegertj=0Fori=100To10000IfiMod7=0AndiMod3=0Thentj=tj+1NextMsgBox"个数为"&tj

PrivateSubCommand1_Click()a=cint(inputbox("输入一个四位数"))ifa9999thenmsgboxa&"不是四位数!":exitsubfori=1to4b=b

PrivateSubForm_Click()DimiAsIntegerDimaa,bbAsIntegerFori=1000To9999aa=iMod100bb=Int(i/100)Ifi=(aa+bb

PrivateSubCommand1_Click()DimIAsIntegerForI=1000To9999If(IMod10)^2+(I\10Mod10)^2+(I\100Mod10)^2+(I\1

第一位不能为0,所以第一位只能在1-9这9个数中选择一个,A(9,1)剩下后面3位数字,还有9个数字（1-9中剩余8个加上0）可以选择,A（9,3）一共有A(9,1)*A(9,3)=9*9*8*7=4

代码如下：PrivateSubCommand1_Click()   DimaAsInteger,bAsInteger,cAsInteger,dAsInteger 

更普遍的是用递归:#includeusingnamespacestd;voidmake(intk);inta[4],b[4];intt;intmain(){inti;for(i=0;i

(a+b+c+d)*1111

（1）不同的四位数数字有4×4×3×2=96（个）（2）千位上1、2、3、4各有4×3×2=24（个）百、十、个位上1、2、3、4各有3×3×2=18（个）所有四位数的和是（1+2+3+4）×24×1

是说要列出来么?1234,1243,1324,1342,1423,14322134,2143,2314,2341,2413,24313124,3142,3214,3241,3412,34214123,

789079807089709878097908807980978790870989078970907890879780970898079870

vari,j,k,x,y,z,n,l:longint;beginfori:=1to4doforj:=1to4dofork:=1to4doforl:=1to4doif(ij)and(ik)and(il)

#includeintmain(){inta1,a2,a3,a4;inti;intsum=0;for(i=1001;i

m=0fori=1000to9999a=str(i,4)ifsubstr(a,2,1)>right(a,1)m=m+1endifendfo

DimxAsIntegerDima,b,c,dx=1234a=x\1000Mod10b=x\100Mod10c=x\10Mod10d=xMod10Printa,b,c,d与楼上相比,允许原始数字大于或

x = 4321d = x \ 1000 '千位c = x \ 100 

编译正确#includevoidmain(){inti[5],n=0;for(i[0]=1;i[0]

{如果恰好只有两个数字相同是1的话,1所在的位置有3*4/2种可能从0-9在乘上10.总数减去1,(因为0不能在首位,那样的话是三位数了.)再乘上100（剩下两位的组合就是10*10种）}减去{三位数

有9的4次方种,我给你一个一个打?