1234组成三位数vb-搜答案-拍题作业网

PrivateSubCommand1_Click()DimaAsIntegerFora=101To999Step1Ifisnum(a)=TrueThenPrinta;NextEndSubPrivate

这一类问题可以采用枚举的方法来实现：枚举算法的特点8个字,一一列举,逐个检验：往往外面用循环来实现一一列举,在循环中嵌套选择,来实现逐个检验；dimiasintegerfori=100To999选择结

vb

解题思路：历史知识的积累解题过程：<三国演义>最终答案：略

用123456789这九个数字组成三个三位数,使第二个数是第一个数的两倍,第三个是第一个数的3倍.(每个数字只能用一次)192*2=384,192*3=576219*2=438,219*3=65727

不重复是:P33=3*2*1=6个569,596,659,695,965,956允许重复就复杂多了.用次方解决也挺累的,因为还要排除很多,数字相同的重复情况.这里用穷举法比较合适.不重复有6个,再加上

共计24个054045450540504405549459954945594495049094940904409490059095950905509590

不好意审题有误删

123、132、231、321、213、312共6个

组成三位数的可能性有4*4*4=64种不重复的数字共有a(4,3)=4*3*2=24

PrivateSubCommand1_Click()DimA%,B%,C%,D%,E%'定义5个IntegerForA=0To9'让A当百位上的数从0到9循环ForB=0To9'让B当十位上的数从0到

根据排列公式得：P上标3下标5=5*4*3=60一共有60种排列方法.包含0的排列方法36种：01210212001310313001410414002120121002320323002420424

不是已经有人问过了吗?这里：根据3512174的顺序自己敲一下代码就是了.

PrivateSubCommand1_Click()DimtmpStrAsString,tmpStr1AsStringDimmpStr2AsString,tmpStr3AsStringDimaAsIn

PrivateSubCommand1_Click()'没考虑两数相加等于10的情况Dims1AsString,s2AsStrings1=Trim(Text1.Text)s2=Trim(Text2.Te

PrivateSubForm_Click()DimiAsLong'百位DimjAsLong'十位DimkAsLong'个位DimsAsLong'用来保存生成的三位数DimmAsLong'统计能被6整除

用穷举法穷举即可,同学要努力.Private Sub Command1_Click()Dim a As Integer, b As

567-129=438567-139=428567-429=138567-439=128

PrivateSubCommand1_Click()Dimnum,iAsLongDima,b,cAsIntegerFornum=100To999a=numMod10b=(num\10)Mod10c=n

#includeintmain(){intw;for(inti=1;i

PrivateSubForm_Click()Dima(3),i,j,k,xAsIntegerx=Val(InputBox("x="))Ifx1000ThenExitSuba(1)=x\100'取百位上