vb能被5和8整除的数1到200

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

求奇偶数:Fori=1to100Ifi/2i\2Thenmsg=msg&i&"是奇数"Elsemsg=msg&i&"是偶数"NextiPrintmsg能被3和5同时整除:Fori=1to100Ifi/

dimnum3asintegerfori=1to1000ifimod3=0thennum3=num3+iendifnext

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

能被5整除的数有20个,能被7整除的数有14个,能被35整除的数有2个.所以,能被5或7整除的数一共有20+14-2＝32个.注意,这里最好不要用“和”,应该用“或”.你得出34是因为35,70这两个

SubMain()MsgBoxFunc(100,2,5)'按照要求写的例子EndSubRem参数(最大值,被整除的数的数组)FunctionFunc(n&,ParamArrayx())Dimi&,b&

个位是五或零的数字都能被五整除,试用于无限大,求和就靠你了.

能被5整除的2000-1=1999个（不包括10000的话）能被7整除的有1428个（10000/7取整）能被35整除的有285个则1999+1428-285=3142个

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

voidmain(){intsum=0;for(inti=2;i

PrivateSubForm_Click()Dimx1%,x2%,count%count=0Fori=1To100x1=iMod5x2=iMod7Ifx1=0Andx2=0ThenPrinti;End

'单击窗体函数里面的代码：DimiAsInteger'从1~200DimcountAsInteger'保存所求的和Fori=1to200If(iMod5=0)And(iMod7=0)Thencount

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

    Dim i, j    j = 0   &

PrivateSubCommand1_Click()Dimi%Text1.Text=""Fori=1To1000IfiMod17=0AndiMod37=0ThenText1.Text=Text1.Te

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

PrivateSubForm_Load()ForI=1To1000IfIMod7=0ThenX=X+1IfXMod10=0ThenLabel1.Caption=Label1.Caption&vbNew

就是能被35整除的数的个数1000÷35=28……余20因此从35*1,到35*28,共有28个数

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

//---------------------------------------------------------------------------#include#pragmahdrstop#