vb里1到1000之间所有的偶数之和怎么算
来源:学生作业帮助网 编辑:作业帮 时间:2024/06/05 10:34:52
你一点都不做?做一做大家给你修改才是正途
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