VB中判断一个三位数是否为水仙花数的操作在子过程FUN中实现

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&"不是一个完全

质数又称素数.指在一个大于1的自然数中,除了1和此整数自身外,没法被其他自然数整除的数.换句话说,只有两个正因数（1和自己）的自然数即为素数.比1大但不是素数的数称为合数.1和0既非素数也非合数.素数

Fori=2Tox-1IfxModi=0ThenExitForNextiIfi=xThenPrintx;

VB中的话是ifa=cthenmsgbox"true"如果是C中的话是if(a=x)

其实算法就一句就行,(num/10)%10.不过给你写了.//num->待判断的数//返回值：1->十位数为0,0->十位数不为0intjudge(intnum){inttemp=0;temp=num

InStr([start,]string1,string2[,compare]),下标从1开始返回指定一字符串在另一字符串中最先出现的位置.在字符串string1中,从start开始找string2,

#includemain(){intm,b,s,g;for(m=100;m

100x+10y+z=x³+y³+z³

DimxAsInteger,iAsIntegerx=InputBox("请输入你要判断的数字")Ifx

PrivateSubCommand1_Click()n=Text1.TextFori=2ToInt(Sqr(n))IfnModi=0Thenmsgbox"不是"ExitSubEndIfNextimsg

dimnumnum=122.02ifnumint(num)thenmsgbox("非整数")

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

inputxifx=int(x)thenprintx;"isainteger."elseprintx;"isn'tainteger."或者inputxifx-int(x)>0thenprintx;"i

DimmAsIntegerPrivateSubCommand1_Click()a=InputBox("请输入数字")Fori=1ToVal(a)IfaModi=0Thenm=m+1NextIfm=2T

经常遇到类似的题目,可以参考此程序!　　VB2008调试通过!PublicClassForm1Dimprime(100)AsIntegerDimCurrentIndexAsIntegerPrivate

#includevoidf(){inti,j,k,l,n;for(i=1;i

quickbasic好像不行.32位正整数最大不过10位,如果你不做两个整数变量串联就无法计算更大的数..NET的ULong类型能够计算最大20位,18,446,744,073,709,551,615

PrivateSubCommand1_Click()n=Val(InputBox("请输入一个数字"))Ifn=Int(n)AndSgn(n)=1ThenPrintn;"为正整数"ElsePrintn