VB 键盘输入一个数key,断是否为素数.(或求水仙花数)
来源:学生作业帮助网 编辑:作业帮 时间:2024/10/04 09:34:23
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