VB 键盘输入一个数key,断是否为素数.(或求水仙花数)

packagetest1;importjava.util.Scanner;publicclassTest6{publicstaticvoidmain(String[]args){Scannerinpu

Function Exchange(ByVal num As Integer)    If num 

判断n是否为素数,可用n除以2到根号n之间所有的整数,除不尽则n为素数Fora=2ToInt(Sqr(n))IfnModa0Then'余数不为0,则n为素数isprime=True'n为素数Elsei

判断素数的原理是：素数是只能被1和本身整除的数.例如3只能被1和3整除,17只能被1和17整除等等,想9就不是素数（能被1,3,9整除）.编程的算法是：穷举法,就是将需要判断的数除2、除3.一直除到这

dimi,j,n,tasintegern=inputbox("n=")fori=1tonifimod2=0thent=i\2forj=2toint(sqrt(t))iftmodt=othenexitf

dimarray(),iasinteger,jasintegerdimmin_iasinteger,max_jasinteger'用来标注数组中最小值和最大值的下标redimarray(10)=[1,

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

a*a=b假设你先循环2到a,发现b都不能整除,这时你在循环a+1到a*a就没有意义了,因为b=a*a,所以b/(a+x)是肯定小于a的,而2到a已经循环过了不是吗?不过一般代码里面都是循环2到b/2

input "输入一个数：" to srsrc=ALLTRIM(STR(sr))lensr=LEN(src)yxsr=""FOR&

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

PrivateSubForm_Load()DimxAsInteger,yAsInteger,zAsIntegerDimdiyigeAsIntegerDimdiergeAsString,disangeA

//写好了#includeintmain(){boolishave=false;inta,b,num1,num2,temp;intc,GCD,LCM;//最大公约数GCD,最小公倍数LCMprintf

这要有数学的基本常识..奇数被2除余1偶数被2整除..所以假设这个数位xif(x%2==1)//xmod2余1输出奇数；else输出偶数；

PrivateSubCommand1_Click()i=Val(InputBox("inputanumber"))Ifi0Theny=x*23Elsey=-5*xx*2EndIfPrintyEndSu

oolcalc(unsignedintn){if(n

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

clearinput"请输入一个数："toxifx%2=1?"是奇数"else?"是偶数"endif第2题是什么?

CLEARINPUT"起始数:"TOaLOCALii=1DOWHILE.T.IFi>20&&发现20个就退出循环EXITENDIFIFMOD(a,6)=0ANDRIGHT(STR(a),1)="8"&

#includevoidmain(){intn;sacnf("%d",&n);if(n%27==0)printf("Yes\n");elseprintf("No\n");}

dim ar(1 to 10) as integerdim s as integer, i as&n