vb通用中判断是不是素数
来源:学生作业帮助网 编辑:作业帮 时间:2024/10/08 13:38:55
第一题答案:OptionExplicitPrivateSubCommand1_Click()DimnAsIntegern=Val(InputBox("请输入一个数"))Ifisprime(n)Then
判断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
Private Sub Command1_Click()X = val(InputBox(""))For i =&nbs
Fori=2Tox-1IfxModi=0ThenExitForNextiIfi=xThenPrintx;
从1开始遍历到该数的开方,如果找到一个数能整除该数,证明这不是个素数,看看以下代码#include//头文件为math.hintisprime(inta){inti;for(i=2;i再问:for(i
Public Function IsPrime(ByVal x As Integer) As Boolean  
intprime(intn){intflag=1,i;for(i=2;i
privatefunctionFun_RandNum(RandNumasinteger)asboolean'True为是素数,False为不是素数.dimk,iasintegeri=int(sqrt(
DimxAsInteger,iAsIntegerx=InputBox("请输入你要判断的数字")Ifx
PrivateSubCommand1_Click()n=Text1.TextFori=2ToInt(Sqr(n))IfnModi=0Thenmsgbox"不是"ExitSubEndIfNextimsg
定义三个listboxOptionExplicitPrivateSubForm_Click()DimiAsLong,jAsLongList1.AddItem("奇数")List2.AddItem("偶
OptionExplicit'请在窗体中加入一个按钮和一个文本框'这是判断是否为素数的函数,n为需要判断的数'返回值为逻辑型,True表示为素数,False表示不是素数FunctionIsPrime(
不是素数,因为89951=293*307
当前的这个数如果能够被比他小的数整除(n%i==0),返回0(return0)说明它不是质数,如果从2一直到比他小1的数都不能被整除说明这个数不能被任何数整除当然就是质数了return1
判断number是否是素数有这么几种方法:(1)用2至number-1之间的所有数去整除number,如果有一个能被整除,说明number是非素数;除非所有的数都不能被整除,才说明number是素数.
如果n不是素数,那么n必有介于1和n之间的约数,设为a,a和n/a中有一个不大于n^0.5,检验一个即等于检验了另一个
subformclick_()dimnasintegern=inputbox("请输入数")k=int(spr(n))i=2swit=0‘令swit=0接下来的意思是N除以小于N的输如果能被整除SWI
quickbasic好像不行.32位正整数最大不过10位,如果你不做两个整数变量串联就无法计算更大的数..NET的ULong类型能够计算最大20位,18,446,744,073,709,551,615