vb 中判断一个大于3的正整数是否为素数的程序

privatesubform_click()dimnaslong,snaslongn=inputbox("请输入n")fori=0tonsn=sn+2*i+1nextmsgbox"1+3+5+...(

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

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

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

ifx>aandx

DimXAsInteger这句出的毛病.你直接把它定义成整数型变量,输入3.5直接四舍五入转换为4.把它换成DimXAsSingle

privatesubcommand1_click()dimi,j,nn=val(inputbox("n="))ifIsPrime(n)thenprintn&"是素数."elsefori=n+1ton+

DimnAsInteger,iAsIntegerDimflgAsBooleann=Val(Text1.Text)n=n+1Fori=2ToSqr(n)IfnModi=0ThenExitForNexti

Public Function IsPrime(ByVal x As Integer) As Boolean  

intmain(){intn,m;scanf("%d",&n);for(m=2;m

PrivateSubCommand1_Click()Fori=3210To9876a=Mid(i,1,1)b=Mid(i,2,1)c=Mid(i,3,1)d=Mid(i,4,1)Ifa>bAndb>c

#include#include\x05/*根号函数在这个头文件里*/charprime(intdata)\x05/*判断是不是质数的函数*/{inti;for(i=2;i

这种判断语句就是程序上的1+1命令,有必要在这里问吗,而且你又问错地方.再问：我把什么地方想错了啊？？？？我感觉我现在像是钻进了个牛角尖出不来了再答：做个递增单循环，当递增变量大于判断的数时中断，判断

i是用来验证是否是N因数的变量.举例来说,按照最笨的思路,如果我们要验证10000是不是个素数,就要将10000依次除以2、3、……、9999,如果其中出现了可以整除的情况,那么就能证明10000不是

x="0123456"ifleft(x,1)="0"thenmsgbox"is0"

呵呵,一看就知道你刚学.我按照你的思路写的代码,你看看PrivateSubCommand1_Click()a=Val(Text1.Text)IfaText2="负整数"ElseIfa>0ThenTex

Modulemodule3SubMain()DimnumAsIntegerDimiAsIntegerConsole.Write("请输入一个正整数：")num=Integer.Parse(Consol

subformclick_()dimnasintegern=inputbox("请输入数")k=int(spr(n))i=2swit=0‘令swit=0接下来的意思是N除以小于N的输如果能被整除SWI

PrivateSubCommand1_Click()a=InputBox("请输入数值")b=InputBox("请输入数值")IfVal(a)Fori=1ToVal(a)IfVal(a)Modi=0

PrivateSubCommand1_Click()n=Val(InputBox("请输入一个数字"))Ifn=Int(n)AndSgn(n)=1ThenPrintn;"为正整数"ElsePrintn