VB作业输出100到200不能被3整除的数,每行输出6个
来源:学生作业帮助网 编辑:作业帮 时间:2024/09/21 03:12:53
这个就是循环再加上个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新建工程,窗体上放个文本框,