vb求出所有个位数字的立方和等于1099

根据你的题意,我用VB编写了如下代码,你看是不是你所需要的：PrivateSubCommand1_Click()Dimi,j,k,l,nFori=100To999'所有的三位数j=i\100'百位上的

privatesubform_load()dimi,a,b,casintegerfori=100to999a=i\100b=(i-a*100)\10c=i-a*100-b*10ifa+b+c=10th

六年级,应该是开方、二元方程都没学过吧?只有采用判断的方法了.和的立方=数的平方,至少要满足的条件为两边的个位数字一定相等.分类讨论：个位数字=1,和的个位=1没有满足条件的数个位数字=2,和的个位=

PrivateSubCommand1_Click()j=0Fori=100To999IfInStr(Sqr(i),".")=0ThenIfMid(i,1,1)=Mid(i,2,1)OrMid(i,1,

publicclassTest{publicstaticvoidmain(String[]args){for(inti=1;ifor(intj=0;jfor(intk=0;kif(i*i*i+j*j*

OptionExplicitPrivateSubCommand1_Click()Dimi%,j%,k%Fori=1To9Forj=0To9Fork=0To9Ifi*i*i+j*j*j+k*k*k=i*

貌似你的if后面多出了一个分号再问：我擦，还真是这个分号的问题！晕死，没发现，关键是为何多一个分号，答案就变成那样了呢？如何分析啊？再答：你多了个分号这个条件判断不就没用了嘛

#includevoidmain(){inti,j,k;for(i=1;i

16、25、34、43、52、61

#include#includevoidmain(){intn1,n2,n3,n;printf("所得的数为：\n");for(n=100;n

#include#includevoidmain(){intn1,n2,n3,n;printf("所得的数为：\n");for(n=100;n

#include<math.h>voidmain(){intn1,n2,n3,n;printf("所得的数为：\n");for(n=100;n<1000;n++){n1=n%10;n

如果用程序就很简单：一下为Matlab程序x=[];fori=1:999if(i==fix(i/100)^3+fix(mod(i,100)/10)^3+mod(i,10)^3)x=[x;i];ende

publicclassFun{publicstaticvoidmain(String[]args){for(inti=1;i

所有满足此规律的四位数之和:1078289所有满足此规律的四位数:1101111211231134114511561167117811891211123212531274129513211352138

下面就用c语言来编写了：#includevoidmain(){intbaiwei,gewei,he;for(intnumber=100;numbe

programui(input,output);vara:array[1..100]ofinteger;i,j,k:integer;beginfori:=10to99doif((idiv10)+(im

dimiNumasinteger'定义为整数的两位数iNum=(iNum-int(iNum/10)*10)*10+int(iNum/10)'完成交换,并把交换后的值重新定义给iNum

#includevoidmain(){inti,a,b,c;for(i=100;i

楼上算法有问题,多了几个PrivateFunctionprime(nAsInteger)AsBoolean'返回值=True是素数,False不是素数DimkAsIntegerprime=TrueFo