vb 求前n个素数

a=val(inputbox("请输入一个数"))b=1fori=1toab=b*inextiforj=1tolen(str(b))ifmid(str(b),j,1)="0"thenc=c+1endi

Dimn,x,r,sAsSinglen=2s=0DoWhilen再问：能说一下算法的思路吗？再答：首先1不是素数,就用枚举将2到1000的每个数列举出来,再逐个检验,即从2到n/2一一举例，判断是否能

PrivateSubCommand1_Click()a=InputBox("输入电阻的个数")Fori=1Toac=InputBox("输入第"&i&"电阻的阻值")b=b+1/cNextMsgBox

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

Private Sub Command1_Click()   Dim a()   Dim i&nbs

稍后为你提供代码

#includemain(){intm,n,s=2,j=0;registerinti;printf("pleaseinputanumber:n=");scanf("%d",&n);while

PrivateSubForm_Click()DimaAsIntegerDimnAsIntegerDimsAsStrings=""Randomizea=Int(Rnd()*9)+1n=Int(Rnd()

PrivateSubCommand1_Click()DimxxAsIntegerDimNAsLong,FlagsAsBooleanDimiiAsIntegerDim素数个数AsIntegerDim素数

1.DimnAsInteger,iAsIntegerDimjiAsDoublen=Val(Text1.Text)i=1ji=1Doji=ji*ii=i+1Ifi>nThenExitDoLoopPrin

PrivateSubCommand1_Click()Dimi,j,kFori=1To10k=1Forj=1Toik=k*jNextPrinti&"!="&kNextEndSub再问：如果用inputb

privatefunctionFun_RandNum(RandNumasinteger)asboolean'True为是素数,False为不是素数.dimk,iasintegeri=int(sqrt(

http://zhidao.baidu.com/link?url=wyic3NEB45i2K9YZE2SpNiAV4aD7rZHpluBlyF76zg0n_8wr1t6-KOYm6eYY23KqG5n

当i不等于n的时候在s字符串最后加上一个“+”号,当输出最后一个字符串,比如22222时候i=5,n=5,这个时候不要再s最后加上“+”号如果有这句,比如a=2,n=5时候输出是这样的：当a=2时,n

PrivateSubCommand1_Click()n=Text1.TextFori=2ToInt(Sqr(n))IfnModi=0Thenmsgbox"不是"ExitSubEndIfNextimsg

PrivateSubCommand1_Click()Fori=100To999IfIsPrime(i)Thenn=n+1Printi;IfnMod10=0ThenPrintEndIfNextiEndS

1)t=a(i)这句下标越界了,因为这时i=112)判断素数的语句也有点逻辑上的错误.3)随机数有可能重复.我改了下,请参考：PrivateSubForm_Click()Dima(1To10),iAs

PrivateFunctionfact(n&)AsBoolean'错误1：参数n的数据类型应该与command1_click事件里的i类型一致Dims&'错误2：s的类型也应该是长整型（&）,你原来定

这句话的意思应该是如果i大于n的取整平方根再进行四舍五入得出的值就输出n啊再问：意思我知道是这个。但是我不理解这段代码，这和求素数有什么关系呢！求素数的方法不是让他本身去除以从2带他平方根的数吗？？求

PrivateSubCommand1_Click()DimiAsInteger,nAsInteger,mAsInteger,StrAsString,SAsDoubleStr=""n=Val(Input