vb能被4整除且不能被100整除-搜答案-智慧作业帮

你是要找出100以内被4整除的数吗下面是这样的例子（用VBA写的）：Subtest()DimiAsIntegeri=4DoWhilei

subcommand1_click()dimiasinteger,sasintegers=0fori=1to100if(imod3=0andimod7=0)thens=s+inextmsgboxsen

dimii=0forj=100to999ifjmod3=0thenif(j-6)mod10=0theni=i+1endifendifnext没有编译运行LZ自己试试

PrivateSubCommand1_Click()Fori=100To999IfMid(i,2,1)Mod2=0AndMid(i,3,1)Mod3=0AndMid(i,3,1)Mod6=0ThenP

pravitesubcommand1_Click()dimn%n=inputbox("请输入一个整数","输入整数")ifnmod3=0andnmod7=0thenprint"A"elseprint"

入门吧?问题很多!DimaAsIntegerDimbAsIntegera=Val(Text1.Text)b=Val(Text2.Text)IfaModb=0ThenText3.Text="能"Else

3再答：6再答：9再答：12再答：12再答：15再答：18再答：21再答：24再答：27再答：30再答：33再答：36再答：39再答：42再答：45再答：48再答：51再答：54再答：57再答：60再

不是这样理解的,这里是说能被4整除的年份一般来说是润年,前提是不包括100整数倍(但不是400整数倍)的年份(虽然也能被4整除)比如1900年,能被4整除,但它是100的整数倍年份,所以不是润年.20

这样才完整：判断不出错.N-1省去了许多判断,提高了效率.PrivateSubCommand1_Click()DimNAsIntegerDimiAsIntegerIfIsNumeric(Text1.T

count=0sum=0fori=1to500ifi%3=0andi%50thencount=count+1sum=sum+inexti再问：请问这个可以用dowhile......做么？可以的话怎么

这们是不对的,例如：这样的程序100也会输出,因为100/15的余数是在于0的.但是100不能被3整除,可能被5整除.这样才是对的：Fori=100To200IfiMod3>0AndiMod5>0Th

PrivateSubCommand1_Click()DimsAsIntegerFori=100To200IfiMod3=0AndiMod70Thens=s+iNextiPrint"所求的和为："&sE

PrivateSubForm_Click()DimiAsIntegerFori=1To100IfiMod3=0AndiMod7=0ThenPrintiEndIfNextEndSu

Dim i, j j = 0 &

①、普通年能整除4且不能整除100的为闰年.（如2004年就是闰年,1900年不是闰年）②、世纪年能整除400的是闰年.(如2000年是闰年,1900年不是闰年)③、对于数值很大的年份,这年如果能被3

dimiasintegerdimsumasintegersum=0fori=100to200step5ifimod30thensum=sum+inext

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

PrivateSubCommand1_Click()Fori=100To200IfiMod30Thens=s+iPrinti;n=n+1IfnMod10=0ThenPrintEndIfNextPrin

建个按钮控件：（下程序还可以显示每个数）'VB程序求出各位数为6且能被3整除的三位数共有多少个?PrivateSubCommand1_Click()DimcoutAsIntegerFori=100To

Fori=100To999IfiMod10=3AndiMod7=0ThenPrintiEndIfNexti