VB控制台判断是不是水仙花数
来源:学生作业帮助网 编辑:作业帮 时间:2024/09/24 15:30:55
PrivateSubCommand1_Click()DimaAsIntegerFora=101To999Step1Ifisnum(a)=TrueThenPrinta;NextEndSubPrivate
intfun(intn){inta,b,c;a=n%10;b=n/10%10;c=n/100;if(a*a*a+b*b*b+c*c*c==n)return1;elsereturn0;}
判断素数的原理是:素数是只能被1和本身整除的数.例如3只能被1和3整除,17只能被1和17整除等等,想9就不是素数(能被1,3,9整除).编程的算法是:穷举法,就是将需要判断的数除2、除3.一直除到这
PrivateSubCommand1_Click()DimnAsLong,xAsLongn=InputBox("请输入一个整数:")x=Sqr(n)Ifx*xnThenMsgBox(n&"不是一个完全
第一个:#includevoidf(){inti,j,k;for(i=1;i再问:不要分成两个程序,可以直接编进一个函数吗再答:#includevoidf(){inti,j,k,l,n;for(i
Fori=2Tox-1IfxModi=0ThenExitForNextiIfi=xThenPrintx;
#includevoidmain(){inti,j,k,m;printf("inputdata:");scanf("%d",&m);/*输入一个3位数*/i=m/100;j=(m-100*i)/10;
水仙花数是指一个n位数(n≥3),它的每个位上的数字的n次幂之和等于它本身.(例如:1^3+5^3+3^3=153)注意我这只限于3位数#includevoidmain(){intx,y,z;intn
?"水仙花数:"m=100dowhilem
#includemain(){intm,b,s,g;for(m=100;m
这里有个现成的!http://baike.baidu.com/image/83cab81ebd7c755c40341757
//提示:153370371407是水仙花数#includevoidmain(){inti,j,k,n;printf("请输入一个三位整数\n");scanf("%d",&n);i=n/100;/*分
/*打印所有水仙花数*/#include"stdio.h"#includevoidmain(){inti,j,k,sum;for(i=1;i
百十个位数立方和等于其自身数
dimnumnum=122.02ifnumint(num)thenmsgbox("非整数")
inputxifx=int(x)thenprintx;"isainteger."elseprintx;"isn'tainteger."或者inputxifx-int(x)>0thenprintx;"i
PrivateSubForm_Click()DimxAsStringDima%,b%,c%,y%x=InputBox("请输入三位数","提示框")IfLen(x)=3Thena=Val(Mid(x,
没说明是什么单元格、什么控件.这里用二维数组来模拟,实际操作中换成获取单元格值即可.但都是采用遍历的方式来检查,很简单的操作,以下是代码示例:Private Sub Form_Cl
#includevoidf(){inti,j,k,l,n;for(i=1;i
水仙花数是指一个n位数(n≥3),它的每个位上的数字的n次幂之和等于它本身.(例如:1^3+5^3+3^3=153).水仙花数不止指三位数,具体看参考资料.现在验证的已达39位.