编写一个判断完数的函数过程

#includeintfun(intk){intn,t,i;n=k;for(i=2;i*i再问：运行得了吗？再答：如果你要从1到999的素数的话for(i=100;i<=999;i++)就把i=

Functions(nAsInteger)AsBooleanFori=2Ton-1IfnModi=0Thens=FalseExitForEndIfNextiIfi=nThens=TrueEndIfEn

假设文本框为TEXT1,标签为LABEL1,函数代码如下：publicsubtestnum()dimxaslongx=cint(text1.text)ifxmod2=1thenlabel1.capti

PrivateFunctionisPrim(n%)AsBoolean'素数判断子过程Dimd%Ifn=2ThenisPrim=True:ExitFunctionFord=2ToSqr(n)IfnMod

#include<stdio.h>int isPrime(int num);int main(){ int num; print

t=0;for(i=1;i

voidfun(longn){intwan,qian,bai,shi,ge;//定义各数位longnixushu;//定义逆序数wan=n/10000;qian=(n-wan*10000)/1000;

PrivateFunctionjo(ByValnAsInteger)n=InputBox("请输入一个数字")IfnMod20ThenMsgBoxn&"是奇数"ElseMsgBoxn&"是偶数"End

#includemain(){intn;printf("Pleaseenteranumber:");scanf("%d",&n);if(n%2==0)printf("Thenumber%dis偶数\n

intwanshu(intx){inti,sum;for(i=1,sum=0;i

#include#includeintfun(intn){intsum=0,i;for(i=1;i

DimnAsIntegerPrivateSubForm_Click()Ifn/2=0ThenPrint"n是偶数"ElsePrint"n是奇数"EndIfEndSubPrivateSubForm_Lo

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

'判断一个数m是否是完数,是则返回True,否则返回FalseFunctionTestWanShu(ByValmasLong)AsBooleanDimSumAsLongDimiAsLongIfm

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

/*打印所有水仙花数*/#include"stdio.h"#includevoidmain(){inti,j,k,sum;for(i=1;i

你把代码文本贴上来.再问：　　PrivateFunctionf()AsBoolean　　DimiAsInteger　　b=Len(Str(Trim(Text1.Text)))　　Fori=1Tob/2

我用C语言编一下啊.其他语言类似!#includevoidsort(intn){if(n%2==0)printf("thenumberisdouble\n");elseprintf("thenumbe

在此创建一个文本框,按钮,标签都是原先默认名不要改PrivateFunctiona(cAsInteger)Ifc>=0AndcMod2=0ThenLabel1.Caption=Text1.Text&"

“在列表框显示1000以内的完数”为什么要放在主调程序里呢?在IsWs函数中已经把完数的因子算出来了,却只能返回一个true,岂不在主调程序里还要算一遍因子才能显示成6=1+2+3这种形式.你又没说要