VB作业输出100到200不能被3整除的数,每行输出6个-搜答案-智慧作业帮

这个就是循环再加上个if条件语句就ok了!staticvoidMain(string[]args){inti=0;for(i=0;i

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

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

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

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

你这什么问题?如果要优化的话,内循环n再问：换成n

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

PrivateSubCommand1_Click()Fori=1To100Forj=1ToiFork=1TojIfi^2=j^2+k^2ThenPrinti;j;kNextkNextjNextiEnd

Sub Main() dim i as integer, n as integer&

dimiasintegerdimnasintegerfori=100to200ifimod3=0orimod5=0thenprinti&"";n=n+1ifnmod10=0thenprintendif

Dim i, j j = 0 &

sum=0fori=1to100if(imod3)thensum=sum+inextiprintsum

你交作业啊,这么简单的问题,还好意思来这问.自己稍微动动脑子好不好,懒成这样,有没有点血性?!

#includevoidmain(){inti;for(i=100;i

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

Fori=100To999IfiMod10=3AndiMod7=0ThenPrintiEndIfNexti

PrivateSubCommand1_Click()Dimi,j,kFori=101To200Step2'每次加二,确保奇树IfiMod3>0Then'不能被3整除j=j&Str(i)&","'要打印

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

分别用random(),max(),min(),avg()函数.

是“奇数”吗..?另外一共就产生十个,每行显示十个……是不是产生任意多个,然后每行输出十个?奇数的话范围就在11~99之间,用2n+1法产生奇数的话n的取值范围就是5~49新建工程,窗体上放个文本框,