vb输出1-100之间能够被3整除的数,并计算一共有多少个

PrivateSubCommand1_Click()Dima(9),i%,Sum!ClsFori=0To9Randomizea(i)=Int(Rnd*51+140)/10Sum=Sum+a(i)Pri

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

PrivateSubCommand1_Click()DimiAsIntegerDimnAsIntegern=0Fori=1To100IfiMod3=0Thenn=n+1Printn;iEndIfNex

privatesubcommand1_click()dimsumasintegerdimiasintegersum=0fori=1to50ifimod3=0thenmsgboxi&"能被3整除",Vb

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

dimi,sfori=200to300s=imod5ifs=""thenprintiendif再问：大哥对不对啊我马上要考VB了，再答：PrivateSubCommand1_Click()Dimi,s

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

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

#includevoidmain(){ints=0;for(inti=0;i

1021081111141171201231291321351381411441501531561591621651711741771801831861921951982012042072132162

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

constN=100dimi,iCountiCount=0'计数dimsum:sum=0fori=1toNifimod5=0orimod7=0theniCount=iCount+1textBox1.T

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

    Dim i, j    j = 0   &

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

所有数位和：比如898=8+9+8=25,能被5整除自身能被三整除,比如111,111/3=37所有数位和能被5整除并且自身能被3整除的,比如555（ps：其实自身能被3整除的数,所有数位和也能被3整

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

Fori=100To999IfiMod10=3AndiMod7=0ThenPrintiEndIfNexti

Private Sub Command1_Click()    Dim j As Long, x&n

PrivateSubForm_Click()Dima(30)AsIntegerDimiAsIntegerRandomizeFori=1To30a(i)=Int(100*Rnd)NextiFori=1T