vb里1到1000之间所有的偶数之和怎么算

你一点都不做?做一做大家给你修改才是正途

PrivateSubCommand1_Click()Dima(1To20)Dimmax,ave,min,summax=0min=300Print"产生的20个数为:";Fori=1To20a(i)=I

dimgs,igs=0fori=1to500ifinstr(i,"4")=0thengs=gs+1endifnextprintgs

dimnum3asintegerfori=1to1000ifimod3=0thennum3=num3+iendifnext

dimiaslongdimsumaslongsum=0fori=1to100step2sum=sum+inextiprintsum

Toproducerandomintegersinagivenrange,usethisformula:Int((upperbound-lowerbound+1)*Rnd+lowerbound)Her

代码如下:运行条件:form1上有一个文本框,名称text1,一个按钮,名称command1运行结果显示在text1里面PrivateSubCommand1_Click()DimiAsIntegerM

设置了没5个换行PrivateSubBcompute_Click()t=0Fori=1To12260If(iMod3=0)And(iMod7=0)And(iMod9=0)ThenTresult.Tex

PrivateSubCommand1_Click()Fori=3To100Forj=2ToSqr(i)IfiModj=0ThenExitForNextIfj>Int(Sqr(i))Thens=s&i&

PrivateSubCommand1_Click()s=0Fori=100To200IfiMod3=0Thens=s+iEndIfNextiText1.Text=sEndSu

dimiaslong,jaslong,kaslongfori=1to1000forj=ito1000fork=jto1000ifi*i+j*j=k*kthenprinti,":",j,":",knex

sub平方和()dimsumdimiaslongsum=0fori=1to100sum=sum+i*inextiendsu

'10个数相乘?PrivateSubCommand1_Click()Dimi,nn=1Fori=1To10n=n*iNextMsgBoxnEndSu

PrivateSubCommand1_Click()Fori=1To100IfiMod7=0Thenn=n+1EndIfNextiPrintnEndSu

在窗体上添加三个文本框,和一个按钮.在按钮的单击事件中写:privatesubcommand1_clickdimsumasinteger'和dimcountasinteger'个数sum=0count

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

fori=1to50ifimod20thensum=sum+inextmsgboxsum

dimsum%,i%fori=1to40ifimod5=0thensum=sum+inextprintsum再问：mod什么意思啊没怎么听课不懂啊谢谢啊

楼上算法有问题,多了几个PrivateFunctionprime(nAsInteger)AsBoolean'返回值=True是素数,False不是素数DimkAsIntegerprime=TrueFo

楼上推荐的程序有个问题.3*7*9应该写成7*9,否则会漏掉63dimiasintegerdimjasintegerdimSasLongS=0fori=1to13230ifimodj=0thenS=S