vb利用for循环显示1000以内所有能被37整除的自然数

用count,否则的话,如果记录太多,你将不停地MoveNext,不停地判断b=a.DimiAsInteger,nAsLong,sAsStringText8=""Adodc1.RecordSource

PrivateSubCommand1_Click()DimiAsIntegerFori=1To5Ifi5ThenPicture1.PrintSpace((i-1)*2);String(8-((i-1)

需要的控件：命令按钮,2个,command1,command2标签,2个,label1,label2command1代码：Private Sub Command1_Click()&

a是循环变量,b是初始值,c是步进数,即每循环一次a的值的变化量.n=Inputbox("n=")i=0s=0Fori=0toni=i+1s=s+iNextiPrintsPrivateSubComma

我也才学vb假如是fort=1to10step1那么t的取值就是1、2、3、4、5、6、7、8、9、10；如果step2那么t的取值是1、3、5、7、9；如果是step3那么t取值是1、4、7、10；

fori=3to10000‘查找质数forj=2toi-1x=imodjifi<>0thenexitfor'如果除了1和本身,还能被任意小于本身的一个数整除,那么此数不是指数,并跳出循环,

很简单,因为你每单击一次左边的就执行此过程,而左列表框是每次都更新的.

i=1j=1x=1i=2j=1x=2j=2x=3i=3j=1x=4j=2x=5j=3x=6i=4j=1x=7j=2x=8j=3x=9j=4x=10循环结束,此时x=10

【答案】：12【运行过程】由于step(步长)为3,每次循环时,i都会+3.如果不写step3则默认每次循环+1循环ii与10比较s①3

不可以,for循环只在第一次进入时进行断定,然后它就不管你的设定了.再问：那除了goto没了其它办法了？再答：for循环做不到，你可以考虑一下while.....wend或do......Loop

fori=1to20n=1/i^2m=m+nnexti

好像这个问题没什么意义啊,对于我们这些编程人员来说,这类刁钻古怪的问题是不会很关注的,如果不是出于考试的目的,这个问题还是不用花时间纠结了.答案是 step<=0时, 程序不

每次J循环之后,X都赋值3了接着K中的1TO2两次循环：第一次循环X=X+6=3+6=9第二次循环X=X+6=9+6=15所以不管I循环多少次,J循环多少次,X都在9和15之间轮回.第二个循环看图：

Fori=1To20Forj=1To20Ifa(i)n=a(i)a(i)=a(j)a(j)=nEndIfNextjNexti

总之都会在第二个for循环中运行的加一个计数的就行了,还有第一个循环0-50循环了50+1次第二个也是51*51就是循环的总次数（总循环）你的S变量是满足条件的循环数

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

fori=tostep0.1以0.1为步进推进,其他类推初值>与都可为小数

dimn,s,i,pdon=val(inputbox("大于0的正整数"))loopuntiln>0andn=int(n)s=1p=-1fori=1tons=s+p*2*n/(2*n+1)p=p*-1

ivateSubCommand17_Click()DimiAsLong,kAsLong,jAsLong,oAsLongk=Val(Text1.Text)‘要计算的数j=0o=0Fori=1TokIfi

fori=1to4printi;（此行输出为:1234）nextiprinti(退出循环时,i=5)再问：为什么会循环到5呢？to4就结束了啊？再答：书上有一句话：当循环的值“超过”终值时，退出循环。