vb通用中判断是不是素数

第一题答案：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